Merged new hdb and nexus code.

r2099 | ffr | 2007-07-22 15:23:41 +1000 (Sun, 22 Jul 2007) | 2 lines

site_ansto/instrument/reflectometer/config/chopper/chopper.tcl

@@ -1,15 +1,4 @@
-#START SERVER CONFIGURATION SECTION
-set sicsroot /usr/local/sics
-source dmc2280_util.tcl
-source server_config.tcl
-#END SERVER CONFIGURATION SECTION
-
-########################################
-# INSTRUMENT SPECIFIC CONFIGURATION
-VarMake Instrument Text Internal 
-Instrument Platypus 
-Instrument lock
-
+if 0 {
 # Chopper NCS013 communications
 set chopper_controller(host) 137.157.202.130
 set chopper_controller(port) 10000
@@ -27,3 +16,11 @@ MakeChopper chopperController tcpdocho [params \
   password $chopper_controller(password) \
 ]
 ChopperAdapter chspeed chopperController speed 0 10
+}
+namespace eval ::chopper {
+  command set_freq {float: frequency} {
+    for {set i 0} {$i < $frequency} {incr i} {
+      clientput chop
+    }
+  }
+}