Locked History Actions

attachment:set_par.kumac of PAW_fig

Attachment 'set_par.kumac'

Download

 macro set_par
   set *                        | all default
   opt *                        | all default
   
   set tfon -20                 | text & title font
   set gfon -60                 | global title font
   set vfon -130                | axis value font
   set lfon -10                 | axis label font
   set cfon -60                 | comment font
   set txfp -40                 | itx font
   set gsiz 0.5                 | global title size
   set ygti 1.0                 | global title position from top
   set htyp -3                  | histogram  fill area type 
   set txal 23                  | itx align center & center
   set pwid 5                   | box line width
   set smgu 0.06                | stat position from y top axis
   set smgr 0.04                | stat position from x right axis
   
   hi/del *
   hi/file 60 htest.hbook
   hrin 0
   for/clo 60
   
   size 17 24
*   for/file 66 set_par.eps
*   gr/me 66 -113
   
   title 'HBOOK GLOBAL TITLE'
   zon 2 2
   hi/pl 1 b
   hi/pl 2
   opt stat
   zon 1 2 2 s
   max 2 204
   hi/pl 2(10:60) e
   atit 'GeV/C' 'Example of title along Y'
   max 2 -1
   
   for str in_
     xsiz ysiz xmgl xmgr xlab xval xtic_
     ymgl ymgu ylab yval ytic ygti yhti_
     smgr smgu cval gsiz tsiz asiz csiz_
     vsiz xwin ywin hmax baro barw
     [str]=$grafinfo([str])
   endfor
   
   sel 10
   set chhe 0.3
   arrow 0.325 0.375  180 180 -0.1
   itx   0.35  187    'BARW'
   arrow 0.4   0.425  115 115 -0.1
   arrow 0.5   0.4125 135 118  0.1
   itx   0.61  140    'BARO'
   
   sel 20
   wnymax=$grafinfo('wnymax')
   arrow 0.33 0.33 $sigma([wnymax]*[hmax]) [wnymax] -0.2
   itx   0.46 $sigma([wnymax]*(1+[hmax])/2)  'HMAX'
   
   sel 30
   wnxmax=$grafinfo('wnxmax')
   wnxmin=$grafinfo('wnxmin')
   wnymax=$grafinfo('wnymax')
   wnymin=$grafinfo('wnymin')
   arrow 0.15 0.097 145 127  0.1
   itx   0.15 150   'YTIC'
   arrow 0.24 0.297 25  5    0.1
   itx   0.24 30    'XTIC'
   arrow 0.27 0.28  160 160 -0.1
   arrow 0.24 0.274 175 162  0.1
   itx   0.24 180   'ERRX'
   set chhe 0.25
   arrow 0.37 0.37  $sigma([wnymax]*(1-[smgu])) [wnymax] -0.1
   itx   0.34 $sigma([wnymax]*(1-[smgu]/2))   'SMGU'
   set tang 90
   arrow $sigma([wnxmax]-[smgr]*([wnxmax]-[wnxmin])) [wnxmax] 150 150 -0.1
   itx   $sigma([wnxmax]-[smgr]*([wnxmax]-[wnxmin])/2) 135 'SMGR'
   
   sel 1
   
   set chhe 0.3
   set tang 0
   arrow 0 [xmgl] 17.8 17.8 -0.15
   itx   $sigma([xmgl]/2) 18.1 'XMGL'
   arrow $sigma(([xsiz]-[xwin])/2) $sigma(([xsiz]+[xwin])/2)  17.8 17.8 -0.15
   itx   $sigma([xsiz]/2) 18.1 'XWIN'
   arrow [xsiz] $sigma([xsiz]-[xmgr]) 17.8 17.8 -0.15
   itx   $sigma([xsiz]-[xmgr]/2) 18.1 'XMGR'
   arrow [xmgr] $sigma([xmgr]-[xlab]) 11.2 11.2 -0.15
   itx   $sigma([xmgr]-[xlab]/2) 11.5 'XLAB'
   arrow [xmgr] $sigma([xmgr]-[xval]) 6.2 6.2 -0.1
   arrow 3.0  $sigma([xmgr]-0.5*[xval]) 5.2 6.1 0.1
   itx   3.0 5.0  'XVAL'
   arrow 1.9  1.9  [ymgl] $sigma([ymgl]-[yval])  -0.1
   arrow 1.0  1.85 1.5 $sigma([ymgl]-0.5*[yval]) 0.1
   itx   1.0  1.3  'YVAL'
   arrow 10.3 10.3 8.4 $sigma(8.4+[csiz])  -0.1
   arrow 12.0 10.5 7.6 $sigma(8.4+[csiz]/2)  0.1
   itx   12.5 7.4  'CSIZ'
   arrow 0.0  [xsiz] 4.7 4.7  -0.15
   itx   $sigma([xsiz]/2) 5.0 'XSIZ'
   
   set chhe 0.25
   set tang 90
   arrow 12.5 12.5 [ysiz] $sigma([ysiz]-[ygti]) -0.15
   itx   12.8 $sigma([ysiz]-[ygti]/2) 'YGTI'
   arrow 4.2  4.2  $sigma([ysiz]-[ygti]) $sigma([ysiz]-[ygti]-[gsiz]) -0.1
   itx   3.8 $sigma([ysiz]-[ygti]-[gsiz]/2) 'GSIZ'
   arrow 2.5  2.5  [ysiz] $sigma([ysiz]-[ymgu]) -0.15
   itx   2.2 $sigma([ysiz]-[ymgu]/2) 'YMGU'
   arrow 10.0 10.0 $sigma(([ysiz]-[ywin])/2) $sigma(([ysiz]+[ywin])/2) -0.15
   itx   9.8  $sigma([ysiz]/2) 'YWIN'
   arrow 3.5  3.5 0 [ymgl] -0.15
   itx   3.2  $sigma([ymgl]/2) 'YMGL'
   arrow 10.8 10.8 [ymgl] $sigma([ymgl]-[yhti])  -0.15
   itx   11.2 $sigma([ymgl]-[yhti]/2)  'YHTI'
   arrow 16.5 16.5 0.0 [ysiz] -0.15
   itx   16.2 $sigma([ysiz]/2) 'YSIZ'
   
   set chhe 0.2
   arrow 15.4 15.4 [ymgl] $sigma([ymgl]-[ylab])  -0.1
   itx   15.6 $sigma([ymgl]-[ylab]/2) 'XLAB'
   arrow 6.2  6.2  $sigma([ymgl]-[yhti]) $sigma([ymgl]-[yhti]-[tsiz])  -0.1   
   itx   5.9 $sigma([ymgl]-[yhti]-[tsiz]/2)  'TSIZ'
   arrow 1.0  1.0  2.95 $sigma(2.95+[vsiz]) -0.1
   itx   0.8  $sigma(2.95+[vsiz]/2)  'VSIZ'
   arrow 13.7 13.7 $sigma([ymgl]-[ylab]) $sigma([ymgl]-[ylab]-[asiz]) -0.1
   itx   13.4 $sigma([ymgl]-[ylab]-[asiz]/2)  'ASIZ'
   
