* This is Andrei's kumac
*
* Make a dot with errors and write 'Data' next to it
* THIS ASSUMES COMMAND: null 0 1 0 1 sab HAS BEEN ISSUED
*
* macro data x y esiz pmarker tsiz
*
*   x       = x coordinate (of dot)
*   y       = y coordinate (of dot)
*   esiz    = size of the error bar
*   pmarker = polymarker type     
*   tsiz    = size for the word 'Data'
 
 macro data x=0.5 y=0.5 esiz=0.05 pmarker=20 tsiz=0.8
   
* draw the dot
   if $vexist('vx')<>0 then
     v/del vx
     v/del vy
     v/del vxe
     v/del vye
   endif 
   vec/cre vx(1) r [x] 
   vec/cre vy(1) r [y]
   vec/cre vxe(1) r 0.0001	| don't want to see x error
   vec/cre vye(1) r [esiz]                  
   gr/hplot/errors vx vy vxe vye 1 [pmarker]   
              
				| write 'Data'
   igset tang 0.
   igset txal 13
   igset txfp -131
   igset chhe [tsiz]
   xt = $eval([x]+0.07)
   yt = [y]
   itx [xt] [yt] '192+196 GeV Data'
   igset txal 0
   v/del vx
   v/del vy
   v/del vxe
   v/del vye
   
 return