diff --git a/site_ansto/instrument/hrpd/script_validator/config/motors/motor_configuration.tcl b/site_ansto/instrument/hrpd/script_validator/config/motors/motor_configuration.tcl deleted file mode 100644 index 530e1fd9..00000000 --- a/site_ansto/instrument/hrpd/script_validator/config/motors/motor_configuration.tcl +++ /dev/null @@ -1,256 +0,0 @@ -# !!- AUTOGENERATED FROM config/motors/motor_configuration.tcl -!! -# !!- DO NOT MODIFY -!! -# Fri 16 Feb 2007 16:19:31 EST - -publish setpos user -publish SplitReply user -Motor mphi SIM -15 15 -1.0 -mphi softlowerlim -15 -mphi softupperlim 15 -mphi movecount 100 -mphi precision 0.05 -Motor mchi SIM 75 105 -1.0 -mchi softlowerlim 75 -mchi softupperlim 105 -mchi movecount 100 -mchi precision 0.01 -Motor my SIM -20 20 -1.0 -my softlowerlim -20 -my softupperlim 20 -my movecount 100 -my precision 0.01 -Motor mx SIM -20 20 -1.0 -mx softlowerlim -20 -mx softupperlim 20 -mx movecount 100 -mx precision 0.01 -Motor mom SIM -180 180 -1.0 -mom softlowerlim -180 -mom softupperlim 180 -mom movecount 100 -mom precision 0.01 -Motor mtth SIM 90 137 -1.0 -mtth softlowerlim 90 -mtth softupperlim 137 -mtth movecount 100 -mtth precision 0.02 -mtth maxretry 10 -mtth failafter 10 -Motor pcx SIM 0 140 -1.0 -pcx softlowerlim 0 -pcx softupperlim 140 -pcx movecount 100 -pcx precision 0.01 -Motor pcr SIM -10 10 -1.0 -pcr softlowerlim -10 -pcr softupperlim 10 -pcr movecount 100 -pcr precision 0.01 -Motor sphi SIM -20 20 -1.0 -sphi softlowerlim -20 -sphi softupperlim 20 -sphi movecount 100 -sphi precision 0.01 -Motor schi SIM 70 110 -1.0 -schi softlowerlim 70 -schi softupperlim 110 -schi movecount 100 -schi precision 0.01 -Motor sy SIM -20 20 -1.0 -sy softlowerlim -20 -sy softupperlim 20 -sy movecount 100 -sy precision 0.01 -Motor sx SIM -20 20 -1.0 -sx softlowerlim -20 -sx softupperlim 20 -sx movecount 100 -sx precision 0.01 -Motor som SIM -142 218 -1.0 -som softlowerlim -142 -som softupperlim 218 -som movecount 100 -som precision 0.01 -Motor stth SIM -79 77 -1.0 -stth softlowerlim -77 -stth softupperlim 74 -stth movecount 100 -stth precision 0.01 -Motor ss1r SIM -15 35 -1.0 -ss1r softlowerlim -25 -ss1r softupperlim 25 -ss1r movecount 100 -Motor ss1l SIM -15 35 -1.0 -ss1l softlowerlim -25 -ss1l softupperlim 25 -ss1l movecount 100 -Motor ss1u SIM -20 100 -1.0 -ss1u softlowerlim -25 -ss1u softupperlim 100 -ss1u movecount 100 -Motor ss1d SIM -20 100 -1.0 -ss1d softlowerlim -25 -ss1d softupperlim 100 -ss1d movecount 100 -Motor ss2r SIM -15 35 -1.0 -ss2r softlowerlim -25 -ss2r softupperlim 25 -ss2r movecount 100 -Motor ss2l SIM -15 35 -1.0 -ss2l softlowerlim -25 -ss2l softupperlim 25 -ss2l movecount 100 -Motor ss2u SIM -20 100 -1.0 -ss2u softlowerlim -25 -ss2u softupperlim 100 -ss2u movecount 100 -Motor ss2d SIM -20 100 -1.0 -ss2d softlowerlim -25 -ss2d softupperlim 100 -ss2d movecount 100 -proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]} -proc mthSet val { return "mtth=[SplitReply [mtth]]"} -publish mthSet user -publish mthGet user -MakeConfigurableMotor mth -mth readscript mthGet -mth drivescript mthSet -proc sthGet {} { return [expr [SplitReply [stth]]/2.0]} -proc sthSet val { return "stth=[SplitReply [stth]]"} -publish sthGet user -publish sthSet user -MakeConfigurableMotor sth -sth readscript sthGet -sth drivescript sthSet -proc ss1widthscript val { - set currentWidth [expr [SplitReply [ss1r]] + [SplitReply [ss1l]]] - set diff [expr $val - $currentWidth] - set newD1R [expr [SplitReply [ss1r]] + $diff/2] - set newD1L [expr [SplitReply [ss1l]] + $diff/2] - return "ss1r=$newD1R,ss1l=$newD1L" -} -publish ss1widthscript user -proc ss1readwidth {} { - return [expr [SplitReply [ss1r]] + [SplitReply [ss1l]]] -} -publish ss1readwidth user -MakeConfigurableMotor ss1hg -ss1hg drivescript ss1widthscript -ss1hg readscript ss1readwidth -proc ss1horoffsetscript val { - set SR [SplitReply [ss1r]] - set SL [SplitReply [ss1l]] - set currentOffset [ expr $SR - ($SR + $SL)/2.0 ] - set diff [expr $val - $currentOffset] - set newD1R [expr $SR + $diff] - set newD1L [expr $SL - $diff] - return "ss1r=$newD1R,ss1l=$newD1L" -} -publish ss1horoffsetscript user -proc ss1readhoroffset {} { - set SR [SplitReply [ss1r]] - return [ expr $SR - ($SR + [SplitReply [ss1l]])/2.0 ] -} -publish ss1readhoroffset user -MakeConfigurableMotor ss1ho -ss1ho drivescript ss1horoffsetscript -ss1ho readscript ss1readhoroffset -proc ss1heightscript val { - set currentWidth [expr [SplitReply [ss1u]] + [SplitReply [ss1d]]] - set diff [expr $val - $currentWidth] - set newD1B [expr [SplitReply [ss1d]] + $diff/2] - set newD1T [expr [SplitReply [ss1u]] + $diff/2] - return "ss1d=$newD1B,ss1u=$newD1T" -} -publish ss1heightscript user -proc ss1readheight {} { - return [expr [SplitReply [ss1u]] + [SplitReply [ss1d]]] -} -publish ss1readheight user -MakeConfigurableMotor ss1vg -ss1vg drivescript ss1heightscript -ss1vg readscript ss1readheight -proc ss1vertoffsetscript val { - set SU [SplitReply [ss1u]] - set SD [SplitReply [ss1d]] - set currentOffset [ expr $SU - ($SU + $SD)/2.0 ] - set diff [expr $val - $currentOffset] - set newD1U [expr $SU + $diff] - set newD1D [expr $SD - $diff] - return "ss1u=$newD1U,ss1d=$newD1D" -} -publish ss1vertoffsetscript user -proc ss1readvertoffset {} { - set SU [SplitReply [ss1u]] - return [ expr $SU - ($SU + [SplitReply [ss1d]])/2.0 ] -} -publish ss1readvertoffset user -MakeConfigurableMotor ss1vo -ss1vo drivescript ss1vertoffsetscript -ss1vo readscript ss1readvertoffset -proc ss2widthscript val { - set currentWidth [expr [SplitReply [ss2r]] + [SplitReply [ss2l]]] - set diff [expr $val - $currentWidth] - set newD1R [expr [SplitReply [ss2r]] + $diff/2] - set newD1L [expr [SplitReply [ss2l]] + $diff/2] - return "ss2r=$newD1R,ss2l=$newD1L" -} -publish ss2widthscript user -proc ss2readwidth {} { - return [expr [SplitReply [ss2r]] + [SplitReply [ss2l]]] -} -publish ss2readwidth user -MakeConfigurableMotor ss2hg -ss2hg drivescript ss2widthscript -ss2hg readscript ss2readwidth -proc ss2horoffsetscript val { - set SR [SplitReply [ss2r]] - set SL [SplitReply [ss2l]] - set currentOffset [ expr $SR - ($SR + $SL)/2.0 ] - set diff [expr $val - $currentOffset] - set newD1R [expr $SR + $diff] - set newD1L [expr $SL - $diff] - return "ss2r=$newD1R,ss2l=$newD1L" -} -publish ss2horoffsetscript user -proc ss2readhoroffset {} { - set SR [SplitReply [ss2r]] - return [ expr $SR - ($SR + [SplitReply [ss2l]])/2.0 ] -} -publish ss2readhoroffset user -MakeConfigurableMotor ss2ho -ss2ho drivescript ss2horoffsetscript -ss2ho readscript ss2readhoroffset -proc ss2heightscript val { - set currentWidth [expr [SplitReply [ss2u]] + [SplitReply [ss2d]]] - set diff [expr $val - $currentWidth] - set newD1B [expr [SplitReply [ss2d]] + $diff/2] - set newD1T [expr [SplitReply [ss2u]] + $diff/2] - return "ss2d=$newD1B,ss2u=$newD1T" -} -publish ss2heightscript user -proc ss2readheight {} { - return [expr [SplitReply [ss2u]] + [SplitReply [ss2d]]] -} -publish ss2readheight user -MakeConfigurableMotor ss2vg -ss2vg drivescript ss2heightscript -ss2vg readscript ss2readheight -proc ss2vertoffsetscript val { - set SU [SplitReply [ss2u]] - set SD [SplitReply [ss2d]] - set currentOffset [ expr $SU - ($SU + $SD)/2.0 ] - set diff [expr $val - $currentOffset] - set newD1U [expr $SU + $diff] - set newD1D [expr $SD - $diff] - return "ss2u=$newD1U,ss2d=$newD1D" -} -publish ss2vertoffsetscript user -proc ss2readvertoffset {} { - set SU [SplitReply [ss2u]] - return [ expr $SU - ($SU + [SplitReply [ss2d]])/2.0 ] -} -publish ss2readvertoffset user -MakeConfigurableMotor ss2vo -ss2vo drivescript ss2vertoffsetscript -ss2vo readscript ss2readvertoffset