/xo -2 def /xl 7 def /yo -1.5 def /yl 1.5 def
/xs 300 def /ys 300 def 
/yf 300  def /xf 100 def
iniM  setmatrix
xf yf translate
/Tick2 { } def
iniM setmatrix
xf   yf  translate 
0 0 moveto 0 ys lineto
/wo yo def /wl yl def /ws ys def /vs xs def /xyw {exch     } def  
      1 lgy 1 eq {linearaxis} {logaxis} ifelse
[.833 -.5 .833 .5 0 0] concat 
/Tick2 {Yes_Tick2 } def

/slab {10 add neg} def
/slab2 { vs add}   def

frame
[
%< awk 'BEGIN{for (x=0;x<6.2832;x+=0.02) print x,sin(x)}'
]
dataline
showpage