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 |