diff options
Diffstat (limited to 'fonts/punk/source/punksl.mf')
-rw-r--r-- | fonts/punk/source/punksl.mf | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/fonts/punk/source/punksl.mf b/fonts/punk/source/punksl.mf new file mode 100644 index 0000000000..ab1ec92df6 --- /dev/null +++ b/fonts/punk/source/punksl.mf @@ -0,0 +1,20 @@ +% punk special lowercase + +beginpunkchar(oct"020",5,1,2); % dotless I +z1=pp(.5w,0); z2=(.5w,1/3h); z3=(.5w,2/3h); z4=(.5w,h); +pd z1; pd z4; draw flex(z1,z2,z3,z4); % stem +endchar; + +beginpunkchar(oct"021",9,1,2); % dotless J +z1=pp(w-2u,h); z2=pp(w-2u,-.1h); z3=pp(u,0); +pd z1; pd z3; draw z1--z2--z3; % arc +endchar; + +beginpunkchar(oct"031",18,.3,1); % German SS +z1=pp(.5w-u,.9h); z2=pp(1/3w,h); z3=pp(u,.7h); z4=.6[z6,z2]; +z5=pp(.5w,.35h); z6=pp(1/3w,u); z7=pp(u,.2h); +pd z1; pd z7; draw z1--z2...z3..z4..z5...z6--z7; % left stroke +for i=1 upto 7: z[i+10]=pp(z[i] shifted (.5w-u,0)); endfor +pd z11; pd z17; draw z11--z12...z13..z14..z15...z16--z17; % right stroke +endchar; + |