3 % Functions for direct and embedded PostScript
5 % Careful with double % as comment prefix.
6 % Any %%X comment is interpreted as DSC comments.
8 % TODO: use dicts or prefixes to prevent namespace pollution.
11 {pop} {userdict /pdfmark /cleartomark load put} ifelse
23 /Rect [ llx lly urx ury ]
38 % llx lly urx ury page
47 /Rect [ llx lly urx ury ]
56 % from adobe tech note 5002.
58 /b4_Inc_state save def % Save state for cleanup
59 /dict_count countdictstack def % Count objects on dict stack
60 /op_count count 1 sub def % Count objects on operand stack
61 userdict begin % Push userdict on dict stack
62 /showpage { } def % Redefine showpage, { } = null proc
63 0 setgray 0 setlinecap % Prepare graphics state
64 1 setlinewidth 0 setlinejoin
65 10 setmiterlimit [ ] 0 setdash newpath
70 count op_count sub {pop} repeat % Clean up stacks
71 countdictstack dict_count sub {end} repeat
89 /vector_add { % x1 y1 x2 y2 vector_add x1+x2 y1+y2
98 /draw_round_box % width height x y blot
101 matrix currentmatrix 5 1 roll
102 currentpoint translate newpath translate
103 2 copy 0 min exch 0 min exch translate
105 currentlinewidth 0 eq
109 0 1 index 2 div moveto
118 1 index 2 div 0 moveto
125 0 0 4 2 roll rectfill
132 2 copy 0 eq exch 0 eq or
141 currentlinewidth 2 div
142 0 0 2 index 180 270 arc
143 2 index 0 2 index 270 360 arc
145 0 2 index 3 -1 roll 90 180 arc
149 2 copy add currentlinewidth add 10 add % large enough
151 2 index 1 index neg lineto
152 2 index 1 index lineto
153 0 exch lineto closepath
155 0 1 index 2 div moveto
156 currentlinewidth add setlinewidth
165 2 copy add currentlinewidth add 10 add % large enough
169 neg 1 index lineto closepath
171 1 index 2 div 0 moveto
172 exch currentlinewidth add setlinewidth
193 /draw_polygon % fill? x(n) y(n) x(n-1) y(n-1) ... x(0) y(0) n blot
195 setlinewidth %set to blot
206 { polygon_x polygon_y vector_add lineto } repeat % n times
211 /draw_circle % filled? radius thickness draw_circle
214 currentpoint % f? r x0 y0
215 3 2 roll % f? x0 y0 r
221 /draw_ellipse % filled? x-radius y-radius thickness draw_ellipse
223 setlinewidth % f? x-r y-r
224 /savematrix matrix currentmatrix def
228 1 0 360 arc closepath
233 /draw_partial_ellipse % filled connect x-radius y-radius startangle endangle thickness draw_partial_ellipse
234 % Note that filled is not boolean to permit for different graylevels (ie for trill keys)
237 currentpoint translate
243 /endrad x_radius y_radius mul
244 x_radius x_radius mul
245 endangle cos endangle cos mul mul
246 y_radius y_radius mul
247 endangle sin endangle sin mul mul add sqrt div def
248 /endangle endangle sin endrad mul y_radius div
249 endangle cos endrad mul x_radius div atan def
250 /startrad x_radius y_radius mul
251 x_radius x_radius mul
252 startangle cos startangle cos mul mul
253 y_radius y_radius mul
254 startangle sin startangle sin mul mul add sqrt div def
255 /startangle startangle sin startrad mul y_radius div
256 startangle cos startrad mul x_radius div atan def
259 /savematrix matrix currentmatrix def
260 thickness setlinewidth
261 x_radius y_radius scale
262 startangle cos startangle sin moveto
264 startangle endangle eq { endangle 360 add } { endangle } ifelse
267 startangle cos startangle sin moveto endangle cos endangle sin lineto }
269 savematrix setmatrix filled stroke_and_fill?
273 /draw_line % dx dy x1 y1 thickness draw_line
275 setlinewidth % dx dy x1 y1
282 /draw_dashed_line % dx dy thickness dashpattern offset draw_dashed_line
285 setdash % dx dy thickness
289 [] 0 setdash % reset dash pattern
292 /print_glyphs % w dx dy glyph print_glyphs
295 currentpoint %w dx dy glyph x0 y0
296 5 2 roll %w x0 y0 dx dy glyph
297 3 1 roll %w x0 y0 glyph dx dy
298 rmoveto %w x0 y0 glyph
304 %end music-drawing-routines.ps