lily/rest.cc

   1 /*
   2  rest.cc -- implement Rest
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "molecule.hh"
  10 #include "paper-def.hh"
  11 #include "font-interface.hh"
  12 #include "rest.hh"
  13 #include "dots.hh"
  14 #include "paper-score.hh"
  15 #include "staff-symbol-referencer.hh"
  16
  17 // -> offset callback
  18 MAKE_SCHEME_CALLBACK (Rest,after_line_breaking,1);
  19 SCM
  20 Rest::after_line_breaking (SCM smob)
  21 {
  22   Grob *me = unsmob_grob (smob);
  23   int bt = gh_scm2int (me->get_grob_property ("duration-log"));
  24   int lc = Staff_symbol_referencer::line_count (me);
  25   Real ss = Staff_symbol_referencer::staff_space (me);
  26   if(lc % 2)
  27     {
  28       if (bt == 0 && lc > 1)
  29         {
  30           me->translate_axis (ss , Y_AXIS);
  31         }
  32     }
  33   else
  34     {
  35       me->translate_axis (ss/2 , Y_AXIS);
  36     }
  37
  38   Grob * d = unsmob_grob (me->get_grob_property ("dot"));
  39   if (d && bt > 4) // UGH.
  40     {
  41       d->set_grob_property ("staff-position",
  42                             gh_int2scm ((bt == 7) ? 4 : 3));
  43     }
  44
  45   if (d && bt >= -1 && bt <= 1) // UGH again.
  46     {
  47       d->set_grob_property ("staff-position",
  48                             gh_int2scm ((bt == 0) ? -1 : 1));
  49     }
  50   return SCM_UNSPECIFIED;
  51 }
  52
  53 /*
  54   make this function easily usable in C++
  55  */
  56 String
  57 Rest::glyph_name (Grob *me, int balltype, String style)
  58 {
  59   bool ledgered_b = false;
  60
  61   if (balltype == 0 || balltype == 1)
  62     {
  63       Real rad = Staff_symbol_referencer::staff_radius (me) * 2.0;
  64       Real pos = Staff_symbol_referencer::get_position (me);
  65
  66       /*
  67         Figure out when the rest is far enough outside the staff. This
  68         could bemore generic, but hey, we understand this even after
  69         dinner.
  70        */
  71       ledgered_b |= (balltype == 0) && (pos >= +rad + 2 || pos < -rad);
  72       ledgered_b |= (balltype == 1) && (pos <= -rad - 2 || pos > +rad);
  73     }
  74
  75   String actual_style (style.to_str0 ());
  76
  77   if ((style == "mensural") || (style == "neo_mensural")) {
  78
  79     /*
  80       FIXME: Currently, ancient font does not provide ledgered rests;
  81       hence the "o" suffix in the glyph name is bogus.  But do we need
  82       ledgered rests at all now that we can draw ledger lines with
  83       variable width, length and blotdiameter? -- jr
  84     */
  85     ledgered_b = 0;
  86
  87     /*
  88       There are no 32th/64th/128th mensural/neo_mensural rests.  In
  89       these cases, revert back to default style.
  90     */
  91     if (balltype > 4)
  92       actual_style = "";
  93   }
  94
  95   if ((style == "classical") && (balltype != 2)) {
  96     /*
  97       classical style: revert back to default style for any rest other
  98       than quarter rest
  99     */
 100     actual_style = "";
 101   }
 102
 103   if (style == "default") {
 104     /*
 105       Some parts of lily still prefer style "default" over "".
 106       Correct this here. -- jr
 107     */
 108     actual_style = "";
 109   }
 110
 111   return ("rests-") + to_string (balltype) + (ledgered_b ? "o" : "") + actual_style;
 112 }
 113
 114
 115 MAKE_SCHEME_CALLBACK (Rest,brew_molecule,1);
 116
 117 SCM
 118 Rest::brew_internal_molecule (SCM smob)
 119 {
 120   Grob* me = unsmob_grob (smob);
 121
 122   SCM balltype_scm = me->get_grob_property ("duration-log");
 123   if (!gh_number_p (balltype_scm))
 124     return Molecule ().smobbed_copy ();
 125
 126   int balltype = gh_scm2int (balltype_scm);
 127
 128   String style;
 129   SCM style_scm = me->get_grob_property ("style");
 130   if (gh_symbol_p (style_scm))
 131     {
 132       style = ly_scm2string (scm_symbol_to_string (style_scm));
 133     }
 134
 135   Font_metric *fm = Font_interface::get_default_font (me);
 136   String font_char = glyph_name (me, balltype, style);
 137   Molecule out = fm->find_by_name (font_char);
 138   if (out.empty_b())
 139     {
 140       me->warning (_f ("rest `%s' not found, ", font_char.to_str0 ()));
 141     }
 142
 143   return out.smobbed_copy();
 144 }
 145
 146 SCM
 147 Rest::brew_molecule (SCM smob)
 148 {
 149   return brew_internal_molecule (smob);
 150 }
 151 MAKE_SCHEME_CALLBACK (Rest,extent_callback,2);
 152 /*
 153   We need the callback. The real molecule has ledgers depending on
 154   Y-position. The Y-position is known only after line breaking.  */
 155 SCM
 156 Rest::extent_callback (SCM smob, SCM ax)
 157 {
 158   Axis a = (Axis) gh_scm2int (ax);
 159   SCM m = brew_internal_molecule (smob);
 160   return ly_interval2scm (unsmob_molecule (m)->extent (a));
 161 }
 162
 163
 164
 165 ADD_INTERFACE (Rest,"rest-interface",
 166   "a rest",
 167   "style minimum-beam-collision-distance");
 168