summaryrefslogtreecommitdiff
path: root/graphics/hpgl2ps/foo.ps
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/hpgl2ps/foo.ps')
-rw-r--r--graphics/hpgl2ps/foo.ps219
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