Revision: 1.2 - (view) (download) (as text)
1 : | ktanaka | 1.1 | %! |
2 : | newpath | ||
3 : | /X {moveto currentlinewidth 1 setlinewidth 5 5 rmoveto -10 -10 rlineto 10 0 rmoveto -10 10 rlineto stroke setlinewidth} def | ||
4 : | /Times-Roman findfont 20 scalefont setfont | ||
5 : | 50 50 moveto (lines3.ps 91-03-20 02:02) show | ||
6 : | 100 100 translate | ||
7 : | 2 setlinewidth | ||
8 : | 9 -2 moveto 107 387 193 387 290 -2 curveto stroke | ||
9 : | -9 2 moveto 92 412 208 412 309 2 curveto stroke | ||
10 : | 9 -2 X 107 387 X 193 387 X 290 -2 X | ||
11 : | -9 2 X 92 412 X 208 412 X 309 2 X | ||
12 : | showpage |
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |