1 61f5c35c 2004-05-15 devnull static char *PS_head[] = {
2 61f5c35c 2004-05-15 devnull "%ps_include: begin\n",
4 61f5c35c 2004-05-15 devnull "/ed {exch def} def\n",
5 61f5c35c 2004-05-15 devnull "{} /showpage ed\n",
6 61f5c35c 2004-05-15 devnull "{} /copypage ed\n",
7 61f5c35c 2004-05-15 devnull "{} /erasepage ed\n",
8 61f5c35c 2004-05-15 devnull "{} /letter ed\n",
9 61f5c35c 2004-05-15 devnull "currentdict /findfont known systemdict /findfont known and {\n",
10 61f5c35c 2004-05-15 devnull " /findfont systemdict /findfont get def\n",
11 61f5c35c 2004-05-15 devnull "} if\n",
12 61f5c35c 2004-05-15 devnull "36 dict dup /PS-include-dict-dw ed begin\n",
13 61f5c35c 2004-05-15 devnull "/context ed\n",
14 61f5c35c 2004-05-15 devnull "count array astore /o-stack ed\n",
15 61f5c35c 2004-05-15 devnull "%ps_include: variables begin\n",
19 61f5c35c 2004-05-15 devnull static char *PS_setup[] = {
20 61f5c35c 2004-05-15 devnull "%ps_include: variables end\n",
21 61f5c35c 2004-05-15 devnull "{llx lly urx ury} /bbox ed\n",
22 61f5c35c 2004-05-15 devnull "{newpath 2 index exch 2 index exch dup 6 index exch\n",
23 61f5c35c 2004-05-15 devnull " moveto 3 {lineto} repeat closepath} /boxpath ed\n",
24 61f5c35c 2004-05-15 devnull "{dup mul exch dup mul add sqrt} /len ed\n",
25 61f5c35c 2004-05-15 devnull "{2 copy gt {exch} if pop} /min ed\n",
26 61f5c35c 2004-05-15 devnull "{2 copy lt {exch} if pop} /max ed\n",
27 61f5c35c 2004-05-15 devnull "{transform round exch round exch A itransform} /nice ed\n",
28 61f5c35c 2004-05-15 devnull "{6 array} /n ed\n",
29 61f5c35c 2004-05-15 devnull "n defaultmatrix n currentmatrix n invertmatrix n concatmatrix /A ed\n",
30 61f5c35c 2004-05-15 devnull "urx llx sub 0 A dtransform len /Sx ed\n",
31 61f5c35c 2004-05-15 devnull "0 ury lly sub A dtransform len /Sy ed\n",
32 61f5c35c 2004-05-15 devnull "llx urx add 2 div lly ury add 2 div A transform /Cy ed /Cx ed\n",
33 61f5c35c 2004-05-15 devnull "rot dup sin abs /S ed cos abs /C ed\n",
34 61f5c35c 2004-05-15 devnull "Sx S mul Sy C mul add /H ed\n",
35 61f5c35c 2004-05-15 devnull "Sx C mul Sy S mul add /W ed\n",
36 61f5c35c 2004-05-15 devnull "sy H div /Scaley ed\n",
37 61f5c35c 2004-05-15 devnull "sx W div /Scalex ed\n",
38 61f5c35c 2004-05-15 devnull "s 0 eq {Scalex Scaley min dup /Scalex ed /Scaley ed} if\n",
39 61f5c35c 2004-05-15 devnull "sx Scalex W mul sub 0 max ax 0.5 sub mul cx add /cx ed\n",
40 61f5c35c 2004-05-15 devnull "sy Scaley H mul sub 0 max ay 0.5 sub mul cy add /cy ed\n",
41 61f5c35c 2004-05-15 devnull "urx llx sub 0 A dtransform exch atan rot exch sub /rot ed\n",
42 61f5c35c 2004-05-15 devnull "n currentmatrix initgraphics setmatrix\n",
43 61f5c35c 2004-05-15 devnull "cx cy translate\n",
44 61f5c35c 2004-05-15 devnull "Scalex Scaley scale\n",
45 61f5c35c 2004-05-15 devnull "rot rotate\n",
46 61f5c35c 2004-05-15 devnull "Cx neg Cy neg translate\n",
47 61f5c35c 2004-05-15 devnull "A concat\n",
48 61f5c35c 2004-05-15 devnull "bbox boxpath clip newpath\n",
49 61f5c35c 2004-05-15 devnull "w 0 ne {gsave bbox boxpath 1 setgray fill grestore} if\n",
51 61f5c35c 2004-05-15 devnull "gsave\n",
52 61f5c35c 2004-05-15 devnull "%ps_include: inclusion begin\n",
56 61f5c35c 2004-05-15 devnull static char *PS_tail[] = {
57 61f5c35c 2004-05-15 devnull "%ps_include: inclusion end\n",
58 61f5c35c 2004-05-15 devnull "grestore\n",
59 61f5c35c 2004-05-15 devnull "PS-include-dict-dw begin\n",
60 61f5c35c 2004-05-15 devnull "o 0 ne {gsave A defaultmatrix /A ed llx lly nice urx ury nice\n",
61 61f5c35c 2004-05-15 devnull " initgraphics 0.1 setlinewidth boxpath stroke grestore} if\n",
62 61f5c35c 2004-05-15 devnull "clear o-stack aload pop\n",
63 61f5c35c 2004-05-15 devnull "context end restore\n",
64 61f5c35c 2004-05-15 devnull "%ps_include: end\n",
