Spectrum eLite 1,6W
Kvant
Dennis
RGB Laser
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure PositionXYChange(Top, Left: Integer);
procedure GOBO2ROTchange;
procedure SPECIAL1change;
procedure SPECIAL2change;
procedure DIMMERchange;
procedure SPEEDchange;
procedure GOBO1change;
procedure SPECIAL3change;
procedure GOBO1ROTchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure PANFINEchange;
procedure TILTFINEchange;
procedure SPECIAL4change;
procedure laseraus;
implementation
var
DontRefresh:boolean;
procedure InitDevice(Device: String);
begin
end;
procedure FormShow;
begin
end;
procedure FormRefresh(channel:Integer);
var
Value:integer;
r,phi,temp:Double;
begin
if not DontRefresh then
case channel of
0:
begin
if usemhcontrol.checked then
begin
// Moving-Head-Steuerung
temp:=get_channel('tilt')+(get_channel('tiltfine')/256);
case round(temp) of
0..127: r:=((127-temp)/127);
128..255: r:=((temp-128)/127);
end;
phi:=(get_channel('pan')+(get_channel('panfine')/256))/255*6.283185307179586476925286766559; //(X/255)*PI
PositionXY.Left:=round(r*sin(phi)*(Fadenkreuz.Width/2)+(Fadenkreuz.Width/2)-(PositionXY.Width div 2));
PositionXY.Top:=round(r*cos(phi)*(Fadenkreuz.Height/2)+(Fadenkreuz.Height/2)-(PositionXY.Width div 2));
end else
begin
// Scanner-Steuerung
PositionXY.Left:=round(Fadenkreuz.Width * (get_channel('pan')+get_channel('panfine')/256)/255)-(PositionXY.Width div 2);
PositionXY.Top:=round(Fadenkreuz.Height * (get_channel('tilt')+get_channel('tiltfine')/256)/255)-(PositionXY.Height div 2);
end;
end;
1:
begin
if usemhcontrol.checked then
begin
// Moving-Head-Steuerung
temp:=get_channel('tilt')+(get_channel('tiltfine')/256);
case round(temp) of
0..127: r:=((127-temp)/127);
128..255: r:=((temp-128)/127);
end;
phi:=(get_channel('pan')+(get_channel('panfine')/256))/255*6.283185307179586476925286766559; //(X/255)*PI
PositionXY.Left:=round(r*sin(phi)*(Fadenkreuz.Width/2)+(Fadenkreuz.Width/2)-(PositionXY.Width div 2));
PositionXY.Top:=round(r*cos(phi)*(Fadenkreuz.Height/2)+(Fadenkreuz.Height/2)-(PositionXY.Width div 2));
end else
begin
// Scanner-Steuerung
PositionXY.Left:=round(Fadenkreuz.Width * (get_channel('pan')+get_channel('panfine')/256)/255)-(PositionXY.Width div 2);
PositionXY.Top:=round(Fadenkreuz.Height * (get_channel('tilt')+get_channel('tiltfine')/256)/255)-(PositionXY.Height div 2);
end;
end;
2:
begin
GOBO2ROTslider2.position:=get_channel('GOBO2ROT');
end;
3:
begin
SPECIAL1slider3.position:=get_channel('SPECIAL1');
end;
4:
begin
SPECIAL2slider4.position:=get_channel('SPECIAL2');
end;
5:
begin
DIMMERslider5.position:=get_channel('DIMMER');
end;
6:
begin
SPEEDslider6.position:=get_channel('SPEED');
end;
7:
begin
value:=get_channel('gobo1');
case value of
0..0: gobobox1.itemindex:=0;
1..1: gobobox1.itemindex:=1;
2..2: gobobox1.itemindex:=2;
3..3: gobobox1.itemindex:=3;
4..4: gobobox1.itemindex:=4;
5..5: gobobox1.itemindex:=5;
6..6: gobobox1.itemindex:=6;
7..7: gobobox1.itemindex:=7;
8..8: gobobox1.itemindex:=8;
9..9: gobobox1.itemindex:=9;
10..10: gobobox1.itemindex:=10;
11..11: gobobox1.itemindex:=11;
12..12: gobobox1.itemindex:=12;
13..13: gobobox1.itemindex:=13;
14..14: gobobox1.itemindex:=14;
15..15: gobobox1.itemindex:=15;
16..16: gobobox1.itemindex:=16;
17..17: gobobox1.itemindex:=17;
18..18: gobobox1.itemindex:=18;
19..19: gobobox1.itemindex:=19;
20..20: gobobox1.itemindex:=20;
21..21: gobobox1.itemindex:=21;
22..22: gobobox1.itemindex:=22;
23..23: gobobox1.itemindex:=23;
24..24: gobobox1.itemindex:=24;
25..25: gobobox1.itemindex:=25;
26..26: gobobox1.itemindex:=26;
27..27: gobobox1.itemindex:=27;
28..28: gobobox1.itemindex:=28;
29..29: gobobox1.itemindex:=29;
30..30: gobobox1.itemindex:=30;
31..31: gobobox1.itemindex:=31;
32..32: gobobox1.itemindex:=32;
33..33: gobobox1.itemindex:=33;
34..34: gobobox1.itemindex:=34;
35..35: gobobox1.itemindex:=35;
36..36: gobobox1.itemindex:=36;
37..37: gobobox1.itemindex:=37;
38..38: gobobox1.itemindex:=38;
39..39: gobobox1.itemindex:=39;
40..40: gobobox1.itemindex:=40;
41..41: gobobox1.itemindex:=41;
42..42: gobobox1.itemindex:=42;
43..43: gobobox1.itemindex:=43;
44..44: gobobox1.itemindex:=44;
45..45: gobobox1.itemindex:=45;
46..46: gobobox1.itemindex:=46;
47..47: gobobox1.itemindex:=47;
48..48: gobobox1.itemindex:=48;
49..49: gobobox1.itemindex:=49;
50..50: gobobox1.itemindex:=50;
51..51: gobobox1.itemindex:=51;
52..52: gobobox1.itemindex:=52;
53..53: gobobox1.itemindex:=53;
54..54: gobobox1.itemindex:=54;
55..55: gobobox1.itemindex:=55;
56..56: gobobox1.itemindex:=56;
57..57: gobobox1.itemindex:=57;
58..58: gobobox1.itemindex:=58;
59..59: gobobox1.itemindex:=59;
60..60: gobobox1.itemindex:=60;
61..61: gobobox1.itemindex:=61;
62..62: gobobox1.itemindex:=62;
63..63: gobobox1.itemindex:=63;
64..64: gobobox1.itemindex:=64;
65..65: gobobox1.itemindex:=65;
66..66: gobobox1.itemindex:=66;
67..67: gobobox1.itemindex:=67;
68..68: gobobox1.itemindex:=68;
69..69: gobobox1.itemindex:=69;
70..70: gobobox1.itemindex:=70;
71..71: gobobox1.itemindex:=71;
72..72: gobobox1.itemindex:=72;
73..73: gobobox1.itemindex:=73;
74..74: gobobox1.itemindex:=74;
75..75: gobobox1.itemindex:=75;
76..76: gobobox1.itemindex:=76;
77..77: gobobox1.itemindex:=77;
78..78: gobobox1.itemindex:=78;
79..79: gobobox1.itemindex:=79;
80..80: gobobox1.itemindex:=80;
81..81: gobobox1.itemindex:=81;
82..82: gobobox1.itemindex:=82;
83..83: gobobox1.itemindex:=83;
84..84: gobobox1.itemindex:=84;
85..85: gobobox1.itemindex:=85;
86..86: gobobox1.itemindex:=86;
87..87: gobobox1.itemindex:=87;
88..88: gobobox1.itemindex:=88;
89..89: gobobox1.itemindex:=89;
90..90: gobobox1.itemindex:=90;
91..91: gobobox1.itemindex:=91;
92..92: gobobox1.itemindex:=92;
93..93: gobobox1.itemindex:=93;
94..94: gobobox1.itemindex:=94;
95..95: gobobox1.itemindex:=95;
96..96: gobobox1.itemindex:=96;
97..97: gobobox1.itemindex:=97;
98..98: gobobox1.itemindex:=98;
99..99: gobobox1.itemindex:=99;
100..100: gobobox1.itemindex:=100;
101..101: gobobox1.itemindex:=101;
102..102: gobobox1.itemindex:=102;
103..103: gobobox1.itemindex:=103;
104..104: gobobox1.itemindex:=104;
105..105: gobobox1.itemindex:=105;
106..106: gobobox1.itemindex:=106;
107..107: gobobox1.itemindex:=107;
108..108: gobobox1.itemindex:=108;
109..109: gobobox1.itemindex:=109;
110..110: gobobox1.itemindex:=110;
111..111: gobobox1.itemindex:=111;
112..112: gobobox1.itemindex:=112;
113..113: gobobox1.itemindex:=113;
114..114: gobobox1.itemindex:=114;
115..115: gobobox1.itemindex:=115;
116..116: gobobox1.itemindex:=116;
117..117: gobobox1.itemindex:=117;
118..118: gobobox1.itemindex:=118;
119..119: gobobox1.itemindex:=119;
120..120: gobobox1.itemindex:=120;
121..121: gobobox1.itemindex:=121;
122..122: gobobox1.itemindex:=122;
123..123: gobobox1.itemindex:=123;
124..124: gobobox1.itemindex:=124;
125..125: gobobox1.itemindex:=125;
126..126: gobobox1.itemindex:=126;
127..127: gobobox1.itemindex:=127;
128..128: gobobox1.itemindex:=128;
129..129: gobobox1.itemindex:=129;
130..130: gobobox1.itemindex:=130;
131..131: gobobox1.itemindex:=131;
132..132: gobobox1.itemindex:=132;
133..133: gobobox1.itemindex:=133;
134..134: gobobox1.itemindex:=134;
135..135: gobobox1.itemindex:=135;
136..136: gobobox1.itemindex:=136;
137..137: gobobox1.itemindex:=137;
138..138: gobobox1.itemindex:=138;
139..139: gobobox1.itemindex:=139;
140..140: gobobox1.itemindex:=140;
141..141: gobobox1.itemindex:=141;
142..142: gobobox1.itemindex:=142;
143..143: gobobox1.itemindex:=143;
144..144: gobobox1.itemindex:=144;
145..145: gobobox1.itemindex:=145;
146..146: gobobox1.itemindex:=146;
147..147: gobobox1.itemindex:=147;
148..148: gobobox1.itemindex:=148;
149..149: gobobox1.itemindex:=149;
150..150: gobobox1.itemindex:=150;
151..151: gobobox1.itemindex:=151;
152..152: gobobox1.itemindex:=152;
153..153: gobobox1.itemindex:=153;
154..154: gobobox1.itemindex:=154;
155..155: gobobox1.itemindex:=155;
156..156: gobobox1.itemindex:=156;
157..157: gobobox1.itemindex:=157;
158..158: gobobox1.itemindex:=158;
159..159: gobobox1.itemindex:=159;
160..160: gobobox1.itemindex:=160;
161..161: gobobox1.itemindex:=161;
162..162: gobobox1.itemindex:=162;
163..163: gobobox1.itemindex:=163;
164..164: gobobox1.itemindex:=164;
165..165: gobobox1.itemindex:=165;
166..166: gobobox1.itemindex:=166;
167..167: gobobox1.itemindex:=167;
168..168: gobobox1.itemindex:=168;
169..169: gobobox1.itemindex:=169;
170..170: gobobox1.itemindex:=170;
171..171: gobobox1.itemindex:=171;
172..172: gobobox1.itemindex:=172;
173..173: gobobox1.itemindex:=173;
174..174: gobobox1.itemindex:=174;
175..175: gobobox1.itemindex:=175;
176..176: gobobox1.itemindex:=176;
177..177: gobobox1.itemindex:=177;
178..178: gobobox1.itemindex:=178;
179..179: gobobox1.itemindex:=179;
180..180: gobobox1.itemindex:=180;
181..181: gobobox1.itemindex:=181;
182..182: gobobox1.itemindex:=182;
183..183: gobobox1.itemindex:=183;
184..184: gobobox1.itemindex:=184;
185..185: gobobox1.itemindex:=185;
186..186: gobobox1.itemindex:=186;
187..187: gobobox1.itemindex:=187;
188..188: gobobox1.itemindex:=188;
189..189: gobobox1.itemindex:=189;
190..190: gobobox1.itemindex:=190;
191..191: gobobox1.itemindex:=191;
192..192: gobobox1.itemindex:=192;
193..193: gobobox1.itemindex:=193;
194..194: gobobox1.itemindex:=194;
195..195: gobobox1.itemindex:=195;
196..196: gobobox1.itemindex:=196;
197..197: gobobox1.itemindex:=197;
198..198: gobobox1.itemindex:=198;
199..199: gobobox1.itemindex:=199;
200..200: gobobox1.itemindex:=200;
201..201: gobobox1.itemindex:=201;
202..202: gobobox1.itemindex:=202;
203..203: gobobox1.itemindex:=203;
204..204: gobobox1.itemindex:=204;
205..205: gobobox1.itemindex:=205;
206..206: gobobox1.itemindex:=206;
207..207: gobobox1.itemindex:=207;
208..208: gobobox1.itemindex:=208;
209..209: gobobox1.itemindex:=209;
210..210: gobobox1.itemindex:=210;
211..211: gobobox1.itemindex:=211;
212..212: gobobox1.itemindex:=212;
213..213: gobobox1.itemindex:=213;
214..214: gobobox1.itemindex:=214;
215..215: gobobox1.itemindex:=215;
216..216: gobobox1.itemindex:=216;
217..217: gobobox1.itemindex:=217;
218..218: gobobox1.itemindex:=218;
219..219: gobobox1.itemindex:=219;
220..220: gobobox1.itemindex:=220;
221..221: gobobox1.itemindex:=221;
222..222: gobobox1.itemindex:=222;
223..223: gobobox1.itemindex:=223;
224..224: gobobox1.itemindex:=224;
225..225: gobobox1.itemindex:=225;
226..226: gobobox1.itemindex:=226;
227..227: gobobox1.itemindex:=227;
228..228: gobobox1.itemindex:=228;
229..229: gobobox1.itemindex:=229;
230..230: gobobox1.itemindex:=230;
231..231: gobobox1.itemindex:=231;
232..232: gobobox1.itemindex:=232;
233..233: gobobox1.itemindex:=233;
234..234: gobobox1.itemindex:=234;
235..235: gobobox1.itemindex:=235;
236..236: gobobox1.itemindex:=236;
237..237: gobobox1.itemindex:=237;
238..238: gobobox1.itemindex:=238;
239..239: gobobox1.itemindex:=239;
240..240: gobobox1.itemindex:=240;
241..241: gobobox1.itemindex:=241;
242..242: gobobox1.itemindex:=242;
243..243: gobobox1.itemindex:=243;
244..244: gobobox1.itemindex:=244;
245..245: gobobox1.itemindex:=245;
246..246: gobobox1.itemindex:=246;
247..247: gobobox1.itemindex:=247;
248..248: gobobox1.itemindex:=248;
249..249: gobobox1.itemindex:=249;
250..250: gobobox1.itemindex:=250;
251..251: gobobox1.itemindex:=251;
252..252: gobobox1.itemindex:=252;
253..253: gobobox1.itemindex:=253;
254..254: gobobox1.itemindex:=254;
255..255: gobobox1.itemindex:=255;
end;
end;
8:
begin
SPECIAL3slider8.position:=get_channel('SPECIAL3');
end;
9:
begin
GOBO1ROTslider9.position:=get_channel('GOBO1ROT');
end;
10:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
11:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
12:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
13:
begin
//SPECIAL10slider13.position:=get_channel('SPECIAL10');
end;
14:
begin
PANFINEslider14.position:=get_channel('PANFINE');
end;
15:
begin
TILTFINEslider15.position:=get_channel('TILTFINE');
end;
16:
begin
SPECIAL4slider16.position:=get_channel('SPECIAL4');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure PositionXYChange(Top, Left: Integer);
var
phi,r,x,y:Double;
pan, tilt, panfine, tiltfine:Double;
begin
if usemhcontrol.checked then
begin
// Moving-Head-Steuerung (Polarkoordinaten)
x:=((PositionXY.Left+(PositionXY.Width div 2)-(fadenkreuz.Width/2))/fadenkreuz.Width)*2; //-1..0..1
y:=((PositionXY.Top+(PositionXY.Height div 2)-(fadenkreuz.Width/2))/fadenkreuz.Height)*2; //-1..0..1
r:=sqrt(x*x+y*y);
if (r>0) then
begin
if (y>=0) then
phi:=arccos(x/r)
else
phi:=6.283185307179586476925286766559-arccos(x/r);
end else
phi:=64;
r:=128-((r/2)*255);
phi:=(phi/6.283185307179586476925286766559)*255;
if 64>=phi then
phi:=phi+191
else
phi:=phi-64;
pan:=255-phi;
tilt:=255-r;
end else
begin
// Scannersteuerung (Kartesische Koordinaten)
pan:=((PositionXY.Left+(PositionXY.Width div 2))/fadenkreuz.Width)*255;
tilt:=((PositionXY.Top+(PositionXY.Height div 2))/fadenkreuz.Height)*255;
end;
// Ausgabe
if panmirror.checked then
begin
dontrefresh:=true;
set_channel('pan',trunc(255-pan),trunc(255-pan),0);
dontrefresh:=true;
set_channel('panfine',trunc(frac(255-pan)*255),trunc(frac(255-pan)*255),0);
end else
begin
dontrefresh:=true;
set_channel('pan',trunc(pan),trunc(pan),0);
dontrefresh:=true;
set_channel('panfine',trunc(frac(pan)*255),trunc(frac(pan)*255),0);
end;
if tiltmirror.checked then
begin
dontrefresh:=true;
set_channel('tilt',trunc(255-tilt),trunc(255-tilt),0);
dontrefresh:=true;
set_channel('tiltfine',trunc(frac(255-tilt)*255),trunc(frac(255-tilt)*255),0);
end else
begin
dontrefresh:=true;
set_channel('tilt',trunc(tilt),trunc(tilt),0);
dontrefresh:=true;
set_channel('tiltfine',trunc(frac(tilt)*255),trunc(frac(tilt)*255),0);
end;
end;
procedure GOBO2ROTchange;
begin
DontRefresh:=true;
set_channel('GOBO2ROT',-1,GOBO2ROTslider2.position,0);
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider3.position,0);
end;
procedure SPECIAL2change;
begin
DontRefresh:=true;
set_channel('SPECIAL2',-1,SPECIAL2slider4.position,0);
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider5.position,0);
end;
procedure SPEEDchange;
begin
DontRefresh:=true;
set_channel('SPEED',-1,SPEEDslider6.position,0);
end;
procedure GOBO1change;
begin
case gobobox1.itemindex of
0: set_channel('gobo1', -1, 0, 0);
1: set_channel('gobo1', -1, 1, 1);
2: set_channel('gobo1', -1, 2, 2);
3: set_channel('gobo1', -1, 3, 3);
4: set_channel('gobo1', -1, 4, 4);
5: set_channel('gobo1', -1, 5, 5);
6: set_channel('gobo1', -1, 6, 6);
7: set_channel('gobo1', -1, 7, 7);
8: set_channel('gobo1', -1, 8, 8);
9: set_channel('gobo1', -1, 9, 9);
10: set_channel('gobo1', -1, 10, 10);
11: set_channel('gobo1', -1, 11, 11);
12: set_channel('gobo1', -1, 12, 12);
13: set_channel('gobo1', -1, 13, 13);
14: set_channel('gobo1', -1, 14, 14);
15: set_channel('gobo1', -1, 15, 15);
16: set_channel('gobo1', -1, 16, 16);
17: set_channel('gobo1', -1, 17, 17);
18: set_channel('gobo1', -1, 18, 18);
19: set_channel('gobo1', -1, 19, 19);
20: set_channel('gobo1', -1, 20, 20);
21: set_channel('gobo1', -1, 21, 21);
22: set_channel('gobo1', -1, 22, 22);
23: set_channel('gobo1', -1, 23, 23);
24: set_channel('gobo1', -1, 24, 24);
25: set_channel('gobo1', -1, 25, 25);
26: set_channel('gobo1', -1, 26, 26);
27: set_channel('gobo1', -1, 27, 27);
28: set_channel('gobo1', -1, 28, 28);
29: set_channel('gobo1', -1, 29, 29);
30: set_channel('gobo1', -1, 30, 30);
31: set_channel('gobo1', -1, 31, 31);
32: set_channel('gobo1', -1, 32, 32);
33: set_channel('gobo1', -1, 33, 33);
34: set_channel('gobo1', -1, 34, 34);
35: set_channel('gobo1', -1, 35, 35);
36: set_channel('gobo1', -1, 36, 36);
37: set_channel('gobo1', -1, 37, 37);
38: set_channel('gobo1', -1, 38, 38);
39: set_channel('gobo1', -1, 39, 39);
40: set_channel('gobo1', -1, 40, 40);
41: set_channel('gobo1', -1, 41, 41);
42: set_channel('gobo1', -1, 42, 42);
43: set_channel('gobo1', -1, 43, 43);
44: set_channel('gobo1', -1, 44, 44);
45: set_channel('gobo1', -1, 45, 45);
46: set_channel('gobo1', -1, 46, 46);
47: set_channel('gobo1', -1, 47, 47);
48: set_channel('gobo1', -1, 48, 48);
49: set_channel('gobo1', -1, 49, 49);
50: set_channel('gobo1', -1, 50, 50);
51: set_channel('gobo1', -1, 51, 51);
52: set_channel('gobo1', -1, 52, 52);
53: set_channel('gobo1', -1, 53, 53);
54: set_channel('gobo1', -1, 54, 54);
55: set_channel('gobo1', -1, 55, 55);
56: set_channel('gobo1', -1, 56, 56);
57: set_channel('gobo1', -1, 57, 57);
58: set_channel('gobo1', -1, 58, 58);
59: set_channel('gobo1', -1, 59, 59);
60: set_channel('gobo1', -1, 60, 60);
61: set_channel('gobo1', -1, 61, 61);
62: set_channel('gobo1', -1, 62, 62);
63: set_channel('gobo1', -1, 63, 63);
64: set_channel('gobo1', -1, 64, 64);
65: set_channel('gobo1', -1, 65, 65);
66: set_channel('gobo1', -1, 66, 66);
67: set_channel('gobo1', -1, 67, 67);
68: set_channel('gobo1', -1, 68, 68);
69: set_channel('gobo1', -1, 69, 69);
70: set_channel('gobo1', -1, 70, 70);
71: set_channel('gobo1', -1, 71, 71);
72: set_channel('gobo1', -1, 72, 72);
73: set_channel('gobo1', -1, 73, 73);
74: set_channel('gobo1', -1, 74, 74);
75: set_channel('gobo1', -1, 75, 75);
76: set_channel('gobo1', -1, 76, 76);
77: set_channel('gobo1', -1, 77, 77);
78: set_channel('gobo1', -1, 78, 78);
79: set_channel('gobo1', -1, 79, 79);
80: set_channel('gobo1', -1, 80, 80);
81: set_channel('gobo1', -1, 81, 81);
82: set_channel('gobo1', -1, 82, 82);
83: set_channel('gobo1', -1, 83, 83);
84: set_channel('gobo1', -1, 84, 84);
85: set_channel('gobo1', -1, 85, 85);
86: set_channel('gobo1', -1, 86, 86);
87: set_channel('gobo1', -1, 87, 87);
88: set_channel('gobo1', -1, 88, 88);
89: set_channel('gobo1', -1, 89, 89);
90: set_channel('gobo1', -1, 90, 90);
91: set_channel('gobo1', -1, 91, 91);
92: set_channel('gobo1', -1, 92, 92);
93: set_channel('gobo1', -1, 93, 93);
94: set_channel('gobo1', -1, 94, 94);
95: set_channel('gobo1', -1, 95, 95);
96: set_channel('gobo1', -1, 96, 96);
97: set_channel('gobo1', -1, 97, 97);
98: set_channel('gobo1', -1, 98, 98);
99: set_channel('gobo1', -1, 99, 99);
100: set_channel('gobo1', -1, 100, 100);
101: set_channel('gobo1', -1, 101, 101);
102: set_channel('gobo1', -1, 102, 102);
103: set_channel('gobo1', -1, 103, 103);
104: set_channel('gobo1', -1, 104, 104);
105: set_channel('gobo1', -1, 105, 105);
106: set_channel('gobo1', -1, 106, 106);
107: set_channel('gobo1', -1, 107, 107);
108: set_channel('gobo1', -1, 108, 108);
109: set_channel('gobo1', -1, 109, 109);
110: set_channel('gobo1', -1, 110, 110);
111: set_channel('gobo1', -1, 111, 111);
112: set_channel('gobo1', -1, 112, 112);
113: set_channel('gobo1', -1, 113, 113);
114: set_channel('gobo1', -1, 114, 114);
115: set_channel('gobo1', -1, 115, 115);
116: set_channel('gobo1', -1, 116, 116);
117: set_channel('gobo1', -1, 117, 117);
118: set_channel('gobo1', -1, 118, 118);
119: set_channel('gobo1', -1, 119, 119);
120: set_channel('gobo1', -1, 120, 120);
121: set_channel('gobo1', -1, 121, 121);
122: set_channel('gobo1', -1, 122, 122);
123: set_channel('gobo1', -1, 123, 123);
124: set_channel('gobo1', -1, 124, 124);
125: set_channel('gobo1', -1, 125, 125);
126: set_channel('gobo1', -1, 126, 126);
127: set_channel('gobo1', -1, 127, 127);
128: set_channel('gobo1', -1, 128, 128);
129: set_channel('gobo1', -1, 129, 129);
130: set_channel('gobo1', -1, 130, 130);
131: set_channel('gobo1', -1, 131, 131);
132: set_channel('gobo1', -1, 132, 132);
133: set_channel('gobo1', -1, 133, 133);
134: set_channel('gobo1', -1, 134, 134);
135: set_channel('gobo1', -1, 135, 135);
136: set_channel('gobo1', -1, 136, 136);
137: set_channel('gobo1', -1, 137, 137);
138: set_channel('gobo1', -1, 138, 138);
139: set_channel('gobo1', -1, 139, 139);
140: set_channel('gobo1', -1, 140, 140);
141: set_channel('gobo1', -1, 141, 141);
142: set_channel('gobo1', -1, 142, 142);
143: set_channel('gobo1', -1, 143, 143);
144: set_channel('gobo1', -1, 144, 144);
145: set_channel('gobo1', -1, 145, 145);
146: set_channel('gobo1', -1, 146, 146);
147: set_channel('gobo1', -1, 147, 147);
148: set_channel('gobo1', -1, 148, 148);
149: set_channel('gobo1', -1, 149, 149);
150: set_channel('gobo1', -1, 150, 150);
151: set_channel('gobo1', -1, 151, 151);
152: set_channel('gobo1', -1, 152, 152);
153: set_channel('gobo1', -1, 153, 153);
154: set_channel('gobo1', -1, 154, 154);
155: set_channel('gobo1', -1, 155, 155);
156: set_channel('gobo1', -1, 156, 156);
157: set_channel('gobo1', -1, 157, 157);
158: set_channel('gobo1', -1, 158, 158);
159: set_channel('gobo1', -1, 159, 159);
160: set_channel('gobo1', -1, 160, 160);
161: set_channel('gobo1', -1, 161, 161);
162: set_channel('gobo1', -1, 162, 162);
163: set_channel('gobo1', -1, 163, 163);
164: set_channel('gobo1', -1, 164, 164);
165: set_channel('gobo1', -1, 165, 165);
166: set_channel('gobo1', -1, 166, 166);
167: set_channel('gobo1', -1, 167, 167);
168: set_channel('gobo1', -1, 168, 168);
169: set_channel('gobo1', -1, 169, 169);
170: set_channel('gobo1', -1, 170, 170);
171: set_channel('gobo1', -1, 171, 171);
172: set_channel('gobo1', -1, 172, 172);
173: set_channel('gobo1', -1, 173, 173);
174: set_channel('gobo1', -1, 174, 174);
175: set_channel('gobo1', -1, 175, 175);
176: set_channel('gobo1', -1, 176, 176);
177: set_channel('gobo1', -1, 177, 177);
178: set_channel('gobo1', -1, 178, 178);
179: set_channel('gobo1', -1, 179, 179);
180: set_channel('gobo1', -1, 180, 180);
181: set_channel('gobo1', -1, 181, 181);
182: set_channel('gobo1', -1, 182, 182);
183: set_channel('gobo1', -1, 183, 183);
184: set_channel('gobo1', -1, 184, 184);
185: set_channel('gobo1', -1, 185, 185);
186: set_channel('gobo1', -1, 186, 186);
187: set_channel('gobo1', -1, 187, 187);
188: set_channel('gobo1', -1, 188, 188);
189: set_channel('gobo1', -1, 189, 189);
190: set_channel('gobo1', -1, 190, 190);
191: set_channel('gobo1', -1, 191, 191);
192: set_channel('gobo1', -1, 192, 192);
193: set_channel('gobo1', -1, 193, 193);
194: set_channel('gobo1', -1, 194, 194);
195: set_channel('gobo1', -1, 195, 195);
196: set_channel('gobo1', -1, 196, 196);
197: set_channel('gobo1', -1, 197, 197);
198: set_channel('gobo1', -1, 198, 198);
199: set_channel('gobo1', -1, 199, 199);
200: set_channel('gobo1', -1, 200, 200);
201: set_channel('gobo1', -1, 201, 201);
202: set_channel('gobo1', -1, 202, 202);
203: set_channel('gobo1', -1, 203, 203);
204: set_channel('gobo1', -1, 204, 204);
205: set_channel('gobo1', -1, 205, 205);
206: set_channel('gobo1', -1, 206, 206);
207: set_channel('gobo1', -1, 207, 207);
208: set_channel('gobo1', -1, 208, 208);
209: set_channel('gobo1', -1, 209, 209);
210: set_channel('gobo1', -1, 210, 210);
211: set_channel('gobo1', -1, 211, 211);
212: set_channel('gobo1', -1, 212, 212);
213: set_channel('gobo1', -1, 213, 213);
214: set_channel('gobo1', -1, 214, 214);
215: set_channel('gobo1', -1, 215, 215);
216: set_channel('gobo1', -1, 216, 216);
217: set_channel('gobo1', -1, 217, 217);
218: set_channel('gobo1', -1, 218, 218);
219: set_channel('gobo1', -1, 219, 219);
220: set_channel('gobo1', -1, 220, 220);
221: set_channel('gobo1', -1, 221, 221);
222: set_channel('gobo1', -1, 222, 222);
223: set_channel('gobo1', -1, 223, 223);
224: set_channel('gobo1', -1, 224, 224);
225: set_channel('gobo1', -1, 225, 225);
226: set_channel('gobo1', -1, 226, 226);
227: set_channel('gobo1', -1, 227, 227);
228: set_channel('gobo1', -1, 228, 228);
229: set_channel('gobo1', -1, 229, 229);
230: set_channel('gobo1', -1, 230, 230);
231: set_channel('gobo1', -1, 231, 231);
232: set_channel('gobo1', -1, 232, 232);
233: set_channel('gobo1', -1, 233, 233);
234: set_channel('gobo1', -1, 234, 234);
235: set_channel('gobo1', -1, 235, 235);
236: set_channel('gobo1', -1, 236, 236);
237: set_channel('gobo1', -1, 237, 237);
238: set_channel('gobo1', -1, 238, 238);
239: set_channel('gobo1', -1, 239, 239);
240: set_channel('gobo1', -1, 240, 240);
241: set_channel('gobo1', -1, 241, 241);
242: set_channel('gobo1', -1, 242, 242);
243: set_channel('gobo1', -1, 243, 243);
244: set_channel('gobo1', -1, 244, 244);
245: set_channel('gobo1', -1, 245, 245);
246: set_channel('gobo1', -1, 246, 246);
247: set_channel('gobo1', -1, 247, 247);
248: set_channel('gobo1', -1, 248, 248);
249: set_channel('gobo1', -1, 249, 249);
250: set_channel('gobo1', -1, 250, 250);
251: set_channel('gobo1', -1, 251, 251);
252: set_channel('gobo1', -1, 252, 252);
253: set_channel('gobo1', -1, 253, 253);
254: set_channel('gobo1', -1, 254, 254);
255: set_channel('gobo1', -1, 255, 255);
end;
end;
procedure SPECIAL3change;
begin
DontRefresh:=true;
set_channel('SPECIAL3',-1,SPECIAL3slider8.position,0);
end;
procedure GOBO1ROTchange;
begin
DontRefresh:=true;
set_channel('GOBO1ROT',-1,GOBO1ROTslider9.position,0);
end;
procedure ColorPickerChange(R, G, B: Byte);
begin
set_channel('r',-1,r,0);
set_channel('g',-1,g,0);
set_channel('b',-1,b,0);
end;
procedure SwitchColorPicker;
begin
if colorpicker.visible then
begin
colorpicker.visible:=false;
colorpicker2.visible:=true;
end else
begin
colorpicker.visible:=true;
colorpicker2.visible:=false;
end;
end;
procedure PANFINEchange;
begin
DontRefresh:=true;
set_channel('PANFINE',-1,PANFINEslider14.position,0);
end;
procedure TILTFINEchange;
begin
DontRefresh:=true;
set_channel('TILTFINE',-1,TILTFINEslider15.position,0);
end;
procedure SPECIAL4change;
begin
DontRefresh:=true;
set_channel('SPECIAL4',-1,SPECIAL4slider16.position,0);
end;
procedure laseraus;
begin
set_channel('DIMMER', 0, 0, 0);
set_channel('r', 0, 0, 0);
set_channel('g', 0, 0, 0);
set_channel('b', 0, 0, 0);
end;
end.