lily/one-line-page-breaking.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2012 Joe Neeman <joeneeman@gmail.com>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "one-line-page-breaking.hh"
  21
  22 #include <limits>
  23
  24 #include "column-x-positions.hh"
  25 #include "international.hh"
  26 #include "output-def.hh"
  27 #include "page-spacing.hh"
  28 #include "paper-book.hh"
  29 #include "paper-score.hh"
  30 #include "simple-spacer.hh"
  31 #include "system.hh"
  32
  33 One_line_page_breaking::One_line_page_breaking (Paper_book *pb)
  34   : Page_breaking (pb, 0, 0)
  35 {
  36 }
  37
  38 One_line_page_breaking::~One_line_page_breaking ()
  39 {
  40 }
  41
  42 /*
  43   This is a somewhat unconventional page-breaking algorithm.  Every
  44   score is put on a single page, whose width is enough to fit the entire
  45   score on one line.  Line breaks and page breaks are ignored, and the
  46   paper-width setting in the paper block is modified to fit the music.
  47 */
  48 SCM
  49 One_line_page_breaking::solve ()
  50 {
  51   SCM all_pages = SCM_EOL;
  52   Real max_width = 0;
  53   for (vsize i = 0; i < system_specs_.size (); ++i)
  54     {
  55       if (Paper_score *ps = system_specs_[i].pscore_)
  56         {
  57           vector<Grob *> cols = ps->root_system ()->used_columns ();
  58
  59           // No indent, "infinite" line width, ragged.
  60           Column_x_positions pos = get_line_configuration (cols, numeric_limits<Real>::max (), 0, true);
  61           vector<Column_x_positions> positions;
  62           positions.push_back (pos);
  63
  64           ps->root_system ()->break_into_pieces (positions);
  65           ps->root_system ()->do_break_substitution_and_fixup_refpoints ();
  66           Grob *system = ps->root_system ()->broken_intos_[0];
  67
  68           vector<vsize> lines_per_page;
  69           lines_per_page.push_back (1);
  70           SCM systems = scm_list_1 (system->self_scm ());
  71           SCM pages = make_pages (lines_per_page, systems);
  72
  73           max_width = max (max_width, system->extent (system, X_AXIS).length ());
  74           all_pages = scm_cons (scm_car (pages), all_pages);
  75         }
  76       else if (Prob *pb = system_specs_[i].prob_)
  77         // Because we don't call Page_breaking::systems in this algorithm,
  78         // we need to manually unprotect the titles.
  79         pb->unprotect ();
  80     }
  81
  82   // Alter paper-width so that it is large enough to fit every system.
  83   // TODO: it might be nice to allow different pages to have different widths.
  84   // This would need support in the backends (eg. framework-ps.scm).
  85   Real right_margin = robust_scm2double (book_->paper_->c_variable ("right-margin"), 0.0);
  86   Real left_margin = robust_scm2double (book_->paper_->c_variable ("left-margin"), 0.0);
  87   Real width = max_width + right_margin + left_margin;
  88   book_->paper_->set_variable (ly_symbol2scm ("paper-width"), scm_from_double (width));
  89
  90   return scm_reverse_x (all_pages, SCM_EOL);
  91 }