Attenuator code added
r1586 | dbx | 2007-03-05 16:37:21 +1100 (Mon, 05 Mar 2007) | 2 lines
This commit is contained in:
committed by
Douglas Clowes
parent
0ac4cbaa94
commit
1275e37d39
@@ -1,13 +1,13 @@
|
|||||||
NO TE: PLATYPUS - CONTROLLER 1
|
NO TE: PLATYPUS - CONTROLLER 1
|
||||||
NO TE:
|
NO TE:
|
||||||
NO TE: $Revision: 1.5 $
|
NO TE: $Revision: 1.6 $
|
||||||
NO TE: $Date: 2007-02-13 00:44:25 $
|
NO TE: $Date: 2007-03-05 05:37:21 $
|
||||||
NO TE: Author: Dan Bartlett
|
NO TE: Author: Dan Bartlett
|
||||||
NO TE: Last revision by: $Author: dbx $
|
NO TE: Last revision by: $Author: dbx $
|
||||||
NO TE:
|
NO TE:
|
||||||
NO TE: A-BEAM SHADE RAISE
|
NO TE: A-BEAM SHADE RAISE
|
||||||
NO TE: B-COLLIMATOR TRANSLATE
|
NO TE: B-COLLIMATOR TRANSLATE A=7350364, B=6529772, C=6941582
|
||||||
NO TE: C-COLLIMATOR TILT
|
NO TE: C-COLLIMATOR TILT LEVEL=134660
|
||||||
NO TE: D-BEAM ATTENUATOR
|
NO TE: D-BEAM ATTENUATOR
|
||||||
NO TE: E-SLIT TOWER S3 RAISE
|
NO TE: E-SLIT TOWER S3 RAISE
|
||||||
NO TE: F-SLIT TOWER S4 RAISE
|
NO TE: F-SLIT TOWER S4 RAISE
|
||||||
@@ -33,6 +33,8 @@ SIE=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
|
|||||||
SIF=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
|
SIF=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
|
||||||
SIG=0,25,13,0<-2>2;'SPARE
|
SIG=0,25,13,0<-2>2;'SPARE
|
||||||
SIH=0,25,13,0<-2>2;'SPARE
|
SIH=0,25,13,0<-2>2;'SPARE
|
||||||
|
POS=0;' INITIAL BEAM ATTENUATOR FREQUENCY IS 0, PARKED IN THE BEAM
|
||||||
|
XQ #ATTEN,1
|
||||||
JS #THREAD0
|
JS #THREAD0
|
||||||
EN
|
EN
|
||||||
NO ----------------------------------------
|
NO ----------------------------------------
|
||||||
@@ -48,8 +50,8 @@ ENDIF
|
|||||||
IF (_SPC>50000)
|
IF (_SPC>50000)
|
||||||
SPC=50000
|
SPC=50000
|
||||||
ENDIF
|
ENDIF
|
||||||
IF (_SPD>50000)
|
IF (_SPD>200000)
|
||||||
SPD=50000
|
SPD=200000
|
||||||
ENDIF
|
ENDIF
|
||||||
IF (_SPE>50000)
|
IF (_SPE>50000)
|
||||||
SPE=50000
|
SPE=50000
|
||||||
@@ -137,3 +139,54 @@ DCF=OLDDCF
|
|||||||
NO DCG=OLDDCG AXES NOT USED
|
NO DCG=OLDDCG AXES NOT USED
|
||||||
NO DCH=OLDDCH
|
NO DCH=OLDDCH
|
||||||
RE
|
RE
|
||||||
|
NO ----------------------------------------
|
||||||
|
#ATTEN
|
||||||
|
DEADBD=20
|
||||||
|
PARKPOS=8309158; 'PARKING ENCODER POSITION
|
||||||
|
SHUTPOS=8390307; 'BEAM SHUT ENCODER POSITION
|
||||||
|
STRTPOS=8390307; 'OSCILLATING START ENCODER POSITION
|
||||||
|
IF (POS=-1)&(@ABS[_TPD - PARKPOS]>DEADBD)
|
||||||
|
NO TE: PARK ATTENUATOR OUT OF BEAM - NO ATTENUATION
|
||||||
|
SPD=75000
|
||||||
|
ACD=50000
|
||||||
|
DCD=50000
|
||||||
|
SHD
|
||||||
|
PRD=(_TPD - PARKPOS)/8192*25000
|
||||||
|
BGD
|
||||||
|
AMD
|
||||||
|
MOD
|
||||||
|
ENDIF
|
||||||
|
IF (POS=0)&(@ABS[_TPD - SHUTPOS]>DEADBD)
|
||||||
|
NO TE: PARK ATTENUATOR IN BEAM - LIKE A SHUTTER
|
||||||
|
SPD=75000
|
||||||
|
ACD=50000
|
||||||
|
DCD=50000
|
||||||
|
SHD
|
||||||
|
PRD=(_TPD - SHUTPOS)/8192*25000
|
||||||
|
BGD
|
||||||
|
AMD
|
||||||
|
MOD
|
||||||
|
ENDIF
|
||||||
|
IF (POS=1)
|
||||||
|
NO TE: OSCILLATE ATTENUATOR
|
||||||
|
SHD
|
||||||
|
SPD=75000
|
||||||
|
ACD=50000
|
||||||
|
DCD=50000
|
||||||
|
PRD=(_TPD - STRTPOS)/8192*25000
|
||||||
|
BGD
|
||||||
|
AMD
|
||||||
|
SPD=180000
|
||||||
|
ACD=_SPD*4;' 0.5S TO ACCELERATE
|
||||||
|
DCD=_ACD
|
||||||
|
#LOOP
|
||||||
|
PRD=140625;' 90MM = 60MM IN THE BEAM, 15MM FOR ACCEL AND 15MM FOR DECEL
|
||||||
|
BGD
|
||||||
|
AMD
|
||||||
|
PRD=-140625
|
||||||
|
BGD
|
||||||
|
AMD
|
||||||
|
ENDIF
|
||||||
|
JP #LOOP,(POS=1)
|
||||||
|
JP #ATTEN
|
||||||
|
EN
|
||||||
Reference in New Issue
Block a user