mf/feta-parenthesis.mf

   1
   2
   3 def draw_paren =
   4         save leftindent;
   5
   6         leftindent := .2 staff_space;
   7
   8         set_char_box (0, .5 staff_space# + stafflinethickness#,
   9                       staff_space#, staff_space#);
  10
  11         d := d - feta_shift;
  12
  13         z1 = (leftindent, h);
  14         z2 = (w - stafflinethickness, .5 (h - d));
  15         z3 = (leftindent, -d);
  16
  17         penpos1 (stafflinethickness, 35);
  18         penpos2 (.1 staff_space + stafflinethickness, 0);
  19         penpos3 (stafflinethickness, -35);
  20
  21         fill z2l{down}
  22              .. simple_serif (z3l, z3r, 90)
  23              .. z2r{up}
  24              .. simple_serif (z1r, z1l, 90)
  25              .. z2l{down}
  26              -- cycle;
  27 enddef;
  28
  29
  30 fet_beginchar ("Right Parenthesis", "rightparen");
  31         draw_paren;
  32         penlabels (1, 2, 3);
  33
  34         draw_staff_if_debugging (-2, 2);
  35 fet_endchar;
  36
  37
  38 fet_beginchar ("Left Parenthesis", "leftparen");
  39         draw_paren;
  40
  41         currentpicture := currentpicture xscaled -1;
  42
  43         set_char_box (charwd, charbp, chardp, charht);
  44 fet_endchar;