lily/key-signature-interface.cc

   1 /*
   2   key-item.cc -- implement Key_signature_interface
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8   keyplacement by Mats Bengtsson
   9 */
  10
  11 #include "accidental-interface.hh"
  12 #include "font-interface.hh"
  13 #include "international.hh"
  14 #include "item.hh"
  15 #include "lookup.hh"
  16 #include "output-def.hh"
  17 #include "staff-symbol-referencer.hh"
  18 #include "rational.hh"
  19
  20 struct Key_signature_interface
  21 {
  22   DECLARE_SCHEME_CALLBACK (print, (SCM));
  23   DECLARE_GROB_INTERFACE ();
  24 };
  25
  26
  27 /*
  28   TODO
  29   - space the `natural' signs wider
  30 */
  31 MAKE_SCHEME_CALLBACK (Key_signature_interface, print, 1);
  32 SCM
  33 Key_signature_interface::print (SCM smob)
  34 {
  35   Item *me = dynamic_cast<Item *> (unsmob_grob (smob));
  36
  37   Real inter = Staff_symbol_referencer::staff_space (me) / 2.0;
  38
  39   Stencil mol;
  40
  41   SCM c0s = me->get_property ("c0-position");
  42
  43   bool is_cancellation = me->internal_has_interface
  44     (ly_symbol2scm ("key-cancellation-interface"));
  45
  46   /*
  47     SCM lists are stacks, so we work from right to left, ending with
  48     the cancellation signature.
  49   */
  50
  51   int last_pos = -1000;
  52   SCM last_glyph_name = SCM_BOOL_F;
  53   SCM padding_pairs = me->get_property ("padding-pairs");
  54
  55   Font_metric *fm = Font_interface::get_default_font (me);
  56   SCM alist = me->get_property ("glyph-name-alist");
  57
  58   for (SCM s = me->get_property ("alteration-alist"); scm_is_pair (s); s = scm_cdr (s))
  59     {
  60       SCM alt = is_cancellation
  61         ? scm_from_int (0)
  62         : scm_cdar (s);
  63
  64       SCM glyph_name_scm = ly_assoc_get (alt, alist, SCM_BOOL_F);
  65       if (!scm_is_string (glyph_name_scm))
  66         {
  67           me->warning (_f ("No glyph found for alteration: %s",
  68                            ly_scm2rational (alt).to_string ().c_str ()));
  69           continue;
  70         }
  71
  72       string glyph_name = ly_scm2string (glyph_name_scm);
  73
  74       Stencil acc (fm->find_by_name (glyph_name));
  75
  76       if (acc.is_empty ())
  77         me->warning (_ ("alteration not found"));
  78       else
  79         {
  80           SCM what = scm_caar (s);
  81
  82           SCM proc = ly_lily_module_constant ("key-signature-interface::alteration-position");
  83
  84           int pos = scm_to_int (scm_call_3 (proc, what, scm_cdar (s), c0s));
  85           acc.translate_axis (pos * inter, Y_AXIS);
  86
  87           /*
  88             The natural sign (unlike flat & sharp)
  89             has vertical edges on both sides. A little padding is
  90             needed to prevent collisions.
  91           */
  92           Real padding = robust_scm2double (me->get_property ("padding"),
  93                                             0.0);
  94           SCM handle = scm_assoc (scm_cons (glyph_name_scm, last_glyph_name),
  95                                   padding_pairs);
  96           if (scm_is_pair (handle))
  97             padding = robust_scm2double (scm_cdr (handle), 0.0);
  98           else if (glyph_name ==  "accidentals.natural"
  99               && last_pos < pos + 2
 100               && last_pos > pos - 6)
 101             padding += 0.3;
 102
 103           mol.add_at_edge (X_AXIS, LEFT, acc, padding);
 104
 105           last_pos = pos;
 106           last_glyph_name = glyph_name_scm;
 107         }
 108     }
 109
 110   mol.align_to (X_AXIS, LEFT);
 111
 112   return mol.smobbed_copy ();
 113 }
 114
 115 ADD_INTERFACE (Key_signature_interface,
 116                "A group of accidentals, to be printed as signature sign.",
 117
 118                /* properties */
 119                "alteration-alist "
 120                "c0-position "
 121                "glyph-name-alist "
 122                "padding "
 123                "padding-pairs "
 124                );