You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
3.1 KiB
46 lines
3.1 KiB
%!
|
|
TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
|
|
/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
|
|
/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
|
|
/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
|
|
/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
|
|
X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
|
|
/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
|
|
/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
|
|
{userdict/md get type/dicttype eq{userdict begin md length 10 add md
|
|
maxlength ge{/md md dup length 20 add dict copy def}if end md begin
|
|
/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
|
|
atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
|
|
itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
|
|
transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
|
|
curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
|
|
pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
|
|
if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
|
|
-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
|
|
get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
|
|
yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
|
|
neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
|
|
noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
|
|
90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
|
|
neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
|
|
1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
|
|
2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
|
|
-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
|
|
TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
|
|
Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
|
|
}if 0 setgray}N/@beginspecial{SDict begin/SpecialSave save N gsave
|
|
normalscale currentpoint TR @SpecialDefaults count/ocount X/dcount
|
|
countdictstack N}N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto
|
|
0 vs rlineto hs neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale
|
|
ang rotate rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}
|
|
ifelse scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale
|
|
llx neg lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly
|
|
lineto urx ury lineto llx ury lineto closepath clip}if/showpage{}N
|
|
/erasepage{}N/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{
|
|
count ocount sub{pop}repeat countdictstack dcount sub{end}repeat
|
|
grestore SpecialSave restore end}N/@defspecial{SDict begin}N
|
|
/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
|
|
currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
|
|
moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
|
|
/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
|
|
1 startangle endangle arc savematrix setmatrix}N end
|
|
|