diff options
Diffstat (limited to 'Master/texmf-dist/metapost/context/font/punkfont.mp')
| -rw-r--r-- | Master/texmf-dist/metapost/context/font/punkfont.mp | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/Master/texmf-dist/metapost/context/font/punkfont.mp b/Master/texmf-dist/metapost/context/font/punkfont.mp index a96e2e29fb2..e57499859c8 100644 --- a/Master/texmf-dist/metapost/context/font/punkfont.mp +++ b/Master/texmf-dist/metapost/context/font/punkfont.mp @@ -63,6 +63,15 @@ if unknown punk_font_loaded : path dot_pen_path ; dot_pen_path := tensepath makepath currentpen ; +% px# := .8pt# ; % horizontal thickness of pen +% define_pixels(u,dev) ; +% define_blacker_pixels(px,py,dot) ; +% pickup pencircle xscaled 1.25px yscaled 1.25py ; +% punk_pen := savepen ; +% pickup pencircle scaled 1.25dot ; +% path dot_pen_path ; +% dot_pen_path := tensepath makepath currentpen ; + defaultcolormodel := 1 ; def beginpunkchar(expr c,n,h,v) = % code $c$; width is $n$ units @@ -331,19 +340,19 @@ z1=pp(1.5u,0); z2=pp(1.5u,h); z3=pp(w-1.5u,h); z4=pp(w-1.5u,0); pd z1; pd z4; draw z1--z2--z3--z4; % stems and bar endchar; -beginpunkchar(930,13,1,1); % $\Sigma$ +beginpunkchar(931,13,1,1); % $\Sigma$ z1=pp(w-u,h); z2=pp(u,h); z3=pp(.5w-u,.5h); z4=pp(u,0); z5=pp(w-u,0); pd z1; pd z5; draw z1--z2{.5[z4,z5]-z2}..z3--z4--z5; % arms and diagonals endchar; -beginpunkchar(932,15,1,.5); % $\Upsilon$ +beginpunkchar(933,15,1,.5); % $\Upsilon$ z1=pp(u,.8h); z2=pp(.3w,h); z3=pp(.5w,.5h); z4=pp(.5w,0); pd z1; pd z4; draw z1..z2..tension2..z3---z4; % left arc and stem z5=pp(w-u,.8h); z6=pp(.7w,h); pd z5; draw z5..z6..tension2..{z4-z3}z3; % right arc endchar; -beginpunkchar(933,13,1,2); % $\Phi$ +beginpunkchar(934,13,1,2); % $\Phi$ z1=pp(.5w,h); z2=pp(.5w,0); pd z1; pd z2; draw z1--z2; % stem z3=pp(.5w,2/3h); z4=pp(u,.5h); z5=pp(.5w,1/4h); z6=pp(w-u,.5h); pd z3; draw z3..z4..z5..z6..z3; % bowl |