Revision Log
Revision: 1.1 - (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 (lines.ps 91-03-19 21:34) show | ||
| 6 : | 100 100 translate | ||
| 7 : | 2 setlinewidth | ||
| 8 : | 7 -7 moveto 103 89 197 89 292 -7 curveto stroke | ||
| 9 : | -7 7 moveto 96 110 204 110 307 7 curveto stroke | ||
| 10 : | 7 -7 X 103 89 X 197 89 X 292 -7 X | ||
| 11 : | -7 7 X 96 110 X 204 110 X 307 7 X | ||
| 12 : | showpage |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |