mf/feta-braces.mf

   1 % Feta (not the Font-En-Tja) music font -- Staff braces
   2 % This file is part of LilyPond, the GNU music typesetter.
   3 %
   4 % Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5 %                Jan Nieuwenhuizen <janneke@gnu.org>
   6 %
   7 % The LilyPond font is free software: you can redistribute it and/or modify
   8 % it under the terms of the GNU General Public License as published by
   9 % the Free Software Foundation, either version 3 of the License, or
  10 % (at your option) any later version, or under the SIL Open Font License.
  11 %
  12 % LilyPond is distributed in the hope that it will be useful,
  13 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 % GNU General Public License for more details.
  16 %
  17 % You should have received a copy of the GNU General Public License
  18 % along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 %
  21 % We must let the design increase for each font to make sure that mftrace
  22 % doesn't jack up the resolution too highly for the longer braces.
  23 %
  24
  25 mode_setup;
  26
  27
  28 save code, braces_per_font;
  29 code := 64;
  30 braces_per_font := 64;
  31
  32 def draw_brace (expr height_sharp, width_sharp, slt_sharp, brace_number) =
  33         save pendir, height, width, thin, thick, slt, pat;
  34         save penangle;
  35         pair pendir;
  36         path pat;
  37
  38         height# := height_sharp;
  39         width# := width_sharp;
  40         slt# := slt_sharp;
  41
  42         fet_beginchar ("brace number " & decimal (brace_number),
  43                        "brace" & decimal (brace_number))
  44                 set_char_box (width#, 0, height# / 2, height# / 2);
  45
  46                 define_pixels (height, width, slt);
  47                 thin = 2 slt;
  48                 thick = .5 width;
  49
  50                 z2 = .5 [z1, z3];
  51                 y3l = y1 + height / 2;
  52                 x3 = x1 + width;
  53                 y1 = 0;
  54                 x1 = -b;
  55                 y0 = y1;
  56                 x0 = x1 - 2/6 thin;
  57
  58                 pendir = unitvector (x3 - x1, y3l / 8 - y1);
  59                 penangle = angle pendir - 90;
  60                 penpos3 (thin, penangle);
  61                 penpos2 (thick, angle (z3 - z1) - 90);
  62                 penpos1 (-2 * (x0 - x1), penangle);
  63
  64                 penlabels (1, 2, 3);
  65                 labels (0);
  66
  67                 pat := z2r
  68                        .. simple_serif (z3r, z3l, 90)
  69                        .. z2l
  70                        .. z1l{dir (angle (z1r - z1l) - 90)}
  71                        .. z0{down}
  72                        .. z1r{-dir (angle (z1l - z1r) + 90)}
  73                        .. cycle;
  74                 pat := subpath (0, 5) of pat
  75                        -- subpath (6, 7) of pat
  76                        .. cycle;
  77
  78                 fill pat;
  79                 fill pat yscaled -1;
  80         fet_endchar;
  81 enddef;
  82
  83
  84 save linethickness;
  85 save increment;
  86 save last_brace_number;
  87 save min_width;
  88 save max_width;
  89 save min_thin;
  90 save max_thin;
  91
  92 linethickness := 0.5 pt#;
  93 increment := 0.5 pt#;
  94 last_brace_number := braces_per_font * 9 - 1;
  95 min_width := 2 pt#;
  96 max_width := 20 pt#;
  97 min_thin := 0.2 pt#;
  98 max_thin := 1.25 pt#;
  99 y := 10 pt#;
 100
 101 for i := 0 step 1 until font_count:
 102         save number;
 103
 104         number := braces_per_font * i;
 105
 106         for j := 0 step 1 until (braces_per_font - 1):
 107                 % message "l: "&decimal l;
 108                 % note: define_pixels (x) multiplies x by hppp,
 109                 % must never get bigger than infinity
 110                 y := y + increment;
 111                 if y > infinity / hppp:
 112                         message "Resolution and/or magnification is too high";
 113                         message "HPPP: "& decimal hppp &" Y: " & decimal y;
 114                         errmessage "please report to <bug-lilypond@gnu.org>";
 115                 fi;
 116
 117                 x := (y / last_brace_number) [min_width, max_width];
 118
 119                 increment := x / 10;
 120                 linethickness := (y / last_brace_number) [min_thin, max_thin];
 121                 if i = font_count:
 122                         draw_brace (y, x, linethickness, number);
 123                 fi;
 124
 125                 number := number + 1;
 126         endfor;
 127 endfor;