diff options
Diffstat (limited to 'graphics/hpgl2ps/foo.ps')
-rw-r--r-- | graphics/hpgl2ps/foo.ps | 219 |
1 files changed, 219 insertions, 0 deletions
diff --git a/graphics/hpgl2ps/foo.ps b/graphics/hpgl2ps/foo.ps new file mode 100644 index 0000000000..3355314f22 --- /dev/null +++ b/graphics/hpgl2ps/foo.ps @@ -0,0 +1,219 @@ +%! PS-Adobe-1.0: For Apple LaserWriter +% default font is 10 pt. Helvetica +/basefont {/Helvetica findfont 10 scalefont setfont} def +/mm {72.27 mul 25.4 div} def +/M +{ + /Ymove exch def + /Xmove exch def + Xmove mm Ymove mm moveto +} def +/R +{ + /Yrmove exch def + /Xrmove exch def + Xrmove mm Yrmove mm rmoveto +} def +/D +{ + /Ydraw exch def + /Xdraw exch def + Xdraw mm Ydraw mm lineto +} def +/I +{ + /Yrdraw exch def + /Xrdraw exch def + Xrdraw mm Yrdraw mm rlineto +} def +/Font +{ + /Height exch def + /FontName exch def + FontName findfont Height mm scalefont setfont +} def +/DefFont +{ + /Slant exch def + /Height exch def + /Width exch def + /FontName exch def + FontName findfont [ Width mm 0 Slant mm Height mm 0 0] makefont setfont +} def +/Text +{ + /String exch def + /Angle exch def + /Position exch def + /Ymove exch def + /Xmove exch def + Position 1 lt {/hpf 0 def /lpf 0 def} if + Position 1 eq {/hpf 0 def /lpf 0 def} if + Position 2 eq {/hpf 0 def /lpf 0.5 def} if + Position 3 eq {/hpf 0 def /lpf 1 def} if + Position 4 eq {/hpf 0.5 def /lpf 0 def} if + Position 5 eq {/hpf 0.5 def /lpf 0.5 def} if + Position 6 eq {/hpf 0.5 def /lpf 1 def} if + Position 7 eq {/hpf 1 def /lpf 0 def} if + Position 8 eq {/hpf 1 def /lpf 0.5 def} if + Position 9 eq {/hpf 1 def /lpf 1 def} if + Position 9 gt {/hpf 1 def /lpf 1 def} if + /StrLen String stringwidth pop lpf mul def + /StrHt Height mm hpf mul def + /Xdiff StrHt Angle sin mul StrLen Angle cos mul sub def + /Ydiff StrHt Angle cos mul StrLen Angle sin mul add def + Xmove mm Xdiff add Ymove mm Ydiff sub moveto + gsave + Angle rotate + String show + grestore + /PosterOnly 0 def +} def +/EllipseDict 8 dict def +EllipseDict /mtrx matrix put +/Ellipse +{ EllipseDict begin + /endangle exch def + /startangle exch def + /yradius exch def + /xradius exch def + /ycenter exch def + /xcenter exch def + /savematrix mtrx currentmatrix def + xcenter mm ycenter mm translate + xradius mm yradius mm div 1 scale + newpath + 0 0 xradius mm startangle endangle arc + stroke + savematrix setmatrix + end +} def +basefont +1 setlinecap +1 setlinejoin +3 setmiterlimit +90 rotate +15.9522 mm -196.902 mm translate +/ 2.7 Font +/ 1.95072 2.77207 0 DefFont +/ 1.95072 2.77207 0 DefFont +[] 0 setdash +newpath + 17.1115 17.1115 M + 34.2231 17.1115 D + 34.2231 34.2231 D + 17.1115 34.2231 D + 17.1115 17.1115 D + -1.71115 0 I + 0 -1.71115 I + 1.71115 0 I + 0 1.71115 I +closepath +stroke +newpath + 0 0 M + 184.805 0 D + 184.805 131.417 D + 0 131.417 D + 0 0 D +closepath +stroke +[2.55252 mm 1.91439 mm 1.91439 mm 1.91439 mm] 0 setdash +newpath + 68.4462 23.9562 M + 68.4462 0 I +stroke +[3.82878 mm 1.27626 mm 1.91439 mm 1.27626 mm] 0 setdash +newpath + 68.4462 22.245 M + 68.4462 0 I +stroke +[5.10504 mm 0.957195 mm 1.27626 mm 0.957195 mm] 0 setdash +newpath + 68.4462 20.5339 M + 68.4462 0 I +stroke +[6.3813 mm 1.27626 mm 0.63813 mm 1.27626 mm] 0 setdash +newpath + 68.4462 18.8227 M + 68.4462 0 I +stroke +[7.01943 mm 1.27626 mm 0 mm 0 mm] 0 setdash +newpath + 68.4462 17.1115 M + 68.4462 0 I +stroke +[6.3813 mm 1.91439 mm 0 mm 0 mm] 0 setdash +newpath + 68.4462 15.4004 M + 68.4462 0 I +stroke +[] 0 setdash +newpath + 68.4462 13.6892 M 68.4462 13.6892 D +stroke +newpath + 136.892 13.6892 M 136.892 13.6892 D +stroke +[1.91439 mm 4.46691 mm 1.91439 mm 0 mm] 0 setdash +newpath + 68.4462 11.9781 M + 68.4462 0 I +stroke +[2.55252 mm 3.19065 mm 2.55252 mm 0 mm] 0 setdash +newpath + 68.4462 10.2669 M + 68.4462 0 I +stroke +[3.19065 mm 2.23345 mm 0.63813 mm 2.23345 mm] 0 setdash +newpath + 68.4462 8.55577 M + 68.4462 0 I +stroke +[3.19065 mm 1.91439 mm 1.91439 mm 1.91439 mm] 0 setdash +newpath + 68.4462 6.84462 M + 68.4462 0 I +stroke +[2.55252 mm 1.59532 mm 2.55252 mm 1.59532 mm] 0 setdash +newpath + 68.4462 5.13346 M + 68.4462 0 I +stroke +[2.23345 mm 1.91439 mm 2.23345 mm 1.91439 mm] 0 setdash +newpath + 68.4462 3.42231 M + 68.4462 0 I +stroke +34.2231 68.4462 1 0 ( -- 0deg --) Text +34.2231 68.4462 1 45 ( -- 45deg --) Text +34.2231 68.4462 1 90 ( -- 90deg --) Text +34.2231 68.4462 1 135 ( -- 135deg --) Text +34.2231 68.4462 1 180 ( -- 180deg --) Text +34.2231 68.4462 1 -135 ( -- 225deg --) Text +34.2231 68.4462 1 -90 ( -- 270deg --) Text +34.2231 68.4462 1 -45 ( -- 315deg --) Text +/ 1.95072 2.77207 2.77207 DefFont +68.4462 68.4462 1 0 ( SLANT of 45deg) Text +/ 1.95072 2.77207 -2.77207 DefFont +68.4462 61.6016 1 0 ( SLANT of -45deg) Text +/ 1.95072 2.77207 0 DefFont +/ 1.95072 2.77207 0 DefFont +34.2231 102.669 1 0 ( Size is relative) Text +/ 2.7 1.9 0 DefFont +34.2231 94.1135 1 0 ( DEFAULT sizes) Text +/ 8 10 0 DefFont +34.2231 85.5577 1 0 (LARGE size (w=8mm, h=10mm)) Text +[] 0 setdash +154.004 17.1115 8.55577 8.55577 0 360 Ellipse +154.004 17.1115 6.84462 6.84462 0 360 Ellipse +154.004 17.1115 5.13346 5.13346 0 360 Ellipse +154.004 17.1115 3.42231 3.42231 0 360 Ellipse +154.004 17.1115 1.71115 1.71115 0 360 Ellipse +154.004 17.1115 0.855577 0.855577 0 360 Ellipse +/ 1.95072 2.77207 0 DefFont +154.004 17.1115 5 0 (+) Text +171.115 17.1115 5 0 (+) Text +171.115 25.6673 5 0 (%) Text +171.115 8.55577 5 0 (%) Text +showpage |