Techno Derby
Showtec
Kai Schneider
Techno Derby
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure ColorBoxChange;
procedure SHUTTERchange;
procedure MOVESchange;
procedure OPTIONchange;
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
value:=get_channel('color1');
case value of
0..5: colorbox.itemindex:=0;
6..20: colorbox.itemindex:=1;
21..35: colorbox.itemindex:=2;
36..50: colorbox.itemindex:=3;
51..65: colorbox.itemindex:=4;
66..80: colorbox.itemindex:=5;
81..95: colorbox.itemindex:=6;
96..110: colorbox.itemindex:=7;
111..125: colorbox.itemindex:=8;
126..140: colorbox.itemindex:=9;
141..155: colorbox.itemindex:=10;
156..170: colorbox.itemindex:=11;
171..185: colorbox.itemindex:=12;
186..200: colorbox.itemindex:=13;
201..215: colorbox.itemindex:=14;
216..229: colorbox.itemindex:=15;
230..255: colorbox.itemindex:=16;
end;
end;
1:
begin
SHUTTERslider1.position:=get_channel('SHUTTER');
end;
2:
begin
MOVESslider2.position:=get_channel('MOVES');
end;
3:
begin
OPTIONslider3.position:=get_channel('OPTION');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure ColorBoxChange;
begin
case colorbox.itemindex of
0: set_channel('color1', -1, 0, 0);
1: set_channel('color1', -1, 6, 0);
2: set_channel('color1', -1, 21, 0);
3: set_channel('color1', -1, 36, 0);
4: set_channel('color1', -1, 51, 0);
5: set_channel('color1', -1, 66, 0);
6: set_channel('color1', -1, 81, 0);
7: set_channel('color1', -1, 96, 0);
8: set_channel('color1', -1, 111, 0);
9: set_channel('color1', -1, 126, 0);
10: set_channel('color1', -1, 141, 0);
11: set_channel('color1', -1, 156, 0);
12: set_channel('color1', -1, 171, 0);
13: set_channel('color1', -1, 186, 0);
14: set_channel('color1', -1, 201, 0);
15: set_channel('color1', -1, 216, 0);
16: set_channel('color1', -1, 230, 0);
end;
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider1.position,0);
end;
procedure MOVESchange;
begin
DontRefresh:=true;
set_channel('MOVES',-1,MOVESslider2.position,0);
end;
procedure OPTIONchange;
begin
DontRefresh:=true;
set_channel('OPTION',-1,OPTIONslider3.position,0);
end;
end.