]> git.donarmstrong.com Git - lilypond.git/blob - mf/mfbug.mf
patch::: 0.1.21: goerlee en stuf
[lilypond.git] / mf / mfbug.mf
1 % is this OK? Or is it a bug;
2 % changing the order of z1l and z1r in reflectedabout 
3 % stops mf from complaining
4 fet_beginchar("open (unstopped)", "open", "ouvert")
5         save thin, height, width, thick;
6         height# = 5/4 width#;
7         height# = 2/3 interline#;
8         thin = .9 stafflinethickness;
9         thick =  1.4 thin;
10         set_char_box(width#/2, width#/2, 0, height#);
11         
12         penpos1(thick, 0);
13         penpos2(thin, 90);
14         z1r = (w,h/2);
15         z2r = (0, h);
16         penlabels(1,2);
17         penstroke z1e{up} .. {left}z2e;
18         addto currentpicture also currentpicture xscaled -1;
19         addto currentpicture also currentpicture reflectedabout(z1l, z1r);
20 fet_endchar;
21 fet_endgroup("foobars");