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--2006 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
  19 struct Key_signature_interface
  20 {
  21   DECLARE_SCHEME_CALLBACK (print, (SCM));
  22
  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   SCM scm_style = me->get_property ("style");
  40   string style;
  41   if (scm_is_symbol (scm_style))
  42     style = ly_symbol2string (scm_style);
  43   else
  44     style = "";
  45
  46   Stencil mol;
  47
  48   SCM c0s = me->get_property ("c0-position");
  49
  50   bool is_cancellation = me->internal_has_interface
  51     (ly_symbol2scm ("key-cancellation-interface"));
  52
  53   /*
  54     SCM lists are stacks, so we work from right to left, ending with
  55     the cancellation signature.
  56   */
  57
  58   int last_pos = -1000;
  59   Font_metric *fm = Font_interface::get_default_font (me);
  60   SCM alist = me->get_property ("glyph-name-alist");
  61
  62   for (SCM s = me->get_property ("alteration-alist"); scm_is_pair (s); s = scm_cdr (s))
  63     {
  64       SCM alt = is_cancellation
  65         ? scm_from_int (0)
  66         : scm_cdar (s);
  67
  68       SCM glyph_name = ly_assoc_get (alt, alist, SCM_BOOL_F);
  69       Stencil acc (fm->find_by_name (ly_scm2string (glyph_name)));
  70
  71       if (acc.is_empty ())
  72         me->warning (_ ("alteration not found"));
  73       else
  74         {
  75           SCM what = scm_caar (s);
  76
  77           SCM proc = ly_lily_module_constant ("key-signature-interface::alteration-position");
  78
  79           int pos = scm_to_int (scm_call_3 (proc, what, scm_cdar (s), c0s));
  80           acc.translate_axis (pos * inter, Y_AXIS);
  81
  82           /*
  83             The natural sign (unlike flat & sharp)
  84             has vertical edges on both sides. A little padding is
  85             needed to prevent collisions.
  86           */
  87           Real padding = 0.0;
  88           if (is_cancellation
  89               && last_pos < pos + 2
  90               && last_pos > pos - 6)
  91             padding = 0.3;
  92
  93           mol.add_at_edge (X_AXIS, LEFT, acc, padding, 0);
  94           last_pos = pos;
  95         }
  96     }
  97
  98   mol.align_to (X_AXIS, LEFT);
  99
 100   return mol.smobbed_copy ();
 101 }
 102
 103 ADD_INTERFACE (Key_signature_interface,
 104                "A group of accidentals, to be printed as signature sign.",
 105
 106                "alteration-alist "
 107                "c0-position "
 108                "glyph-name-alist "
 109                "style "
 110                );