X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Ffeta-beugel.mf;h=c3541aaf180eb44663f982eda02a51297fab999d;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=8f779e1c6894a129cc70ef503c45f2d59eff9d24;hpb=a0e46e79ea0ab6a7baadd58265aefc51c1faba61;p=lilypond.git diff --git a/mf/feta-beugel.mf b/mf/feta-beugel.mf index 8f779e1c68..c3541aaf18 100644 --- a/mf/feta-beugel.mf +++ b/mf/feta-beugel.mf @@ -1,95 +1,147 @@ +% +% feta-beugel.mf -- Staff braces +% +% source file of the Feta (not an acronym for Font-En-Tja) +% pretty-but-neat music font +% +% (c) 1997--2008 Han-Wen Nienhuys +% Jan Nieuwenhuizen + + +% We have to reduce the pixel-per-point value to +% support large brace glyphs in case we are using MetaPost +% (which by default sets `hppp' to 49.80244, regardless of +% the used `mag' value) + +if known miterlimit: + bpppix_ := 0.2; % ten times larger than original + + numeric mm, pt, dd, bp, cm, pc, cc, in; + + mm * bpppix_ = 2.83464; + pt * bpppix_ = 0.99626; + dd * bpppix_ = 1.06601; + bp * bpppix_ = 1; + cm * bpppix_ = 28.34645; + pc * bpppix_ = 11.95517; + cc * bpppix_ = 12.79213; + in * bpppix_ = 72; + + hppp := pt; + vppp := pt; +fi; + + input feta-autometric; input feta-macros; -input feta-params; -fet_beginfont("feta-braces", 16); -mode_setup; +staffsize# := 20 pt#; %% arbitrary + +input feta-params; -staffsize#:=16pt#; +% +% We must let the design increase for each font to make sure that mftrace +% doesn't jack up the resolution too highly for the longer braces. +% -save code; -code := -1; +fet_beginfont ("feta-braces-" & char (97 + font_count), + (font_count + 1) * 20, "fetaBraces"); +mode_setup; -def abc_encode_int (expr i) = - if i > 0: - abc_encode_int(i div 26)&char(65 + i mod 26) - else: - "A" - fi -enddef ; -def draw_brace (expr height_sharp, width_sharp, slt_sharp) = +save code, braces_per_font; +code := 64; +braces_per_font := 64; - save pendir, height, width, thin, thick, slt; +def draw_brace (expr height_sharp, width_sharp, slt_sharp, brace_number) = + save pendir, height, width, thin, thick, slt, pat; save penangle; + pair pendir; + path pat; + height# := height_sharp; width# := width_sharp; slt# := slt_sharp; -fet_beginchar("brace number "&(decimal code), "brace"&abc_encode_int(code), - "brace"&abc_encode_int (code)) + fet_beginchar ("brace number " & decimal (brace_number), + "brace" & decimal (brace_number)) + set_char_box (width#, 0, height# / 2, height# / 2); - set_char_box (0, width#, height#/2, height#/2); - - define_pixels (height, width, slt); - thin = 2 slt; - thick = .5 width; + define_pixels (height, width, slt); + thin = 2 slt; + thick = .5 width; - z2 = .5 [z1, z3]; - y3l = y1 + height/2; - x3 = x1 + width; - y1 =0; - x3 = - width / 2; - - pair pendir; - pendir = unitvector(x3 - x1, y3l/6 - y1); - penangle = angle pendir - 90; - penpos3(thin, penangle); - penpos2(thick, angle(z3 -z1) -90 ); - penpos1(2/3 thin, penangle); + z2 = .5 [z1, z3]; + y3l = y1 + height / 2; + x3 = x1 + width; + y1 = 0; + x1 = -b; + y0 = y1; + x0 = x1 - 2/6 thin; + + pendir = unitvector (x3 - x1, y3l / 6 - y1); + penangle = angle pendir - 90; + penpos3 (thin, penangle); + penpos2 (thick, angle (z3 - z1) - 90); + penpos1 (2/3 thin, penangle); - penlabels(1,2,3); - fill z2r .. simple_serif (z3r, z3l, 90) - .. z2l .. simple_serif (z1l, z1r, 90) ..cycle; - - addto currentpicture also currentpicture yscaled -1; -fet_endchar; + penlabels (1, 2, 3); + labels (0); + + pat := z2r + .. simple_serif (z3r, z3l, 90) + .. z2l + .. z1l{dir (angle (z1r - z1l) - 90)} + .. z0{down} + .. z1r{-dir (angle (z1l - z1r) + 90)} + .. cycle; + pat := subpath (0, 5) of pat + -- subpath (6, 7) of pat + .. cycle; + + fill pat; + fill pat yscaled -1; + fet_endchar; enddef; - save stafflinethickness; save increment; -stafflinethickness := 0.5pt#; -increment := 0.5pt#; -y := 10pt#; - - +linethickness := 0.5 pt#; +increment := 0.5 pt#; +y := 10 pt#; for i := 0 step 1 until font_count: - - %% We can't store more than 64 (65?) height dimensions in a TFM - %% file, so we make small files. - - for j := 0 step 1 until 63: - % message "l: "&decimal l; - % note: define_pixels (x) multiplies x by hppp, - % must never get bigger than infinity - y := min (y + increment, infinity/hppp - 1); - - % x should be about one staff space, taking brace to have - % default height of 3 staffs, this yields height / 3 / 4 = 12 - % but 15 looks better - x := y / 15; - - increment := x / 10; - stafflinethickness := min (0.5pt#, y/150); - if i = font_count: - draw_brace (y, x, stafflinethickness); - fi - endfor; -endfor - -fet_endfont("feta-braces"); + save number; + + number := braces_per_font * i; + + for j := 0 step 1 until (braces_per_font - 1): + % message "l: "&decimal l; + % note: define_pixels (x) multiplies x by hppp, + % must never get bigger than infinity + y := y + increment; + if y > infinity / hppp: + message "Resolution and/or magnification is too high"; + message "HPPP: "& decimal hppp &" Y: " & decimal y; + errmessage "please report to "; + fi; + + % x should be about one staff space, taking brace to have + % default height of 3 staffs, this yields height / 3 / 4 = 12 + % but 15 looks better + x := y / 15; + + increment := x / 10; + linethickness := min (0.5 pt#, y / 150); + if i = font_count: + draw_brace (y, x, linethickness, number); + fi; + + number := number + 1; + endfor; +endfor; + +fet_endfont ("feta-braces");