X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Fmusic-drawing-routines.ps;h=8fd31f3587502f0e7dfa4813f9604b730bc0a2af;hb=54ef49768776f686e5ea452acd49e02ef8715279;hp=85434be8a8dca4d61e6ccdadcd5fce60d119647c;hpb=be4f786099ef94bc10aa48eb706631e4c1bbf016;p=lilypond.git diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 85434be8a8..8fd31f3587 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -2,53 +2,32 @@ % % Functions for direct and embedded PostScript +% Careful with double % as comment prefix. +% Any %%X comment is interpreted as DSC comments. -%% TODO: use dicts or prefixes to prevent namespace pollution. +% TODO: use dicts or prefixes to prevent namespace pollution. /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse -% from adobe tech note 5002. -/BeginEPSF { %def - /b4_Inc_state save def % Save state for cleanup - /dict_count countdictstack def % Count objects on dict stack - /op_count count 1 sub def % Count objects on operand stack - userdict begin % Push userdict on dict stack - /showpage { } def % Redefine showpage, { } = null proc - 0 setgray 0 setlinecap % Prepare graphics state - 1 setlinewidth 0 setlinejoin - 10 setmiterlimit [ ] 0 setdash newpath - /languagelevel where % If level not equal to 1 then - {pop languagelevel % set strokeadjust and - 1 ne % overprint to their defaults. - {false setstrokeadjust false setoverprint - } if - } if -} bind def - - -/EndEPSF { %def - count op_count sub {pop} repeat % Clean up stacks - countdictstack dict_count sub {end} repeat - b4_Inc_state restore -} bind def % llx lly urx ury URI /mark_URI { - /command exch def + /uri exch def /ury exch def /urx exch def /lly exch def /llx exch def [ /Rect [ llx lly urx ury ] - /Border [ 0 0 0 0 ] + + /Border [ 0 0 0 ] /Action << /Subtype /URI - /URI command + /URI uri >> /Subtype /Link /ANN @@ -56,204 +35,209 @@ } bind def -/set_tex_dimen -{ - cvr def -} bind def - - - -/euclidean_length -{ - 1 copy mul exch 1 copy mul add sqrt +% from adobe tech note 5002. +/BeginEPSF { %def + /b4_Inc_state save def % Save state for cleanup + /dict_count countdictstack def % Count objects on dict stack + /op_count count 1 sub def % Count objects on operand stack + userdict begin % Push userdict on dict stack + /showpage { } def % Redefine showpage, { } = null proc + 0 setgray 0 setlinecap % Prepare graphics state + 1 setlinewidth 0 setlinejoin + 10 setmiterlimit [ ] 0 setdash newpath + /languagelevel where % If level not equal to 1 then + {pop languagelevel % set strokeadjust and + 1 ne % overprint to their defaults. + {false setstrokeadjust false setoverprint + } if + } if } bind def -% FIXME. translate to middle of box. -% Nice rectangle with rounded corners -/draw_box % breapth width depth height -{ -% currentdict /testing known { - %% real thin lines for testing - /blot 0.005 def -% }{ -% /blot blot-diameter def -% } ifelse - - 0 setlinecap - blot setlinewidth - 1 setlinejoin - - blot 2 div sub /h exch def - blot 2 div sub /d exch def - blot 2 div sub /w exch def - blot 2 div sub /b exch def - - b neg d neg moveto - b w add 0 rlineto - 0 d h add rlineto - b w add neg 0 rlineto - 0 d h add neg rlineto +/EndEPSF { %def + count op_count sub {pop} repeat % Clean up stacks + countdictstack dict_count sub {end} repeat + b4_Inc_state restore +} bind def - currentdict /testing known { - %% outline only, for testing: +/stroke_and_fill { + gsave stroke - }{ - closepath gsave stroke grestore fill - } ifelse + grestore + fill } bind def +/vector_add { % x1 y1 x2 y2 vector_add x1+x2 y1+y2 + exch + 4 1 roll + add + 3 1 roll + add + exch +} bind def -/draw_round_box % breapth width depth height blot +/draw_round_box % width height x y blot { - /blot exch def - + setlinewidth % w h x y 0 setlinecap - blot setlinewidth 1 setlinejoin - blot 2 div sub /h exch def - blot 2 div sub /d exch def - blot 2 div sub /w exch def - blot 2 div sub /b exch def - - b neg d neg moveto - b w add 0 rlineto - 0 d h add rlineto - b w add neg 0 rlineto - 0 d h add neg rlineto - - currentdict /testing known { - %% outline only, for testing: - stroke - }{ - closepath gsave stroke grestore fill - } ifelse + rmoveto % w h + currentpoint % w h x1 y1 + 4 2 roll % x1 y1 w h + 4 copy + rectfill + rectstroke } bind def -% Nice beam with rounded corners -/draw_beam % slope width thick blot +/draw_polygon % fill? x(n) y(n) x(n-1) y(n-1) ... x(0) y(0) n blot { - /blot exch def - blot setlinewidth - - 0 setlinecap - 1 setlinejoin - - blot sub /t exch def - blot sub /w exch def - w mul /h exch def - - blot 2 div t 2 div neg moveto - w h rlineto - 0 t rlineto - w neg h neg rlineto - 0 t neg rlineto - - currentdict /testing known { - %% outline only, for testing: - stroke - }{ - closepath gsave stroke grestore fill - } ifelse -} bind def - -/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 + setlinewidth %set to blot 0 setlinecap - blot setlinewidth 1 setlinejoin - /points exch def - 2 copy - moveto - 1 1 points { pop lineto } for + 3 1 roll + /polygon_x + currentpoint + /polygon_y exch def + def + rmoveto % x(0) y(0) + { polygon_x polygon_y vector_add lineto } repeat % n times closepath - fillp { - gsave stroke grestore fill + { %fill? + stroke_and_fill }{ stroke } ifelse } bind def -/draw_repeat_slash % width slope thick +/draw_repeat_slash % x-width width height draw_repeat_slash { + 2 index % duplicate x-width 1 setlinecap 1 setlinejoin - - /beamthick exch def - /slope exch def - /width exch def - beamthick beamthick slope div euclidean_length - /xwid exch def - 0 0 moveto - xwid 0 rlineto - width slope width mul rlineto - xwid neg 0 rlineto - % width neg width angle sin mul neg rlineto + + 0 rlineto % x-width 0 + rlineto % width height + neg 0 rlineto % -x-width 0 closepath fill } bind def -% this is for drawing slurs. -/draw_bezier_sandwich % thickness controls +% this is for drawing slurs and barre-indicators. +/draw_bezier_sandwich % x5 y5 x6 y6 x7 y7 + % x4 y4 + % x1 y1 x2 y2 x3 y3 + % x0 y0 + % linewidth draw_bezier_sandwich { - % round ending and round beginning - 1 setlinejoin 1 setlinecap + gsave + currentpoint translate + % round ending and round beginning + 1 setlinejoin 1 setlinecap setlinewidth moveto curveto lineto curveto closepath - gsave - fill + stroke_and_fill grestore - stroke } bind def -/draw_dot % x1 y2 R +/draw_dot % radius x y draw_dot { -% 0 360 arc fill stroke - 0 360 arc closepath fill stroke + rmoveto + currentpoint + 3 2 roll + 0 360 arc closepath stroke_and_fill } bind def -/draw_circle % R T F +/draw_circle % filled? radius thickness draw_circle { - /filled exch def - setlinewidth - dup 0 moveto - 0 exch 0 exch + setlinewidth % f? r + currentpoint % f? r x0 y0 + 3 2 roll % f? x0 y0 r + dup 0 rmoveto 0 360 arc closepath - gsave stroke grestore - filled { fill } if + { stroke_and_fill } + { stroke } + 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 + /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_dashed_line % dash thickness dx dy +/draw_line % dx dy x1 y1 thickness draw_line { + setlinewidth % dx dy x1 y1 1 setlinecap 1 setlinejoin - setdash - setlinewidth - 0 0 moveto - lineto + rmoveto % dx dy + rlineto + stroke +} bind def + +/draw_dashed_line % dx dy thickness dashpattern offset draw_dashed_line +{ + 1 setlinecap + 1 setlinejoin + setdash % dx dy thickness + setlinewidth %dx dy + rlineto stroke + [] 0 setdash % reset dash pattern } bind def -/draw_dashed_slur % dash thickness controls +/draw_dashed_slur % controls thickness dash { +gsave + currentpoint translate 1 setlinecap 1 setlinejoin setdash setlinewidth - 8 -2 roll + 8 2 roll moveto curveto stroke +grestore } bind def - +/print_glyphs % w dx dy glyph print_glyphs +{ + { + currentpoint %w dx dy glyph x0 y0 + 5 2 roll %w x0 y0 dx dy glyph + 3 1 roll %w x0 y0 glyph dx dy + rmoveto %w x0 y0 glyph + glyphshow %w x0 y0 + moveto %w + 0 rmoveto + }repeat +}bind def %end music-drawing-routines.ps