lamp_mac/
magnet_win.pro
Routines
result = magnet_fget(base, default)
result = magnet_glat(base, def)
result = magnet_split(atom, conx)
magnet_conx, st
magnet_clall, st
magnet_clear, flog, st
magnet_sav, flog, st
magnet_mov, flog, st, pos
magnet_par, st, butid, export, PCENT=PCENT, WDRAW=WDRAW
M_DYING, id
magnet_event, ev
magnet_MATsym, ev, uv, ok
magnet_MATsym_event, ev
magnet_propa, flg, st, newp, newV=newV
magmod_event, ev
magnet_modct, st
magnet_freq, bas0, flog, bas, dnu, evtop
magmov_event, ev
magnet_movie, bas0, bas
magpla_event, ev
magnet_plane, bas0, bas
magnet_win, file, PLOT=PLOT, W=W, timer=timer, none=none, anidr=anidr
Routine details
top magnet_fget
result = magnet_fget(base, default)
******* *********** ** ** Get numeric fields from GUI (pointed by base)
Parameters
- base
- default
top magnet_glat
result = magnet_glat(base, def)
******* *********** ** ** Get a b c fields from GUI (pointed by base)
Parameters
- base
- def
top magnet_split
result = magnet_split(atom, conx)
******* ************ ** ** Separate symbol & bonds (c-3-5-8)
Parameters
- atom
- conx
top magnet_sav
** ********** ** ** Read all atom input fields and put in memory ** st.DATA ->atoms (0:2=coord 3=site 4=width 5=color 6=length 7:*=Rmoments+Imoment+Phase , index) ** st.SYMBOL ->tsymbo (index) ** st.COLOR ->tcolor (index)
Parameters
- flog
- st
top magnet_mov
** ********** ** ** put values from memory starting at st.CURSEQ into GUI atom fields
Parameters
- flog
- st
- pos
top magnet_par
magnet_par, st, butid, export, PCENT=PCENT, WDRAW=WDRAW
** ********** ** ** 0) if butid=-3 -> export plot image & return ** 1) if butid=-1 -> read a file and put atom & parameter values in GUI ** 1) if butid=-4 -> import from Wks, put atom & parameter values in GUI ** 2) Get back parameters fields from GUI ** 3) Put atom & parameter values into W,X,Y,Z,PV,PTXT,P and gives them to a workspace ** 4) if butid=-2 -> write a NeXus file ** 5) if butid> 0 -> do a plot
Parameters
- st
- butid
- export
Keywords
- PCENT
- WDRAW
top magnet_MATsym_event
magnet_MATsym_event, ev
** ******************* ** event handler for input 3*3 matrix uv (0, 1 , 2 , 3 , 4 , 5 )
Parameters
- ev
top magnet_propa
magnet_propa, flg, st, newp, newV=newV
** ************ ** ** Handle the propagation fields
Parameters
- flg
- st
- newp
Keywords
- newV
top magmod_event
magmod_event, ev
** ************ ** ** Event handler for MAGNET_MODCT
Parameters
- ev
top magnet_freq
magnet_freq, bas0, flog, bas, dnu, evtop
** *********** ** ** Frequency selector GUI
Parameters
- bas0
- flog
- bas
- dnu
- evtop
top magmov_event
magmov_event, ev
** ************ ** ** Event handler for MAGNET_MOVIE
Parameters
- ev
top magnet_movie
** ************ ** ** Rotate , atoms displacement , snapshot ... GUI.
Parameters
- bas0
- bas
top magpla_event
magpla_event, ev
** ************ ** ** Event handler for MAGNET_PLANE
Parameters
- ev
top magnet_plane
** ************ ** ** Add/remove planes , objects and change object attributes GUI
Parameters
- bas0
- bas
File attributes
Modification date: | Tue Oct 1 14:36:01 2013 |
Lines: | 2,174 |