diff options
| author | Carl Sorensen <c_sorensen@byu.edu> | 2008-08-22 20:36:23 -0600 |
|---|---|---|
| committer | Carl Sorensen <c_sorensen@byu.edu> | 2008-08-22 20:48:35 -0600 |
| commit | 942bdd57fcdd0c87e42c2a50852597817ae69232 (patch) | |
| tree | 56e0cfd8acdcbebdfe8134de4e561bdd13888874 /ps | |
| parent | 5cf5b971d2d941855b178a4420d002458bb3b966 (diff) | |
Change harp pedal outlines to ellipses
Add ellipse drawing routines to ps and svg output
Add ellipse stencil
Add ellipse-stencil routine to center stencil in ellipse
Modify scm/harp-pedals.scm to use ellipse routine
Reformat code to avoid long lines
Diffstat (limited to 'ps')
| -rw-r--r-- | ps/music-drawing-routines.ps | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 713d997f37..aa8cfa6527 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -128,7 +128,7 @@ bind def closepath fill } bind def -% this is for drawing slurs. +% this is for drawing slurs and barre-indicators. /draw_bezier_sandwich % thickness controls { gsave @@ -165,6 +165,19 @@ bind def ifelse } bind def +/draw_ellipse % filled? x-radius y-radius thickness draw_ellipse +{ + setlinewidth % f? x-r y-r + /savematrix matrix currentmatrix def + scale % f? + currentpoint + 1 0 rmoveto + 1 0 360 arc closepath + savematrix setmatrix + { stroke_and_fill} + { stroke } + ifelse +} bind def /draw_line % dx dy x1 y1 thickness draw_line { |