Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
%
2 
% Version 3.3.2 prologue for tektronix 4014 files.
3 
%
4 
 
5 
/#copies 1 store
6 
/aspectratio 1 def
7 
/fixlinewidth true def
8 
/font /Courier def
9 
/formsperpage 1 def
10 
/landscape true def
11 
/linewidth 0 def
12 
/magnification 1 def
13 
/margin 10 def
14 
/orientation 0 def
15 
/rotation 1 def
16 
/screenheight 3120 def
17 
/screenwidth 4150 def
18 
/spotsize 1 def
19 
/xoffset 0 def
20 
/yoffset 0 def
21 
 
22 
/useclippath true def
23 
/pagebbox [0 0 612 792] def
24 
 
25 
/inch {72 mul} bind def
26 
/min {2 copy gt {exch} if pop} bind def
27 
 
28 
/kshow {kshow} bind def		% so later references don't bind
29 
 
30 
/setup {
31 
	counttomark 2 idiv {def} repeat pop
32 
 
33 
	landscape {/orientation 90 orientation add def} if
34 
 
35 
	pagedimensions
36 
	/scaling
37 
		height margin sub screenheight div
38 
		width margin sub screenwidth div
39 
	min def
40 
	xcenter ycenter translate
41 
	orientation rotation mul rotate
42 
	xoffset inch yoffset inch translate
43 
	magnification dup aspectratio mul scale
44 
	scaling scaling scale
45 
	screenwidth 2 div neg screenheight 2 div neg translate
46 
 
47 
	tietodevicespace
48 
	linewidth scaling div setlinewidth
49 
	1 setlinecap
50 
	newpath
51 
} def
52 
 
53 
/pagedimensions {
54 
	useclippath {
55 
		/pagebbox [clippath pathbbox newpath] def
56 
	} if
57 
	pagebbox aload pop
58 
	4 -1 roll exch 4 1 roll 4 copy
59 
	landscape {4 2 roll} if
60 
	sub /width exch def
61 
	sub /height exch def
62 
	add 2 div /xcenter exch def
63 
	add 2 div /ycenter exch def
64 
	userdict /gotpagebbox true put
65 
} def
66 
 
67 
/pagesetup {/page exch def} bind def
68 
 
69 
/tietodevicespace {
70 
	fixlinewidth linewidth 0 gt and linewidth 1 lt and {
71 
		/moveto {
72 
			2 copy /Y exch def /X exch def
73 
			transform round exch round exch itransform
74 
			moveto
75 
		} bind def
76 
		/lineto {
77 
			2 copy /Y exch def /X exch def
78 
			transform round exch round exch itransform
79 
			lineto
80 
		} bind def
81 
		/rlineto {Y add exch X add exch lineto} bind def
82 
		/v V 0 get bind def
83 
	} if
84 
} def
85 
 
86 
/V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
87 
/v V 0 get bind def
88 
/p {newpath spotsize 0 360 arc fill} bind def
89 
 
90 
/l {{scaling div} forall counttomark array astore 0 setdash} bind def
91 
/w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def
92 
/i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def
93 
 
94 
/f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def
95 
 
96 
/t {
97 
	3 1 roll moveto
98 
	currentpoint {
99 
		pop pop
100 
		exch charwidth add exch
101 
		moveto currentpoint
102 
	} 4 -1 roll kshow
103 
	pop pop
104 
} bind def
105 
 
106 
/done {/lastpage where {pop lastpage} if} def