lily/spacing-loose-columns.cc

   1 /*
   2   spacing-loose-columns.cc --  implement loose column spacing.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9
  10 #include "system.hh"
  11 #include "paper-column.hh"
  12 #include "column-x-positions.hh"
  13 #include "staff-spacing.hh"
  14 #include "pointer-group-interface.hh"
  15
  16 /* Find the loose columns in POSNS, and drape them around the columns
  17    specified in BETWEEN-COLS.  */
  18 void
  19 set_loose_columns (System *which, Column_x_positions const *posns)
  20 {
  21   int loose_col_count = posns->loose_cols_.size ();
  22   for (int i = 0; i < loose_col_count; i++)
  23     {
  24       int divide_over = 1;
  25       Item *loose = dynamic_cast<Item *> (posns->loose_cols_[i]);
  26       Paper_column *col = dynamic_cast<Paper_column *> (loose);
  27
  28       if (col->system_)
  29         continue;
  30
  31       Item *left = 0;
  32       Item *right = 0;
  33       while (1)
  34         {
  35           SCM between = loose->get_object ("between-cols");
  36           if (!scm_is_pair (between))
  37             break;
  38
  39           Item *le = dynamic_cast<Item *> (unsmob_grob (scm_car (between)));
  40           Item *re = dynamic_cast<Item *> (unsmob_grob (scm_cdr (between)));
  41
  42           if (! (le && re))
  43             break;
  44
  45           if (!left && le)
  46             {
  47               left = le->get_column ();
  48               if (!left->get_system ())
  49                 left = left->find_prebroken_piece (RIGHT);
  50             }
  51
  52           divide_over++;
  53           loose = right = re->get_column ();
  54         }
  55
  56       if (!right->get_system ())
  57         right = right->find_prebroken_piece (LEFT);
  58
  59       Grob *common = right->common_refpoint (left, X_AXIS);
  60
  61       int count = 0;
  62       Real total_space = 0.0;
  63       Real total_fixed = 0.0;
  64
  65       extract_grob_set (col, "spacing-wishes", wishes);
  66       for (int i = 0; i < wishes.size (); i++)
  67         {
  68           Grob *spacing = wishes[i];
  69           if (Staff_spacing::has_interface (spacing))
  70             {
  71               Real space = 0.0;
  72               Real fixed = 0.0;
  73               Staff_spacing::get_spacing_params (spacing, &space, &fixed);
  74
  75               total_fixed += fixed;
  76               total_space += space;
  77               count++;
  78             }
  79         }
  80
  81       Real right_point = 0.0;
  82       Real distance_to_next = 0.0;
  83       if (count)
  84         {
  85           total_space /= count;
  86           total_fixed /= count;
  87
  88           distance_to_next = total_space;
  89           right_point = right->relative_coordinate (common, X_AXIS);
  90         }
  91       else
  92         {
  93           Interval my_extent = col->extent (col, X_AXIS);
  94           distance_to_next = my_extent[RIGHT] + 1.0;
  95           right_point = right->extent (common, X_AXIS)[LEFT];
  96         }
  97 #if 0
  98       Real left_point = left->extent (common, X_AXIS)[RIGHT];
  99
 100       Real space_left = ((right_point - left_point) >? 0.0)
 101         - (my_extent.is_empty () ? 0.0 : my_extent.length ());
 102
 103       Real padding = (space_left / 2) <? 1.0;
 104       /*
 105         Put it just left of the right column, with a bit of extra space
 106       */
 107 #endif
 108       Real my_offset = right_point - distance_to_next;
 109
 110       col->system_ = which;
 111       col->translate_axis (my_offset - col->relative_coordinate (common, X_AXIS), X_AXIS);
 112     }
 113 }
 114