diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2005-05-03 22:22:56 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2005-05-03 22:22:56 +0000 |
| commit | 136bdc3c4835942f396d57ac78df71d97c43d3e8 (patch) | |
| tree | ee285bee55f7861fdaab6829edb088ef78bc45d6 /ps | |
| parent | d75b5496bea36eac921249470d396adb44117d62 (diff) | |
* lily/context-def.cc (path_to_acceptable_context): bugfix, depth
should be taken without child context.
* ly/chord-modifiers-init.ly (blackTriangleMarkup): use it.
* scm/define-markup-commands.scm (triangle): new command, as
robust replacement for unicode Delta/Triangle.
Diffstat (limited to 'ps')
| -rw-r--r-- | ps/music-drawing-routines.ps | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 53dc007fc2..a2e74c35bf 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -157,8 +157,9 @@ bind def } ifelse } bind def -/draw_polygon % x(n) y(n) x(n-1) y(n-1) ... x(1) y(1) n blot +/draw_polygon % x(n) y(n) x(n-1) y(n-1) ... x(1) y(1) n blot fill { + /fillp exch def /blot exch def 0 setlinecap @@ -168,12 +169,12 @@ bind def /points exch def 2 copy moveto - 1 1 points {pop lineto} for - currentdict /testing known { - %% outline only, for testing: - stroke + 1 1 points { pop lineto } for + closepath + fillp { + gsave stroke grestore fill }{ - closepath gsave stroke grestore fill + stroke } ifelse } bind def |