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         gsave
  60         3 -1 roll setlinewidth
  61         %neg 0 exch moveto
  62         0 exch moveto
  63         neg 0 exch lineto stroke
  64         grestore
  65 } bind def
  66
  67 /draw_stem % breapth width depth height
  68 {
  69         gsave
  70         4 -1 roll neg 0 translate
  71         vrule
  72         grestore
  73 } bind def
  74
  75 /extender % width
  76 {
  77         gsave
  78         0 0 moveto
  79         stafflinethickness 0.8 mul setlinewidth
  80         0 lineto stroke
  81         grestore
  82 } bind def
  83
  84 /widthbar % height width
  85 {
  86         gsave
  87         setlinewidth
  88         2 div dup neg 0 exch moveto
  89         0 exch lineto stroke
  90         2 div
  91         grestore
  92 } bind def
  93
  94 /thickbar % height
  95 {
  96         stafflinethickness 2 mul widthbar
  97 } bind def
  98
  99 /thinbar % height
 100 {
 101         stafflinethickness 1.6 mul widthbar
 102 } bind def
 103
 104 /maatstreep % height
 105 {
 106         thinbar
 107 } bind def
 108
 109 /fatdoublebar
 110 {
 111         thickbar
 112 } bind def
 113
 114 /finishbar
 115 {
 116         thickbar
 117 } bind def
 118
 119 /generalmeter % num den
 120 {
 121         pop pop
 122 } bind def
 123
 124 /pianobrace % '(' char ')'
 125 {
 126         gsave
 127         /feta-braces20 findfont 12 scalefont setfont%
 128         show
 129         grestore
 130 } bind def
 131
 132 /doublebar
 133 {
 134         thinbar
 135 } bind def
 136
 137 /repeatbar
 138 {
 139         thickbar
 140 } bind def
 141
 142 /repeatbarstartrepeat
 143 {
 144         thickbar
 145 } bind def
 146
 147 /startbar
 148 {
 149         thickbar
 150 } bind def
 151
 152 /startrepeat
 153 {
 154         thickbar
 155 } bind def
 156
 157 /stoprepeat
 158 {
 159         thickbar
 160 } bind def
 161
 162 /start_line
 163 {
 164         gsave
 165         xoffset yoffset translate
 166 } bind def
 167
 168 /stop_line
 169 {
 170         /object exch def
 171         0 0 moveto pathbbox exch pop sub exch pop
 172         object
 173         grestore
 174         yoffset add /yoffset exch def
 175         % urg...
 176         yoffset staffheight 8 mul sub /yoffset exch def
 177 } bind def
 178
 179 /unknown { (U) setbold } bind def
 180 /empty { (E) setbold } bind def
 181
 182 /turnOnExperimentalFeatures { } bind def
 183
 184 /rulesym % thick length
 185 {
 186         gsave
 187         exch setlinewidth
 188         0 lineto stroke
 189         grestore
 190 } bind def
 191
 192 (lily.ps) findlibfile
 193 {
 194         exch pop //systemdict /run get exec
 195 }
 196 {
 197         /undefinedfilename signalerror
 198 } ifelse
 199
 200 stafflinethickness setlinewidth
 201
 202 % see if we're there...
 203 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke