- Enhanced and debugged histogram memory for AMOR
* added PROJECT both in HM and driver code * added single detector support. - Removed several bugs in the AMOR data bit. - Updated documentation
This commit is contained in:
23
amortest.tcl
23
amortest.tcl
@@ -177,7 +177,7 @@ Motor D5B SIM 0. 1000. .1 2. # bottom
|
||||
#======================== counter
|
||||
VarMake detectordist Float Mugger
|
||||
detectordist 200.
|
||||
MakeCounter counter SIM
|
||||
MakeCounter counter SIM .0001
|
||||
Motor COZ SIM 0. 1000. .1 2. # counter table height
|
||||
Motor C3Z SIM 0. 300. .1 2. # counter height
|
||||
Motor COM SIM -30. 30. .1 2. # counter omega
|
||||
@@ -185,19 +185,25 @@ Motor COX SIM -100. 100. .1 2. # counter x
|
||||
ClientPut "Motors initialized"
|
||||
|
||||
#======================== histogram memory
|
||||
MakeHM hm SIM
|
||||
hm configure HistMode TOF
|
||||
MakeHM hm SinqHM
|
||||
hm configure HistMode PSD
|
||||
hm configure OverFlowMode Ceil
|
||||
hm configure Rank 1
|
||||
hm configure dim0 128
|
||||
hm configure dim1 128
|
||||
hm configure Length 16384
|
||||
hm configure dim0 256
|
||||
hm configure dim1 256
|
||||
hm configure xfac 10
|
||||
hm configure yfac 10
|
||||
hm configure xoff 128
|
||||
hm configure yoff 128
|
||||
hm configure Length 65536
|
||||
hm configure BinWidth 4
|
||||
hm preset 100.
|
||||
hm CountMode Timer
|
||||
hm configure HMComputer psds03.psi.ch
|
||||
hm configure HMPort 2400
|
||||
hm configure Counter counter
|
||||
hm configure init 0
|
||||
hm genbin 0. 35. 100
|
||||
hm genbin 0. 33 5
|
||||
hm init
|
||||
|
||||
ClientPut "Histogram Memory Initialized"
|
||||
@@ -216,7 +222,6 @@ SicsDataPostFix lock
|
||||
|
||||
MakeDataNumber SicsDataNumber $home/danu.dat
|
||||
|
||||
MakeStoreAmor hm
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# C o m m a n d I n i t i a l i z a t i o n
|
||||
@@ -253,6 +258,8 @@ set a2t(aoz) aoz
|
||||
set a2t(c3z) c3z
|
||||
MakeAmor2T a2t a2t aom2t
|
||||
|
||||
MakeStoreAmor hm a2t
|
||||
|
||||
#=========== Status Display Support
|
||||
MakeAmorStatus amorstatus xxxscan hm
|
||||
source amorpar.tcl
|
||||
|
||||
Reference in New Issue
Block a user