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