/[svn]/linuxsampler/trunk/src/engines/common/InstrumentScriptVMFunctions.cpp
ViewVC logotype

Contents of /linuxsampler/trunk/src/engines/common/InstrumentScriptVMFunctions.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2629 - (show annotations) (download)
Thu Jun 12 18:25:11 2014 UTC (9 years, 9 months ago) by schoenebeck
File size: 6486 byte(s)
* Implemented built-in instrument script function "note_off()".
* Bumped version (1.0.0.svn52).

1 /*
2 * Copyright (c) 2014 Christian Schoenebeck
3 *
4 * http://www.linuxsampler.org
5 *
6 * This file is part of LinuxSampler and released under the same terms.
7 * See README file for details.
8 */
9
10 #include "InstrumentScriptVMFunctions.h"
11 #include "InstrumentScriptVM.h"
12 #include "../AbstractEngineChannel.h"
13
14 namespace LinuxSampler {
15
16 InstrumentScriptVMFunction_play_note::InstrumentScriptVMFunction_play_note(InstrumentScriptVM* parent)
17 : m_vm(parent)
18 {
19 }
20
21 VMFnResult* InstrumentScriptVMFunction_play_note::exec(VMFnArgs* args) {
22 int note = args->arg(0)->asInt()->evalInt();
23 int velocity = (args->argsCount() >= 2) ? args->arg(1)->asInt()->evalInt() : 127;
24 int sampleoffset = (args->argsCount() >= 3) ? args->arg(2)->asInt()->evalInt() : 0;
25 int duration = (args->argsCount() >= 4) ? args->arg(3)->asInt()->evalInt() : 0; //TODO: once -1 is implemented, it might be a better default value instead of 0
26
27 if (note < 0 || note > 127) {
28 errMsg("play_note(): argument 1 is an invalid note number");
29 return errorResult(-1);
30 }
31
32 if (velocity < 0 || velocity > 127) {
33 errMsg("play_note(): argument 2 is an invalid velocity value");
34 return errorResult(-1);
35 }
36
37 if (sampleoffset < 0) {
38 errMsg("play_note(): argument 3 may not be a negative sample offset");
39 return errorResult(-1);
40 } else if (sampleoffset != 0) {
41 wrnMsg("play_note(): argument 3 does not support a sample offset other than 0 yet");
42 }
43
44 if (duration < -1) {
45 errMsg("play_note(): argument 4 must be a duration value of at least -1 or higher");
46 return errorResult(-1);
47 } else if (duration == -1) {
48 wrnMsg("play_note(): argument 4 does not support special value -1 as duration yet");
49 } else if (duration != 0) {
50 wrnMsg("play_note(): argument 4 does not support any other value as 0 as duration yet");
51 }
52
53 AbstractEngineChannel* pEngineChannel =
54 static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
55
56 Event e = m_vm->m_event->cause;
57 e.Type = Event::type_note_on;
58 e.Param.Note.Key = note;
59 e.Param.Note.Velocity = velocity;
60 memset(&e.Format, 0, sizeof(e.Format)); // init format speific stuff with zero
61
62 int id = pEngineChannel->ScheduleEvent(&e, duration);
63
64 return successResult(id);
65 }
66
67 InstrumentScriptVMFunction_set_controller::InstrumentScriptVMFunction_set_controller(InstrumentScriptVM* parent)
68 : m_vm(parent)
69 {
70 }
71
72 VMFnResult* InstrumentScriptVMFunction_set_controller::exec(VMFnArgs* args) {
73 int controller = args->arg(0)->asInt()->evalInt();
74 int value = args->arg(1)->asInt()->evalInt();
75
76 AbstractEngineChannel* pEngineChannel =
77 static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
78
79 Event e = m_vm->m_event->cause;
80 memset(&e.Format, 0, sizeof(e.Format)); // init format speific stuff with zero
81 if (controller == CTRL_TABLE_IDX_AFTERTOUCH) {
82 e.Type = Event::type_channel_pressure;
83 e.Param.ChannelPressure.Value = value & 127;
84 } else if (controller == CTRL_TABLE_IDX_PITCHBEND) {
85 e.Type = Event::type_pitchbend;
86 e.Param.Pitch.Pitch = value;
87 } else if (controller >= 0 && controller <= 127) {
88 e.Type = Event::type_control_change;
89 e.Param.CC.Controller = controller;
90 e.Param.CC.Value = value;
91 } else {
92 errMsg("set_controller(): argument 1 is an invalid controller");
93 return errorResult();
94 }
95
96 int id = pEngineChannel->ScheduleEvent(&e, 0);
97
98 return successResult(id);
99 }
100
101 InstrumentScriptVMFunction_ignore_event::InstrumentScriptVMFunction_ignore_event(InstrumentScriptVM* parent)
102 : m_vm(parent)
103 {
104 }
105
106 VMFnResult* InstrumentScriptVMFunction_ignore_event::exec(VMFnArgs* args) {
107 int id = args->arg(0)->asInt()->evalInt();
108 if (id < 0) {
109 wrnMsg("ignore_event(): argument may not be a negative event ID");
110 return successResult();
111 }
112
113 AbstractEngineChannel* pEngineChannel =
114 static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
115
116 pEngineChannel->IgnoreEvent(id);
117
118 return successResult();
119 }
120
121 InstrumentScriptVMFunction_ignore_controller::InstrumentScriptVMFunction_ignore_controller(InstrumentScriptVM* parent)
122 : m_vm(parent)
123 {
124 }
125
126 VMFnResult* InstrumentScriptVMFunction_ignore_controller::exec(VMFnArgs* args) {
127 int id = (args->argsCount() >= 1) ? args->arg(0)->asInt()->evalInt() : m_vm->m_event->id;
128 if (id < 0) {
129 wrnMsg("ignore_controller(): argument may not be a negative event ID");
130 return successResult();
131 }
132
133 AbstractEngineChannel* pEngineChannel =
134 static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
135
136 pEngineChannel->IgnoreEvent(id);
137
138 return successResult();
139 }
140
141 InstrumentScriptVMFunction_note_off::InstrumentScriptVMFunction_note_off(InstrumentScriptVM* parent)
142 : m_vm(parent)
143 {
144 }
145
146 VMFnResult* InstrumentScriptVMFunction_note_off::exec(VMFnArgs* args) {
147 int id = args->arg(0)->asInt()->evalInt();
148 int velocity = (args->argsCount() >= 2) ? args->arg(1)->asInt()->evalInt() : 127;
149
150 if (id < 0) {
151 wrnMsg("note_off(): argument 1 may not be a negative event ID");
152 return successResult();
153 }
154
155 if (velocity < 0 || velocity > 127) {
156 errMsg("note_off(): argument 2 is an invalid velocity value");
157 return errorResult();
158 }
159
160 AbstractEngineChannel* pEngineChannel =
161 static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
162
163 RTList<Event>::Iterator itEvent = pEngineChannel->pEngine->EventByID(id);
164 if (!itEvent) return successResult();
165
166 Event e = *itEvent;
167 e.Type = Event::type_note_off;
168 e.Param.Note.Velocity = velocity;
169 memset(&e.Format, 0, sizeof(e.Format)); // init format speific stuff with zero
170
171 int releaseEventID = pEngineChannel->ScheduleEvent(&e, 0);
172
173 return successResult();
174 }
175
176 } // namespace LinuxSampler

  ViewVC Help
Powered by ViewVC