ps/music-drawing-routines.ps

   1 %!PS-Adobe-1.0: music-drawing-routines.ps
   2 %
   3 % Functions for direct and embedded PostScript
   4
   5 % Careful with double % as comment prefix.
   6 % Any %%X comment is interpreted as DSC comments.
   7
   8 % TODO: use dicts or prefixes to prevent namespace pollution.
   9
  10 /pdfmark where
  11 {pop} {userdict /pdfmark /cleartomark load put} ifelse
  12
  13
  14 % llx lly urx ury URI
  15 /mark_URI
  16 {
  17     /uri exch def
  18     /ury exch def
  19     /urx exch def
  20     /lly exch def
  21     /llx exch def
  22     [
  23         /Rect [ llx lly urx ury ]
  24
  25         /Border [ 0 0 0 ]
  26
  27         /Action
  28             <<
  29                 /Subtype /URI
  30                 /URI uri
  31             >>
  32         /Subtype /Link
  33     /ANN
  34     pdfmark
  35 }
  36 bind def
  37
  38 % from adobe tech note 5002.
  39 /BeginEPSF { %def
  40     /b4_Inc_state save def % Save state for cleanup
  41     /dict_count countdictstack def % Count objects on dict stack
  42     /op_count count 1 sub def % Count objects on operand stack
  43     userdict begin % Push userdict on dict stack
  44     /showpage { } def % Redefine showpage, { } = null proc
  45     0 setgray 0 setlinecap % Prepare graphics state
  46     1 setlinewidth 0 setlinejoin
  47     10 setmiterlimit [ ] 0 setdash newpath
  48     /languagelevel where % If level not equal to 1 then
  49     {pop languagelevel % set strokeadjust and
  50     1 ne % overprint to their defaults.
  51       {false setstrokeadjust false setoverprint
  52       } if
  53     } if
  54 } bind def
  55
  56 /EndEPSF { %def
  57   count op_count sub {pop} repeat % Clean up stacks
  58   countdictstack dict_count sub {end} repeat
  59   b4_Inc_state restore
  60 } bind def
  61
  62 /stroke_and_fill {
  63         gsave
  64                 stroke
  65         grestore
  66         fill
  67 } bind def
  68
  69 /vector_add { % x1 y1 x2 y2 vector_add x1+x2 y1+y2
  70         exch
  71         4 1 roll
  72         add
  73         3 1 roll
  74         add
  75         exch
  76 } bind def
  77
  78 /draw_round_box % width height x y blot
  79 {
  80         setlinewidth % w h x y
  81         0 setlinecap
  82         1 setlinejoin
  83
  84         rmoveto % w h
  85         currentpoint % w h x1 y1
  86         4 2 roll % x1 y1 w h
  87         4 copy
  88         rectfill
  89         rectstroke
  90 } bind def
  91
  92 /draw_polygon % fill? x(n) y(n) x(n-1) y(n-1) ... x(0) y(0) n blot
  93 {
  94         setlinewidth %set to blot
  95
  96         0 setlinecap
  97         1 setlinejoin
  98
  99         3 1 roll
 100         /polygon_x
 101         currentpoint
 102         /polygon_y exch def
 103         def
 104         rmoveto % x(0) y(0)
 105         { polygon_x polygon_y vector_add lineto } repeat % n times
 106         closepath
 107         { %fill?
 108                 stroke_and_fill
 109         }{
 110                 stroke
 111         } ifelse
 112 } bind def
 113
 114 /draw_repeat_slash % x-width width height draw_repeat_slash
 115 {
 116         2 index % duplicate x-width
 117         1 setlinecap
 118         1 setlinejoin
 119
 120           0  rlineto % x-width 0
 121              rlineto % width height
 122         neg 0 rlineto % -x-width 0
 123         closepath fill
 124 } bind def
 125
 126 % this is for drawing slurs and barre-indicators.
 127 /draw_bezier_sandwich  % x5 y5 x6 y6 x7 y7
 128                        % x4 y4
 129                        % x1 y1 x2 y2 x3 y3
 130                        % x0 y0
 131                        % linewidth draw_bezier_sandwich
 132 {
 133         gsave
 134         currentpoint translate
 135         % round ending and round beginning
 136         1 setlinejoin 1 setlinecap
 137         setlinewidth
 138         moveto
 139         curveto
 140         lineto
 141         curveto
 142         closepath
 143         stroke_and_fill
 144         grestore
 145 } bind def
 146
 147 /draw_dot % radius x y draw_dot
 148 {
 149         rmoveto
 150         currentpoint
 151         3 2 roll
 152         0 360 arc closepath stroke_and_fill
 153 } bind def
 154
 155 /draw_circle % filled? radius thickness draw_circle
 156 {
 157         setlinewidth    % f? r
 158         currentpoint    % f? r x0 y0
 159         3 2 roll        % f? x0 y0 r
 160         dup 0 rmoveto
 161         0 360 arc closepath
 162                 { stroke_and_fill }
 163                 { stroke }
 164         ifelse
 165 } bind def
 166
 167 /draw_oval % filled? x-radius y-radius thickness draw_ellipse
 168 {
 169   setlinewidth % f? x-r y-r
 170   /yrad exch def
 171   /xrad exch def
 172   xrad 0 rmoveto
 173   0 yrad -2 xrad mul dup yrad exch 0 rcurveto
 174   0 yrad neg dup 2 xrad mul dup 3 1 roll 0 rcurveto
 175   closepath
 176       { stroke_and_fill}
 177       { stroke }
 178   ifelse
 179 } bind def
 180
 181 /draw_ellipse % filled? x-radius y-radius thickness draw_ellipse
 182 {
 183   setlinewidth % f? x-r y-r
 184   /savematrix matrix currentmatrix def
 185   scale % f?
 186   currentpoint
 187   1 0 rmoveto
 188   1 0 360  arc closepath
 189   savematrix setmatrix
 190              { stroke_and_fill}
 191              { stroke }
 192   ifelse
 193 } bind def
 194
 195 /draw_line % dx dy x1 y1 thickness draw_line
 196 {
 197         setlinewidth % dx dy x1 y1
 198         1 setlinecap
 199         1 setlinejoin
 200         rmoveto % dx dy
 201         rlineto
 202         stroke
 203 } bind def
 204
 205 /draw_dashed_line % dx dy thickness dashpattern offset draw_dashed_line
 206 {
 207         1 setlinecap
 208         1 setlinejoin
 209         setdash % dx dy thickness
 210         setlinewidth %dx dy
 211         rlineto
 212         stroke
 213         [] 0 setdash % reset dash pattern
 214 } bind def
 215
 216 /draw_dashed_slur % controls thickness dash
 217 {
 218 gsave
 219         currentpoint translate
 220         1 setlinecap
 221         1 setlinejoin
 222         setdash
 223         setlinewidth
 224         8 2 roll
 225         moveto
 226         curveto
 227         stroke
 228 grestore
 229 } bind def
 230
 231 /print_glyphs % dx dy glyph print_glyphs
 232 {
 233         {
 234                 currentpoint %dx dy glyph x0 y0
 235                 3 2 roll %dx dy x0 y0 glyph
 236                 glyphshow % dx dy x0 y0
 237                 moveto % dx dy
 238                 rmoveto
 239         }repeat
 240 }bind def
 241 %end music-drawing-routines.ps