View of /psfiles/lines2.ps

Parent Directory

Revision Log

Initial revision

%!
newpath
/X {moveto currentlinewidth 1 setlinewidth 5 5 rmoveto -10 -10 rlineto 10 0 rmoveto -10 10 rlineto stroke setlinewidth} def
/Times-Roman findfont 20 scalefont setfont
50 50 moveto (lines.ps    91-03-19 21:34) show
100 100 translate
2 setlinewidth
7 -7 moveto 103 89 197 89 292 -7 curveto stroke
-7 7 moveto 96 110 204 110 307 7 curveto stroke
7 -7 X 103 89 X 197 89 X 292 -7 X
-7 7 X 96 110 X 204 110 X 307 7 X
showpage