ps/lily.ps

   1 %!PS-Adobe-1.0: lily.ps
   2
   3 % round cappings
   4 1 setlinecap
   5
   6 /draw_beam % width slope thick
   7 {
   8         2 div /beam_thick exch def
   9         /beam_slope exch def
  10         /beam_wd exch def
  11         beam_slope beam_wd mul /beam_ht exch def
  12         0 beam_thick neg moveto
  13         beam_wd beam_ht rlineto
  14         0 beam_thick 2 mul rlineto
  15         0 beam_thick lineto
  16         closepath fill
  17 } bind def
  18
  19 /draw_decrescendo % cont height width
  20 {
  21         stafflinethickness setlinewidth
  22         /cresc_cont exch def
  23         /cresc_ht exch def
  24         /cresc_wd exch def
  25
  26         cresc_wd cresc_cont moveto
  27         0 cresc_ht lineto
  28         stroke
  29         cresc_wd cresc_cont neg moveto
  30         0 cresc_ht neg lineto
  31         stroke
  32 } bind def
  33
  34 /draw_crescendo % cont height width
  35 {
  36         stafflinethickness setlinewidth
  37         /cresc_cont exch def
  38         /cresc_ht exch def
  39         /cresc_wd exch def
  40
  41         0 cresc_cont moveto
  42         cresc_wd cresc_ht lineto
  43         stroke
  44         0 cresc_cont neg moveto
  45         cresc_wd cresc_ht neg lineto
  46         stroke
  47 } bind def
  48
  49 /lily_distance
  50 {
  51         1 copy mul exch 1 copy mul add sqrt
  52 } bind def
  53
  54 /draw_tuplet
  55 {
  56         tuplet_t setlinewidth
  57 % urg: the only Level-2 PS, check effect in print
  58 %       true setstrokeadjust
  59         1 setlinecap
  60         1 setlinejoin
  61         /dir exch def
  62         /tuplet_dy exch def
  63         /tuplet_dx exch def
  64         staffheight 2 div /tuplet_gapx exch def
  65         tuplet_dy tuplet_dx div tuplet_gapx mul /tuplet_gapy exch def
  66         staffheight 4 div dir mul /tuplet_h exch def
  67
  68         0 0 moveto
  69         0 tuplet_h lineto
  70         tuplet_dx tuplet_gapx sub 2 div
  71                 tuplet_dy tuplet_gapy sub 2 div tuplet_h add lineto
  72         tuplet_dx tuplet_gapx add 2 div
  73                 tuplet_dy tuplet_gapy add 2 div tuplet_h add moveto
  74         tuplet_dx tuplet_dy tuplet_h add lineto
  75         tuplet_dx tuplet_dy lineto
  76         stroke
  77 } bind def
  78
  79 /draw_slur
  80 {
  81         stafflinethickness setlinewidth
  82         moveto
  83         curveto
  84         lineto
  85         curveto
  86         gsave
  87         fill
  88         grestore
  89         stroke
  90 } bind def
  91
  92 /draw_dashed_slur
  93 {
  94         1 setlinecap
  95         1 setlinejoin
  96         setdash
  97         setlinewidth
  98         moveto
  99         curveto
 100         stroke
 101 } bind def
 102
 103
 104
 105 /bracket_traject
 106 {
 107   /traject_ds exch def
 108   /traject_alpha exch def
 109   traject_ds traject_alpha sin mul add
 110   exch
 111   traject_ds traject_alpha cos mul add
 112   exch
 113 } bind def
 114
 115
 116
 117 /half_bracket
 118 {
 119 %6
 120         0 0
 121 %5a
 122         bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
 123         bracket_alpha bracket_v -0.15 mul bracket_traject
 124 %5b
 125         1 bracket_h
 126         0 bracket_v 0.5 mul bracket_traject
 127 %5c
 128         0 bracket_h
 129 %4a
 130         bracket_b bracket_h bracket_t sub
 131         0 bracket_v 0.4 mul bracket_traject
 132 %4b
 133         bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
 134         bracket_alpha bracket_v -0.25 mul bracket_traject
 135 %4c
 136         bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
 137 %3
 138         bracket_b bracket_h bracket_t sub
 139 %2
 140         bracket_b 0
 141 %1
 142         0 0
 143 } bind def
 144
 145 /draw_half_bracket {
 146         moveto
 147         lineto
 148         lineto
 149         curveto
 150         curveto
 151         lineto
 152         gsave
 153         fill
 154         grestore
 155 } bind def
 156
 157 /draw_bracket % height
 158 {
 159         2 div bracket_b add /bracket_h exch def
 160         bracket_t setlinewidth
 161 % urg: the only Level-2 PS, check effect in print
 162 %       true setstrokeadjust
 163         1 setlinecap
 164         1 setlinejoin
 165         half_bracket
 166         20 copy
 167         1 -1 scale
 168         draw_half_bracket
 169         stroke
 170         1 -1 scale
 171 % ugh, ugh:
 172         0.05 0 translate
 173         draw_half_bracket
 174         stroke
 175 } bind def
 176