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