S.Mustonen, Survo Users' Guide (1992), p. 249
1 *
2 *PLOT /FRAME
/ DEVICE=PS,EX.PS
3 *FRAME=3 SIZE=1164,600 XDIV=0,1,0 YDIV=0,1,0
4 * A=300 B=100 H=56.7 N=8 h=H/2
5 *LINES=ARROW1,ARROW2,WORM
6 *ARROW1=[FILL(5)],A,4*B,H,H,-H,H,N*H,0,0,H,2*H,-2*H,-2*H,-2*H,0,H,-N*H,0
7 *ARROW2=[FILL(2)],A,B,H,H,-H,H,N*H,0,0,H,2*H,-2*H,-2*H,-2*H,0,H,-N*H,0
8 *WORM=[NO_FILL][line_width(3)],A,3*B,h,h,h,-h,h,h,h,-h,h,h,h,-h,h,h,h,-h
9 *
Index | Catalog | Previous | Next