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 /finishbar
  92 {
  93         thickbar
  94 } bind def
  95
  96 /generalmeter % num den
  97 {
  98         pop pop
  99 } bind def
 100
 101 /pianobrace % '(' char ')'
 102 {
 103         gsave
 104         /feta-braces20 findfont 12 scalefont setfont%
 105         show
 106         grestore
 107 } bind def
 108
 109 /doublebar
 110 {
 111         thinbar
 112 } bind def
 113
 114 /repeatbar
 115 {
 116         thickbar
 117 } bind def
 118
 119 /repeatbarstartrepeat
 120 {
 121         thickbar
 122 } bind def
 123
 124 /startrepeat
 125 {
 126         thickbar
 127 } bind def
 128
 129 /stoprepeat
 130 {
 131         thickbar
 132 } bind def
 133
 134 /start_line
 135 {
 136         gsave
 137         xoffset yoffset translate
 138 } bind def
 139
 140 /stop_line
 141 {
 142         /object exch def
 143         0 0 moveto pathbbox exch pop sub exch pop
 144         object
 145         grestore
 146         yoffset add /yoffset exch def
 147         % urg...
 148         yoffset staffheight 8 mul sub /yoffset exch def
 149 } bind def
 150
 151 /unknown { (U) show} bind def
 152 /empty {(E) show} bind def
 153
 154 /turnOnExperimentalFeatures { } bind def
 155
 156 /rulesym % thick length
 157 {
 158         gsave
 159         exch setlinewidth
 160         0 lineto stroke
 161         grestore
 162 } bind def
 163
 164 (lily.ps) findlibfile
 165 {
 166         exch pop //systemdict /run get exec
 167 }
 168 {
 169         /undefinedfilename signalerror
 170 } ifelse
 171
 172 stafflinethickness setlinewidth
 173
 174 % see if we're there...
 175 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke