Warning, /geant4/examples/extended/electromagnetic/TestEm5/mumsc/mumsc.kumac is written in an unsupported language. File is not indexed.
0001 macro mumsc.kumac
0002 *
0003 set * ; opt *
0004 *
0005 filecase keep
0006
0007 set *fon -40
0008 set mscf 1.5
0009
0010 set ygti 0.5 ; set gsiz 0.35 ; set ymgu 1.5
0011 set vsiz 0.25 ; set yval 0.3 ; set ylab 0.55
0012 set asiz 0.25 ; set yhti 0.9 ; set xlab 1.2
0013
0014 title '100 GeV muon : dispersion after 1 m iron'
0015
0016 h/file 1 ref10.opt2.hbook
0017 h/file 2 ref10.opt0.hbook
0018
0019 opt stat
0020
0021 set dmod 1 ; set hcol 4 ; set plci 4
0022 h/pl //lun1/14
0023 key 3 2500 1 'opt2 (WVI)' ! l
0024 set dmod 1 ; set hcol 2 ; set plci 2
0025 h/pl //lun2/14 s
0026 key 3 3000 1 'opt0 (Urban90)' ! l
0027 atitle x(mm) nb
0028
0029 opt logy
0030 set dmod 1 ; set hcol 4 ; set plci 4
0031 h/pl //lun1/15
0032 key 6 200 1 'opt2 (WVI)' ! l
0033 set dmod 1 ; set hcol 2 ; set plci 2
0034 h/pl //lun2/15 s
0035 key 6 500 1 'opt0 (Urban90)' ! l
0036 atitle radius(mm) nb
0037
0038 exec Redraw-Axis
0039
0040 return
0041
0042 Macro Redraw-Axis
0043 set plci 1
0044 X1 = $GRAFINFO('WNXMIN')
0045 X2 = $GRAFINFO('WNXMAX')
0046 Y1 = $GRAFINFO('WNYMIN')
0047 Y2 = $GRAFINFO('WNYMAX')
0048 IS = $GRAFINFO('?FAIS')
0049 IC = $GRAFINFO('?FACI')
0050 Set FAIS 0 ; Set FACI 1
0051 Box [X1] [X2] [Y1] [Y2]
0052 Set FAIS [IS] ; Set FACI [IC]
0053 Tick XL [X1] !
0054 * Tick YB ! [Y1]
0055 Return
0056
