ps/lilyponddefs.ps

   1 %!PS-Adobe-1.0: lilyponddefs
   2
   3 % hmm
   4 /setgray { 1 add } bind def
   5
   6 /xoffset 30 def
   7 /yoffset 700 def
   8 /stafflinethickness 1 def
   9 /staffheight 20 def
  10
  11 /placebox
  12 {
  13         /object exch def
  14         gsave
  15         %exch translate
  16         translate
  17         0 0 moveto
  18         object
  19         grestore
  20 } bind def
  21
  22 /setbold % '(' text ')'
  23 {
  24         settext
  25 } bind def
  26
  27 /settext % '(' text ')'
  28 {
  29         gsave
  30         % urg
  31         /Times-Roman findfont 12 scalefont setfont
  32         show
  33         grestore
  34 } bind def
  35
  36 /setfinger % '(' text ')'
  37 {
  38         gsave
  39         % urg
  40         /feta-nummer5 findfont 12 scalefont setfont
  41         show
  42         grestore
  43 } bind def
  44
  45 /setitalic % '(' text ')'
  46 {
  47         gsave
  48         % urg
  49         /Times-Italic findfont 12 scalefont setfont
  50         show
  51         grestore
  52 } bind def
  53
  54 /vrule % width height depth
  55 {
  56         gsave
  57         3 -1 roll setlinewidth
  58         neg 0 exch moveto
  59         0 exch lineto stroke
  60         grestore
  61 } bind def
  62
  63 /draw_stem % kern width height depth
  64 {
  65         gsave
  66         4 -1 roll neg 0 translate
  67         vrule
  68         grestore
  69 } bind def
  70
  71 /extender % width
  72 {
  73         gsave
  74         0 0 moveto
  75         stafflinethickness 0.8 mul setlinewidth
  76         0 lineto stroke
  77         grestore
  78 } bind def
  79
  80 /widthbar % height width
  81 {
  82         gsave
  83         setlinewidth
  84         2 div dup neg 0 exch moveto
  85         0 exch lineto stroke
  86         2 div
  87         grestore
  88 } bind def
  89
  90 /thickbar % height
  91 {
  92         stafflinethickness 2 mul widthbar
  93 } bind def
  94
  95 /thinbar % height
  96 {
  97         stafflinethickness 1.6 mul widthbar
  98 } bind def
  99
 100 /maatstreep % height
 101 {
 102         thinbar
 103 } bind def
 104
 105 /fatdoublebar
 106 {
 107         thickbar
 108 } bind def
 109
 110 /finishbar
 111 {
 112         thickbar
 113 } bind def
 114
 115 /generalmeter % num den
 116 {
 117         pop pop
 118 } bind def
 119
 120 /pianobrace % '(' char ')'
 121 {
 122         gsave
 123         /feta-braces20 findfont 12 scalefont setfont%
 124         show
 125         grestore
 126 } bind def
 127
 128 /doublebar
 129 {
 130         thinbar
 131 } bind def
 132
 133 /repeatbar
 134 {
 135         thickbar
 136 } bind def
 137
 138 /repeatbarstartrepeat
 139 {
 140         thickbar
 141 } bind def
 142
 143 /startbar
 144 {
 145         thickbar
 146 } bind def
 147
 148 /startrepeat
 149 {
 150         thickbar
 151 } bind def
 152
 153 /stoprepeat
 154 {
 155         thickbar
 156 } bind def
 157
 158 /start_line
 159 {
 160         gsave
 161         xoffset yoffset translate
 162 } bind def
 163
 164 /stop_line
 165 {
 166         /object exch def
 167         0 0 moveto pathbbox exch pop sub exch pop
 168         object
 169         grestore
 170         yoffset add /yoffset exch def
 171         % urg...
 172         yoffset staffheight 8 mul sub /yoffset exch def
 173 } bind def
 174
 175 /unknown { (U) setbold } bind def
 176 /empty { (E) setbold } bind def
 177
 178 /turnOnExperimentalFeatures { } bind def
 179
 180 /rulesym % thick length
 181 {
 182         gsave
 183         exch setlinewidth
 184         0 lineto stroke
 185         grestore
 186 } bind def
 187
 188 (lily.ps) findlibfile
 189 {
 190         exch pop //systemdict /run get exec
 191 }
 192 {
 193         /undefinedfilename signalerror
 194 } ifelse
 195
 196 stafflinethickness setlinewidth
 197
 198 % see if we're there...
 199 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke