diff options
| author | Carl Sorensen <c_sorensen@byu.edu> | 2008-09-11 16:59:00 -0600 |
|---|---|---|
| committer | Carl Sorensen <c_sorensen@byu.edu> | 2008-09-11 16:59:00 -0600 |
| commit | e9d68c099f03166dbd3c82f753b314a25ddc40cf (patch) | |
| tree | 2118dbb98196edc614d4186a51958f125435559e /ps | |
| parent | ed37988e13ad8fc465816ed7c0513836e7d04ab3 (diff) | |
Add bezier oval for harp pedal diagrams
Diffstat (limited to 'ps')
| -rw-r--r-- | ps/music-drawing-routines.ps | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index aa8cfa6527..c6f4423615 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -165,6 +165,20 @@ bind def ifelse } bind def +/draw_oval % filled? x-radius y-radius thickness draw_ellipse +{ + setlinewidth % f? x-r y-r + /yrad exch def + /xrad exch def + xrad 0 rmoveto + 0 yrad -2 xrad mul dup yrad exch 0 rcurveto + 0 yrad neg dup 2 xrad mul dup 3 1 roll 0 rcurveto + closepath + { stroke_and_fill} + { stroke } + ifelse +} bind def + /draw_ellipse % filled? x-radius y-radius thickness draw_ellipse { setlinewidth % f? x-r y-r |