ps/lilyponddefs.ps

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