diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2005-05-31 15:44:49 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2005-05-31 15:44:49 +0000 |
| commit | 998c822a2adead0ad7c0886c5e8d647e646a1926 (patch) | |
| tree | b5e88b0b44181b7c498168ce28acd6c7a2b88940 /ps | |
| parent | 2032679f3ca5a83b851c0f5dc415143ffa28c4af (diff) | |
* make/lilypond.fedora.spec.in (Group): remove
lilypond-pdfpc-helper.
* scripts/GNUmakefile (SEXECUTABLES): remove
lilypond-pdfpc-helper. Use lilypond-invoke-editor instead.
Diffstat (limited to 'ps')
| -rw-r--r-- | ps/music-drawing-routines.ps | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 85434be8a8..fff7dfd752 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -231,6 +231,33 @@ bind def } bind def +%%%% JUNKME. use color & circle. +/draw_white_dot % x1 y2 R +{ +% 0 360 arc fill stroke + 0 360 arc closepath % fill stroke +gsave + 1 setgray fill +grestore +% 0 360 arc closepath % fill stroke + 0.05 setlinewidth 0 setgray stroke +} bind def + + +%% JUNKME: Use color. +/draw_white_text % text scale font +{ + %font + findfont + %scale + exch scalefont setfont + 1 setgray + 0 0 moveto + %-0.05 -0.05 moveto + % text + show +} bind def + /draw_dashed_line % dash thickness dx dy { |