lily/custos.cc

   1 /*
   2   custos.cc -- implement Custos
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2004 Juergen Reuter <reuter@ipd.uka.de>
   7 */
   8
   9 /* TODO:
  10
  11  - do not show if a clef change immediately follows in the next line
  12
  13  - decide: do or do not print custos if the next line starts with a rest
  14
  15 */
  16
  17
  18 #include <stdio.h>
  19 #include "direction.hh"
  20 #include "staff-symbol-referencer.hh"
  21 #include "custos.hh"
  22 #include "stencil.hh"
  23 #include "warn.hh"
  24 #include "note-head.hh"
  25 #include "item.hh"
  26 #include "font-interface.hh"
  27 #include "math.h" // rint
  28
  29 MAKE_SCHEME_CALLBACK (Custos,print,1);
  30 SCM
  31 Custos::print (SCM smob)
  32 {
  33   Item *me = (Item *)unsmob_grob (smob);
  34
  35   SCM scm_style = me->get_property ("style");
  36   String style;
  37   if (gh_symbol_p (scm_style))
  38     {
  39       style = ly_symbol2string (scm_style);
  40     }
  41   else
  42     {
  43       style = "mensural";
  44     }
  45
  46   /*
  47    * Shall we use a common custos font character regardless if on
  48    * staffline or not, or shall we use individual font characters
  49    * for both cases?
  50    */
  51   bool adjust = true;
  52
  53   int neutral_pos = robust_scm2int (me->get_property ("neutral-position"), 0);
  54   Direction neutral_direction =
  55     to_dir (me->get_property ("neutral-direction"));
  56
  57   int pos = Staff_symbol_referencer::get_rounded_position (me);
  58   int sz = Staff_symbol_referencer::line_count (me)-1;
  59
  60   String font_char = "custodes-" + style + "-";
  61   if (pos < neutral_pos)
  62     font_char += "u";
  63   else if (pos > neutral_pos)
  64     font_char += "d";
  65   else if (neutral_direction == UP)
  66     font_char += "u";
  67   else if (neutral_direction == DOWN)
  68     font_char += "d";
  69   else // auto direction; not yet supported -> use "d"
  70     font_char += "d";
  71
  72   if (adjust)
  73     {
  74       font_char += (((pos ^ sz) & 0x1) == 0) ? "1" : "0";
  75     }
  76   else
  77     {
  78       font_char += "2";
  79     }
  80
  81   Stencil stencil
  82     = Font_interface::get_default_font (me)->find_by_name (font_char);
  83   if (stencil.is_empty ())
  84     {
  85       me->warning (_f ("custos `%s' not found", font_char));
  86       return SCM_EOL;
  87     }
  88   else
  89     {
  90       // add ledger lines
  91       int pos = Staff_symbol_referencer::get_rounded_position (me);
  92       int interspaces = Staff_symbol_referencer::line_count (me)-1;
  93       if (abs (pos) - interspaces > 1)
  94         {
  95           Stencil ledger_lines =
  96             Note_head::brew_ledger_lines (me, pos, interspaces,
  97                                           stencil.extent (X_AXIS), 0, true);
  98           stencil.add_stencil (ledger_lines);
  99         }
 100       return stencil.smobbed_copy ();
 101     }
 102 }
 103
 104 ADD_INTERFACE (Custos, "custos-interface",
 105   "A custos object.",
 106   "style neutral-position neutral-direction");