- Driver for the Risoe Temperature controller

- HM is now working
- display code added

sans2.tcl

@@ -534,8 +534,9 @@ proc sans2rack args {
 Publish sans2rack User #---------for testing purposes
 anticollision script sans2rack
 #====================== PSI Motoren ===================================
-Motor ome SIM -180. 180. .1 -.1
-Motor chi SIM -20. 20. .1 -.1
+Motor ome EL734 sans2 4000 2 1
+Motor chi EL734 sans2 4000 2 2
+Motor tilt EL734 sans2 4000 3 1
 #====================== Multi Motor Setup ==============================
 MakeMulti detector
 detector alias dz x
@@ -586,6 +587,17 @@ banana init
 banana exponent 6
 banana CountMode timer
 banana preset 100
+#=========================== velocity selector ========================
+VelocitySelector nvs tilt SIM
+nvs add -20 28800
+nvs add 3600 4300
+nvs add 7600 9600
+nvs add 13400 13450
+nvs add 24200 24250
+MakeSANSWave lambda nvs
+emon unregister nvswatch
+#===================================== auxiliary hardware ==============
+set distoCON [gpib attach 0 14 0 13 0 1]
 #===================================== data file writing ================
 MakeNXScript
 #===================================== install commands ==================
@@ -594,6 +606,8 @@ MakeRuenBuffer
 commandlog auto
 #=================================== load specific command file ===========
 source $root/sans2com.tcl
+#=================================== load display definition =============
+source $root/sans2dis.tcl