<?xml version="1.0"?>
<device image="Ts-7b.gif" initsequence="set 0 128;set 1 128;set 2 0;set 3 0;set 4 255;set 5 0">
  <information>
    <name>TS 7B</name>
    <vendor>Eurolite</vendor>
    <author>Olivier Hostettler</author>
  </information>
  <channels>
    <function channel="0" minvalue="0" maxvalue="255" name="Pan" fade="yes" type="pan" />
    <function channel="1" minvalue="0" maxvalue="255" name="Tilt" fade="yes" type="tilt" />
    <function channel="2" minvalue="0" maxvalue="255" name="Gobo" fade="no" type="gobo" />
    <function channel="3" minvalue="0" maxvalue="255" name="Farbe" fade="no" type="color" />
    <function channel="4" minvalue="0" maxvalue="255" name="Shutter" fade="no" type="shutter" action="GetShutter" />
    <function channel="5" minvalue="0" maxvalue="255" name="Helligkeit" fade="yes" type="dimmer" />
  </channels>
  <form width="201" height="395">
    <deviceimage top="0" left="0" width="33" height="33" />
    <devicename top="0" left="40" width="150" height="17" />
    <deviceadress top="16" left="40" width="100" height="17" />
    <position top="40" left="8" height="177" width="177" />
    <label top="224" left="0" caption="Farbe:" />
    <dropdown top="280" left="8" width="165" name="color_color" channel="2">
      <item caption="Offen" value="0" />
      <item caption="Gobo 1" value="18" />
      <item caption="Gobo 2" value="36" />
      <item caption="Gobo 3" value="54" />
      <item caption="Gobo 4" value="72" />
      <item caption="Gobo 5" value="90" />
      <item caption="Gobo 6" value="108" />
      <item caption="Gobo 7" value="126" />
      <item caption="Gobo 8" value="144" />
      <item caption="Gobo 9" value="162" />
      <item caption="Gobo 10" value="180" />
      <item caption="Gobo 11" value="198" />
      <item caption="Gobo 12" value="216" />
      <item caption="Gobo 13" value="234" />
      <item caption="Gobo 14" value="252" />
    </dropdown>
    <label top="264" left="0" caption="Gobo:" />
    <dropdown top="240" left="8" width="165" name="gobos_gobo" channel="3">
      <item caption="Offen/Weiss" value="0" />
      <item caption="Gelb" value="18" />
      <item caption="Rosa" value="36" />
      <item caption="Grün" value="54" />
      <item caption="Dunkelorange" value="72" />
      <item caption="Magenta" value="90" />
      <item caption="Hellgrün" value="108" />
      <item caption="Blau" value="126" />
      <item caption="Rot" value="144" />
      <item caption="Pink" value="162" />
      <item caption="Hellorange" value="180" />
      <item caption="Orange" value="198" />
      <item caption="Türkis" value="216" />
      <item caption="Blau/Gelb" value="234" />
      <item caption="Grün/Rot" value="252" />
    </dropdown>
    <label top="304" left="0" caption="Shutter:" />
    <dropdown top="320" left="8" width="113" name="shutter" action="setshutter">
      <item caption="Offen" value="255" />
      <item caption="Geschlossen" value="0" />
      <item caption="Strobe" value="-1" />
    </dropdown>
    <slider top="320" left="120" height="25" width="65" startvalue="0" endvalue="234" tickfreq="40" smallchange="5" largechange="25" name="shutter_speed" action="setshutter" />
    <line x1="32" y1="232" x2="192" y2="232" />
    <line x1="32" y1="272" x2="192" y2="272" />
    <line x1="32" y1="312" x2="192" y2="312" />
    <line x1="52" y1="353" x2="192" y2="353" />
    <label top="345" left="0" caption="Helligkeit:" />
    <slider top="362" left="5" height="30" width="180" startvalue="0" endvalue="255" tickfreq="25" smallchange="1" largechange="10" channel="5" />
  </form>
  <code>
    <procedure name="INITCONTROLS">
   !call|GetShutter$
  </procedure>
    <procedure name="GetShutter">

!if|({channel_4} &gt; -1) and ({channel_4} &lt; 30)|
 !set_control|shutter|{channel_4}$
$

!if|({channel_4} &gt; 29) and ({channel_4} &lt; 251)|
 !set_control|shutter|-1$
 !set_control|shutter_speed|({channel_4}-30)$
$


  </procedure>
    <procedure name="SetShutter">
!if|{shutter}|gt|-1|
 !set_channel|4|{shutter}$
$
 !if|{shutter}|eq|-1|
  !set_channel|4|(30+{shutter_speed})$
 $


 </procedure>
  </code>
</device>