*   close 66
 return
 

Attached Files

To refer to attachments on a page, use attachment:filename, as shown below in the list of files. Do NOT use the URL of the [get] link, since this is subject to change and can break easily.
  • [get | view] (2010-06-27 14:21:44, 24.9 KB) [[attachment:color.eps]]
  • [get | view] (2010-06-27 14:21:55, 0.8 KB) [[attachment:color.kumac]]
  • [get | view] (2010-06-27 14:22:06, 25.5 KB) [[attachment:color.png]]
  • [get | view] (2010-07-12 03:39:12, 24.5 KB) [[attachment:fonts.eps]]
  • [get | view] (2010-07-12 03:39:22, 1.5 KB) [[attachment:fonts.kumac]]
  • [get | view] (2010-07-12 03:39:36, 98.7 KB) [[attachment:fonts.png]]
  • [get | view] (2010-06-27 14:22:16, 38.5 KB) [[attachment:grey.eps]]
  • [get | view] (2010-06-27 14:22:25, 0.8 KB) [[attachment:grey.kumac]]
  • [get | view] (2010-06-27 14:22:41, 39.6 KB) [[attachment:grey.png]]
  • [get | view] (2010-06-27 17:31:29, 34.9 KB) [[attachment:hatch.eps]]
  • [get | view] (2010-06-27 17:31:40, 1.0 KB) [[attachment:hatch.kumac]]
  • [get | view] (2010-06-27 17:32:24, 45.0 KB) [[attachment:hatch.png]]
  • [get | view] (2010-06-27 10:10:29, 1.6 KB) [[attachment:htest.f]]
  • [get | view] (2010-06-27 10:10:39, 16.0 KB) [[attachment:htest.hbook]]
  • [get | view] (2010-07-12 05:45:06, 54.5 KB) [[attachment:igtext.eps]]
  • [get | view] (2010-07-12 05:45:33, 1.4 KB) [[attachment:igtext.kumac]]
  • [get | view] (2010-07-12 05:45:20, 42.0 KB) [[attachment:igtext.png]]
  • [get | view] (2010-06-27 17:32:38, 13.3 KB) [[attachment:line.eps]]
  • [get | view] (2010-06-27 17:33:05, 0.8 KB) [[attachment:line.kumac]]
  • [get | view] (2010-06-27 17:32:49, 7.8 KB) [[attachment:line.png]]
  • [get | view] (2010-06-27 17:33:23, 11.7 KB) [[attachment:marker.eps]]
  • [get | view] (2010-06-27 17:33:36, 0.8 KB) [[attachment:marker.kumac]]
  • [get | view] (2010-06-27 17:33:48, 10.5 KB) [[attachment:marker.png]]
  • [get | view] (2011-02-09 01:40:48, 83.0 KB) [[attachment:pid_37mg_web.png]]
  • [get | view] (2011-02-09 01:44:26, 71.7 KB) [[attachment:pid_37mg_web_mod.png]]
  • [get | view] (2010-07-12 05:45:52, 109.2 KB) [[attachment:pschar1.eps]]
  • [get | view] (2010-07-12 05:46:08, 2.7 KB) [[attachment:pschar1.kumac]]
  • [get | view] (2010-07-12 05:46:25, 76.7 KB) [[attachment:pschar1.png]]
  • [get | view] (2010-07-12 05:59:58, 101.3 KB) [[attachment:pschar2.eps]]
  • [get | view] (2010-07-12 06:00:12, 1.7 KB) [[attachment:pschar2.kumac]]
  • [get | view] (2010-07-12 06:00:27, 87.0 KB) [[attachment:pschar2.png]]
  • [get | view] (2010-06-27 10:11:31, 32.5 KB) [[attachment:set_par.eps]]
  • [get | view] (2010-06-27 10:10:15, 4.1 KB) [[attachment:set_par.kumac]]
  • [get | view] (2010-06-27 10:11:19, 75.9 KB) [[attachment:set_par.png]]
  • [get | view] (2010-06-27 17:34:12, 19.6 KB) [[attachment:style.gif]]
  • [get | view] (2010-06-27 17:34:39, 0.8 KB) [[attachment:style.kumac]]
  • [get | view] (2010-06-27 17:34:26, 4.5 KB) [[attachment:style.png]]
  • [get | view] (2010-07-12 07:17:38, 6.5 KB) [[attachment:talign.eps]]
  • [get | view] (2010-07-12 07:17:24, 0.8 KB) [[attachment:talign.kumac]]
  • [get | view] (2010-07-12 07:17:53, 7.9 KB) [[attachment:talign.png]]
  • [get | view] (2010-07-12 01:23:50, 27.1 KB) [[attachment:xtyp.eps]]
  • [get | view] (2010-07-12 01:23:18, 0.8 KB) [[attachment:xtyp.kumac]]
  • [get | view] (2010-07-12 01:23:37, 76.0 KB) [[attachment:xtyp.png]]

You are not allowed to attach a file to this page.