lilypond-0.0.65
[lilypond.git] / mf / xhslu20.mf
blobd41801dd5cceb67b82dd6cf4eb49d52d7e4fe696
1 font_identifier:="xhslu20";
2 mode_setup;
3 font_size 20pt#;
4 thick#:=1pt#;
5 stepwidth#:=1/8designsize;% -> \internote
6 define_pixels(stepwidth);
7 define_blacker_pixels(thick);
8 picture save_pic;
9 numheights:=16;
10 numlengths:=8;%(20-90pt)
12 code=-1;
13 for j=1 upto numlengths:
14   slength#:=(j+1)*10pt#;
15   define_pixels(slength);
17   for i=1 upto numheights:
18     beginchar(incr code, slength#, 0, 0);
19       x1=y1=0;x3=slength;y3=2y1'=-i*stepwidth;
20       x1'=.5x3;z3'-z1'=whatever*dir(angle(z3-z1)+90);
21       if x3>-y3:y3'=0;else:x3'=slength;fi
22       z2=.5[z3',z1'];
23       penpos1(thick,90);
24       penpos2(2/3thick,(angle(z3-z1)+90));
25       penpos3(.15thick,(angle(z3-z1)+90));
26       penstroke z1e..z2e..z3e;
27       pickup pencircle; draw z1..z2..z3;% draw z1--z3; draw z1'--z3';
28       save_pic:=currentpicture;
29     endchar;
31     beginchar(128+code, slength#, 0, 0);
32       currentpicture:=save_pic reflectedabout((.5slength,0),(.5slength, 1));
33     endchar;
34   endfor
36 endfor
37 end