- Added a user specific range test to the astrium driver for the POLDI

- Added speed parameter to phytron
- Added new drivers for EL755 magnets and the PI DC-406 motor controller

tcl/astrium.tcl

@@ -457,7 +457,21 @@ if {$poldi == 1} {
 	}
 	return OK
     }
-
+#-------
+    proc poldispeedwrite {} {
+	set val [sct target]
+	set l [split [config myrights] =]
+	set rights [string trim [lindex $l 1]]
+	if {$rights == 2} {
+	    if {$val < 4990 || $val > 15000} {
+		clientput "ERROR: Users may only drive the chopper between 5000 - 15000 RPM"
+		hupdate /sics/choco/stop 1
+		return idle
+            }
+        }
+	return [astchopwrite "nspee 1 "] 
+    }
+#-----------
     set choppers [list chopper]
     set chopperparlist [list amode aspee nspee nphas dphas averl ratio vibra vibax t_cho \
 			    flowr vakum valve sumsi spver state]
@@ -471,7 +485,20 @@ if {$poldi == 1} {
     set maxspeed 15000
     set minphase 80
     astriumMakeChopperParameters
-    astMakeChopperSpeed1 chopperspeed
+#    astMakeChopperSpeed1 chopperspeed
+
+    set path /sics/choco/chopper/speed
+    hfactory $path plain user float
+    hsetprop $path read astspeedread chopper
+    hsetprop $path write poldispeedwrite
+    hsetprop $path astchopwritereply astchopwritereply
+    chocosct write $path
+    hsetprop $path checklimits astchopspeedlimit 0
+    hsetprop $path halt astchopstop
+    hsetprop $path checkstatus astchopcheckspeed chopper
+    hsetprop $path priv user
+    makesctdriveobj chopperspeed $path DriveAdapter chocosct
+
     astMakeChopperPhase1 chopperphase
     hsetprop /sics/choco/chopper/phase checklimit poldiastchopphaselimit
     Publish chosta Spy