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