Autogenerated files should not be in CVS

r1520 | ffr | 2007-02-20 08:12:09 +1100 (Tue, 20 Feb 2007) | 2 lines

site_ansto/instrument/hrpd/script_validator/config/motors/motor_configuration.tcl

@@ -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