Lines Matching refs:display
45 (display "%!\n" port)
46 (display "%generated by gerbv\n\n" port)
47 (display "/inch {72 mul} def\n" port)
48 (display "/mm {25.4 div inch} def\n" port)
50 (display "1.5 inch 3 inch translate\n" port)
54 (display "/Black {0 setgray} def\n" port)
55 (display "/White {1 setgray} def\n" port))
57 (display "/Black {1 setgray} def % Polarity reversed\n" port)
58 (display "/White {0 setgray} def\n" port)))
60 (display "/circle { % x y id od\n" port)
61 (display " gsave\n" port)
62 (display " 3 index 3 index moveto\n" port)
63 (display " 3 index 3 index 3 2 roll % Fix arguments\n" port)
64 (display " 2 div % d given, need r\n" port)
65 (display " 0 360 arc Black fill % outer\n" port)
66 (display " 2 div % d given, need r\n" port)
67 (display " 0 360 arc White fill %inner\n" port)
68 (display "grestore\n" port)
69 (display "} def\n" port)
71 (display "/rectangle { % x y xl yl\n" port)
72 (display " gsave\n" port)
73 (display " newpath\n" port)
74 (display " 1 setlinewidth\n" port)
75 (display " 3 index 2 index 2 div sub\n" port)
76 (display " 3 index 2 index 2 div add moveto\n" port)
77 (display " 1 index 0 rlineto\n" port) ; ->
78 (display " dup -1 mul 0 exch rlineto\n" port) ; \!/
79 (display " 1 index -1 mul 0 rlineto\n" port) ; <-
80 (display " dup 0 exch rlineto\n" port) ; /!\
81 (display " pop pop pop pop closepath Black fill\n" port)
82 (display " grestore\n" port)
83 (display "} def\n" port)
86 (display "gsave 72 setlinewidth newpath\n" port)
92 (display (string-append max-x " " unit " ") port)
93 (display (string-append max-y " " unit " moveto\n") port)
94 (display (string-append max-x " " unit " ") port)
95 (display (string-append min-y " " unit " lineto\n") port)
96 (display (string-append min-x " " unit " ") port)
97 (display (string-append min-y " " unit " lineto\n") port)
98 (display (string-append min-x " " unit " ") port)
99 (display (string-append max-y " " unit " lineto\n") port))
100 (display "closepath White fill grestore\n" port)
112 (display " moveto\n" port))
116 (display " lineto\n" port))
119 (display " " port)
125 (display x port) ; X axis
126 (display " " port)
127 (display unit port)
128 (display " " port)
129 (display y port) ; Y axis
130 (display " " port)
131 (display unit port))
136 (display "0 " port)
137 (display unit port)
138 (display " setlinewidth\n" port))
140 (display "stroke\n" port)
141 (display *last-x* port) ; X Axis
142 (display " " port)
143 (display unit port)
144 (display " " port)
145 (display *last-y* port)
146 (display " " port)
147 (display unit port)
148 (display " moveto\n" port)
149 (display (get-aperture-size aperture-type aperture) port)
150 (display " " port)
151 (display unit port)
152 (display " setlinewidth\n" port)
162 (display " 0 " port)
163 (display (car sizes) port)
164 (display " " port)
165 (display unit port)
166 (display " " port))
168 (display (car sizes) port)
169 (display " " port)
170 (display unit port)
171 (display " " port)
172 (display (cadr sizes) port)
173 (display " " port)
174 (display unit port)
175 (display " " port)))
178 (display " circle" port))
180 (display " rectangle " port))
182 (display " rectangle % oval" port))
184 (display " moveto % polygon" port))
186 (display " moveto % macro" port))
188 (display " moveto %unknown" port))))
202 (display "stroke\nshowpage\n" port))
206 (display "Warning! This backend is incomplete and known ")
207 (display "to generate incorrect PostScript files\n")
209 (display (string-append "Output file will be " outfile "\n"))