* This is Andrei's kumac. 
*
* draw a filled box and write 'Background' next to it
* THIS ASSUMES COMMAND: null 0 1 0 1 sab HAS BEEN ISSUED
*
* macro background x y tsiz hatch
*
*	 x     = x coordinate of box CENTER
*	 y     = ...
*	 tsiz  = size for the word 'Background'
*	 hatch = hatch type for box
 
 macro signal x=0.5 y=0.5 tsiz=0.8 hatch=235 titl='Fred' col=1 dmod=1
   
* Use colors if requested
   set faci [col]
   set plci [col]
   
* draw the box
   igset lwid 3
   set dmod [dmod]
   
   w = 0.06			| width of box
   h = 0.06			| height of box
   w = [w]/2.
   h = [h]/2.
   
   x1 = [x]-[w]
   x2 = [x]+[w]
   y1 = [y]-[h]
   y2 = [y]+[h]       
* igset fais 0
   igset fasi [hatch]        
   set htyp   [hatch]        
   igset fais 3
   box [x1] [x2] [y1] [y2] 
   line [x1] [y1] [x2] [y1]
   line [x1] [y2] [x2] [y2]
   line [x1] [y1] [x1] [y2]
   line [x2] [y1] [x2] [y2]
   
* write 'signal'
   igset tang 0.
   igset txal 13
   igset txfp -131
   igset chhe [tsiz]
   xt = $eval([x]+0.07)
   yt = [y]
   itx [xt] [yt] [titl]
   igset txal 0
   set htyp 0
   
   set dmod 1
 return