####################################################
# tab3aux.mac
# macro for setting up and handling ESRF tab3 macro
# author: smilgies 1/2004 
####################################################

# where macros for gcaveT
def wmonu '{wm monu   monuchi monuz  monuzu  monuzdf monuzdr
p "pseudomotors: monu monuchi monuz"}'
def wmond ' wm mond   mondchi mondphi montrav'
def wmt   '{wm mtincl mttilt  monoff  mtzu    mtzdf   mtzdr
p"pseudomotors: mtincl mttilt monoff"}'
def wmi   '{wm mith   michi   miz     mizu    mizdf   mizdr
p"pseudomotors: mith michi miz"}'
def wlist '{
p "wmonu: where upstream mono"
p "wmond: where downstream mono"
p "wmt:   where montrav table"
p "wmi:   where mirror"
}'

#####################################################################
# tab3 setup for 3 stages
#####################################################################
# line 1: for top ML1
# line 2: for top ML2 travel
# line 3: for top mirror
tab3setup ML1   6  203.2    150    monuzdr monuzdf monuzu monuchi monu   monuz
tab3setup MTrav 0  387.35  1524.0  mtzdr   mtzdf   mtzu   mttilt  mtincl monoff 
tab3setup MoMi  0  177.8   1000    mizdf   mizdr   mizu   michi   mith   miz
###########    END OF TAB3 SETUP    #################################

def tab3info '{
p "TAB3 INFO"
p "* * *"
p "ML1: regular geometry"
p "monu positive:     monuzu goes down  -> positive incident angle"
p "monuchi positive:  monuzdf goes up   -> deflection in +x"
p "* * *"
p "MTrav: regular geometry"
p "mtincl positive:   mtzu goes down"
p "mttilt positive:   mtzdf goes up     -> deflection in +x"
p "* * *"
p "MoMi: inverted geometry - reflecting down, but regular leg arrangement"
p "mith positive: mtzu goes down        -> positive incidence"
p "michi positive: mtzdr goes up        -> deflection in +x" 
}'

def tab3help '{
p "tab3show:    show all configured tables"
p "tab3info:    show configuration of tables"
p "wlist:       show where macros for displaying motors and pseudomotors"
}'