RoboColor3
0 Disko
Torsten und Uwe
RoboColor
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure optionchange;
procedure ColorBoxChange;
procedure ColorBoxChange2;
procedure GOBO1change;
procedure GOBO2change;
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
optionslider0.position:=get_channel('option')
end;
1:
begin
value:=get_channel('color1');
case value of
0..0: colorbox.itemindex:=0;
1..7: colorbox.itemindex:=1;
8..15: colorbox.itemindex:=2;
16..22: colorbox.itemindex:=3;
23..30: colorbox.itemindex:=4;
31..37: colorbox.itemindex:=5;
38..45: colorbox.itemindex:=6;
46..52: colorbox.itemindex:=7;
53..60: colorbox.itemindex:=8;
61..67: colorbox.itemindex:=9;
68..75: colorbox.itemindex:=10;
76..82: colorbox.itemindex:=11;
83..90: colorbox.itemindex:=12;
91..97: colorbox.itemindex:=13;
98..105: colorbox.itemindex:=14;
106..112: colorbox.itemindex:=15;
113..120: colorbox.itemindex:=16;
121..127: colorbox.itemindex:=17;
128..135: colorbox.itemindex:=18;
136..142: colorbox.itemindex:=19;
143..150: colorbox.itemindex:=20;
151..157: colorbox.itemindex:=21;
158..165: colorbox.itemindex:=22;
166..172: colorbox.itemindex:=23;
173..182: colorbox.itemindex:=24;
183..187: colorbox.itemindex:=25;
188..192: colorbox.itemindex:=26;
193..197: colorbox.itemindex:=27;
198..202: colorbox.itemindex:=28;
203..207: colorbox.itemindex:=29;
208..212: colorbox.itemindex:=30;
213..217: colorbox.itemindex:=31;
218..222: colorbox.itemindex:=32;
223..227: colorbox.itemindex:=33;
228..232: colorbox.itemindex:=34;
233..237: colorbox.itemindex:=35;
238..247: colorbox.itemindex:=36;
end;
end;
2:
begin
value:=get_channel('color2');
case value of
0..0: colorbox2.itemindex:=0;
1..7: colorbox2.itemindex:=1;
8..15: colorbox2.itemindex:=2;
16..22: colorbox2.itemindex:=3;
23..30: colorbox2.itemindex:=4;
31..37: colorbox2.itemindex:=5;
38..45: colorbox2.itemindex:=6;
46..52: colorbox2.itemindex:=7;
53..60: colorbox2.itemindex:=8;
61..67: colorbox2.itemindex:=9;
68..75: colorbox2.itemindex:=10;
76..82: colorbox2.itemindex:=11;
83..90: colorbox2.itemindex:=12;
91..97: colorbox2.itemindex:=13;
98..105: colorbox2.itemindex:=14;
106..112: colorbox2.itemindex:=15;
113..120: colorbox2.itemindex:=16;
121..127: colorbox2.itemindex:=17;
128..135: colorbox2.itemindex:=18;
136..142: colorbox2.itemindex:=19;
143..150: colorbox2.itemindex:=20;
151..157: colorbox2.itemindex:=21;
158..165: colorbox2.itemindex:=22;
166..172: colorbox2.itemindex:=23;
173..182: colorbox2.itemindex:=24;
183..187: colorbox2.itemindex:=25;
188..192: colorbox2.itemindex:=26;
193..197: colorbox2.itemindex:=27;
198..202: colorbox2.itemindex:=28;
203..207: colorbox2.itemindex:=29;
208..212: colorbox2.itemindex:=30;
213..217: colorbox2.itemindex:=31;
218..222: colorbox2.itemindex:=32;
223..227: colorbox2.itemindex:=33;
228..232: colorbox2.itemindex:=34;
233..237: colorbox2.itemindex:=35;
238..247: colorbox2.itemindex:=36;
end;
end;
3:
begin
value:=get_channel('gobo1');
case value of
0..7: gobobox1.itemindex:=0;
0..0: gobobox1.itemindex:=1;
0..0: gobobox1.itemindex:=2;
0..0: gobobox1.itemindex:=3;
0..0: gobobox1.itemindex:=4;
0..0: gobobox1.itemindex:=5;
0..0: gobobox1.itemindex:=6;
0..0: gobobox1.itemindex:=7;
0..0: gobobox1.itemindex:=8;
0..0: gobobox1.itemindex:=9;
0..0: gobobox1.itemindex:=10;
0..0: gobobox1.itemindex:=11;
0..0: gobobox1.itemindex:=12;
0..0: gobobox1.itemindex:=13;
0..0: gobobox1.itemindex:=14;
0..0: gobobox1.itemindex:=15;
0..0: gobobox1.itemindex:=16;
0..0: gobobox1.itemindex:=17;
0..0: gobobox1.itemindex:=18;
0..0: gobobox1.itemindex:=19;
0..0: gobobox1.itemindex:=20;
0..0: gobobox1.itemindex:=21;
0..0: gobobox1.itemindex:=22;
0..0: gobobox1.itemindex:=23;
0..0: gobobox1.itemindex:=24;
0..0: gobobox1.itemindex:=25;
0..0: gobobox1.itemindex:=26;
0..0: gobobox1.itemindex:=27;
0..0: gobobox1.itemindex:=28;
0..0: gobobox1.itemindex:=29;
0..0: gobobox1.itemindex:=30;
0..0: gobobox1.itemindex:=31;
0..0: gobobox1.itemindex:=32;
0..0: gobobox1.itemindex:=33;
0..0: gobobox1.itemindex:=34;
0..0: gobobox1.itemindex:=35;
0..0: gobobox1.itemindex:=36;
end;
end;
4:
begin
value:=get_channel('gobo2');
case value of
0..7: gobobox2.itemindex:=0;
0..0: gobobox2.itemindex:=1;
0..0: gobobox2.itemindex:=2;
0..0: gobobox2.itemindex:=3;
0..0: gobobox2.itemindex:=4;
0..0: gobobox2.itemindex:=5;
0..0: gobobox2.itemindex:=6;
0..0: gobobox2.itemindex:=7;
0..0: gobobox2.itemindex:=8;
0..0: gobobox2.itemindex:=9;
0..0: gobobox2.itemindex:=10;
0..0: gobobox2.itemindex:=11;
0..0: gobobox2.itemindex:=12;
0..0: gobobox2.itemindex:=13;
0..0: gobobox2.itemindex:=14;
0..0: gobobox2.itemindex:=15;
0..0: gobobox2.itemindex:=16;
0..0: gobobox2.itemindex:=17;
0..0: gobobox2.itemindex:=18;
0..0: gobobox2.itemindex:=19;
0..0: gobobox2.itemindex:=20;
0..0: gobobox2.itemindex:=21;
0..0: gobobox2.itemindex:=22;
0..0: gobobox2.itemindex:=23;
0..0: gobobox2.itemindex:=24;
0..0: gobobox2.itemindex:=25;
0..0: gobobox2.itemindex:=26;
0..0: gobobox2.itemindex:=27;
0..0: gobobox2.itemindex:=28;
0..0: gobobox2.itemindex:=29;
0..0: gobobox2.itemindex:=30;
0..0: gobobox2.itemindex:=31;
0..0: gobobox2.itemindex:=32;
0..0: gobobox2.itemindex:=33;
0..0: gobobox2.itemindex:=34;
0..0: gobobox2.itemindex:=35;
0..0: gobobox2.itemindex:=36;
end;
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure optionchange;
begin
DontRefresh:=true;
set_channel('option',-1,optionslider0.position,0);
end;
procedure ColorBoxChange;
begin
case colorbox.itemindex of
0: set_channel('color1', -1, 0, 0);
1: set_channel('color1', -1, 1, 0);
2: set_channel('color1', -1, 8, 0);
3: set_channel('color1', -1, 16, 0);
4: set_channel('color1', -1, 23, 0);
5: set_channel('color1', -1, 31, 0);
6: set_channel('color1', -1, 38, 0);
7: set_channel('color1', -1, 46, 0);
8: set_channel('color1', -1, 53, 0);
9: set_channel('color1', -1, 61, 0);
10: set_channel('color1', -1, 68, 0);
11: set_channel('color1', -1, 76, 0);
12: set_channel('color1', -1, 83, 0);
13: set_channel('color1', -1, 91, 0);
14: set_channel('color1', -1, 98, 0);
15: set_channel('color1', -1, 106, 0);
16: set_channel('color1', -1, 113, 0);
17: set_channel('color1', -1, 121, 0);
18: set_channel('color1', -1, 128, 0);
19: set_channel('color1', -1, 136, 0);
20: set_channel('color1', -1, 143, 0);
21: set_channel('color1', -1, 151, 0);
22: set_channel('color1', -1, 158, 0);
23: set_channel('color1', -1, 166, 0);
24: set_channel('color1', -1, 173, 0);
25: set_channel('color1', -1, 183, 0);
26: set_channel('color1', -1, 188, 0);
27: set_channel('color1', -1, 193, 0);
28: set_channel('color1', -1, 198, 0);
29: set_channel('color1', -1, 203, 0);
30: set_channel('color1', -1, 208, 0);
31: set_channel('color1', -1, 213, 0);
32: set_channel('color1', -1, 218, 0);
33: set_channel('color1', -1, 223, 0);
34: set_channel('color1', -1, 228, 0);
35: set_channel('color1', -1, 233, 0);
36: set_channel('color1', -1, 238, 0);
end;
end;
procedure ColorBoxChange2;
begin
case colorbox2.itemindex of
0: set_channel('color2', -1, 0, 0);
1: set_channel('color2', -1, 1, 0);
2: set_channel('color2', -1, 8, 0);
3: set_channel('color2', -1, 16, 0);
4: set_channel('color2', -1, 23, 0);
5: set_channel('color2', -1, 31, 0);
6: set_channel('color2', -1, 38, 0);
7: set_channel('color2', -1, 46, 0);
8: set_channel('color2', -1, 53, 0);
9: set_channel('color2', -1, 61, 0);
10: set_channel('color2', -1, 68, 0);
11: set_channel('color2', -1, 76, 0);
12: set_channel('color2', -1, 83, 0);
13: set_channel('color2', -1, 91, 0);
14: set_channel('color2', -1, 98, 0);
15: set_channel('color2', -1, 106, 0);
16: set_channel('color2', -1, 113, 0);
17: set_channel('color2', -1, 121, 0);
18: set_channel('color2', -1, 128, 0);
19: set_channel('color2', -1, 136, 0);
20: set_channel('color2', -1, 143, 0);
21: set_channel('color2', -1, 151, 0);
22: set_channel('color2', -1, 158, 0);
23: set_channel('color2', -1, 166, 0);
24: set_channel('color2', -1, 173, 0);
25: set_channel('color2', -1, 183, 0);
26: set_channel('color2', -1, 188, 0);
27: set_channel('color2', -1, 193, 0);
28: set_channel('color2', -1, 198, 0);
29: set_channel('color2', -1, 203, 0);
30: set_channel('color2', -1, 208, 0);
31: set_channel('color2', -1, 213, 0);
32: set_channel('color2', -1, 218, 0);
33: set_channel('color2', -1, 223, 0);
34: set_channel('color2', -1, 228, 0);
35: set_channel('color2', -1, 233, 0);
36: set_channel('color2', -1, 238, 0);
end;
end;
procedure GOBO1change;
begin
case gobobox1.itemindex of
0: set_channel('gobo1', -1, 0, 0);
1: set_channel('gobo1', -1, 0, 0);
2: set_channel('gobo1', -1, 0, 0);
3: set_channel('gobo1', -1, 0, 0);
4: set_channel('gobo1', -1, 0, 0);
5: set_channel('gobo1', -1, 0, 0);
6: set_channel('gobo1', -1, 0, 0);
7: set_channel('gobo1', -1, 0, 0);
8: set_channel('gobo1', -1, 0, 0);
9: set_channel('gobo1', -1, 0, 0);
10: set_channel('gobo1', -1, 0, 0);
11: set_channel('gobo1', -1, 0, 0);
12: set_channel('gobo1', -1, 0, 0);
13: set_channel('gobo1', -1, 0, 0);
14: set_channel('gobo1', -1, 0, 0);
15: set_channel('gobo1', -1, 0, 0);
16: set_channel('gobo1', -1, 0, 0);
17: set_channel('gobo1', -1, 0, 0);
18: set_channel('gobo1', -1, 0, 0);
19: set_channel('gobo1', -1, 0, 0);
20: set_channel('gobo1', -1, 0, 0);
21: set_channel('gobo1', -1, 0, 0);
22: set_channel('gobo1', -1, 0, 0);
23: set_channel('gobo1', -1, 0, 0);
24: set_channel('gobo1', -1, 0, 0);
25: set_channel('gobo1', -1, 0, 0);
26: set_channel('gobo1', -1, 0, 0);
27: set_channel('gobo1', -1, 0, 0);
28: set_channel('gobo1', -1, 0, 0);
29: set_channel('gobo1', -1, 0, 0);
30: set_channel('gobo1', -1, 0, 0);
31: set_channel('gobo1', -1, 0, 0);
32: set_channel('gobo1', -1, 0, 0);
33: set_channel('gobo1', -1, 0, 0);
34: set_channel('gobo1', -1, 0, 0);
35: set_channel('gobo1', -1, 0, 0);
36: set_channel('gobo1', -1, 0, 0);
end;
end;
procedure GOBO2change;
begin
case gobobox2.itemindex of
0: set_channel('gobo2', -1, 0, 0);
1: set_channel('gobo2', -1, 0, 0);
2: set_channel('gobo2', -1, 0, 0);
3: set_channel('gobo2', -1, 0, 0);
4: set_channel('gobo2', -1, 0, 0);
5: set_channel('gobo2', -1, 0, 0);
6: set_channel('gobo2', -1, 0, 0);
7: set_channel('gobo2', -1, 0, 0);
8: set_channel('gobo2', -1, 0, 0);
9: set_channel('gobo2', -1, 0, 0);
10: set_channel('gobo2', -1, 0, 0);
11: set_channel('gobo2', -1, 0, 0);
12: set_channel('gobo2', -1, 0, 0);
13: set_channel('gobo2', -1, 0, 0);
14: set_channel('gobo2', -1, 0, 0);
15: set_channel('gobo2', -1, 0, 0);
16: set_channel('gobo2', -1, 0, 0);
17: set_channel('gobo2', -1, 0, 0);
18: set_channel('gobo2', -1, 0, 0);
19: set_channel('gobo2', -1, 0, 0);
20: set_channel('gobo2', -1, 0, 0);
21: set_channel('gobo2', -1, 0, 0);
22: set_channel('gobo2', -1, 0, 0);
23: set_channel('gobo2', -1, 0, 0);
24: set_channel('gobo2', -1, 0, 0);
25: set_channel('gobo2', -1, 0, 0);
26: set_channel('gobo2', -1, 0, 0);
27: set_channel('gobo2', -1, 0, 0);
28: set_channel('gobo2', -1, 0, 0);
29: set_channel('gobo2', -1, 0, 0);
30: set_channel('gobo2', -1, 0, 0);
31: set_channel('gobo2', -1, 0, 0);
32: set_channel('gobo2', -1, 0, 0);
33: set_channel('gobo2', -1, 0, 0);
34: set_channel('gobo2', -1, 0, 0);
35: set_channel('gobo2', -1, 0, 0);
36: set_channel('gobo2', -1, 0, 0);
end;
end;
end.