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:
|
||||
NO TE: $Revision: 1.5 $
|
||||
NO TE: $Date: 2007-02-13 00:44:25 $
|
||||
NO TE: $Revision: 1.6 $
|
||||
NO TE: $Date: 2007-03-05 05:37:21 $
|
||||
NO TE: Author: Dan Bartlett
|
||||
NO TE: Last revision by: $Author: dbx $
|
||||
NO TE:
|
||||
NO TE: A-BEAM SHADE RAISE
|
||||
NO TE: B-COLLIMATOR TRANSLATE
|
||||
NO TE: C-COLLIMATOR TILT
|
||||
NO TE: B-COLLIMATOR TRANSLATE A=7350364, B=6529772, C=6941582
|
||||
NO TE: C-COLLIMATOR TILT LEVEL=134660
|
||||
NO TE: D-BEAM ATTENUATOR
|
||||
NO TE: E-SLIT TOWER S3 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
|
||||
SIG=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
|
||||
EN
|
||||
NO ----------------------------------------
|
||||
@@ -48,8 +50,8 @@ ENDIF
|
||||
IF (_SPC>50000)
|
||||
SPC=50000
|
||||
ENDIF
|
||||
IF (_SPD>50000)
|
||||
SPD=50000
|
||||
IF (_SPD>200000)
|
||||
SPD=200000
|
||||
ENDIF
|
||||
IF (_SPE>50000)
|
||||
SPE=50000
|
||||
@@ -137,3 +139,54 @@ DCF=OLDDCF
|
||||
NO DCG=OLDDCG AXES NOT USED
|
||||
NO DCH=OLDDCH
|
||||
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