lily/one-line-auto-height-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-auto-height-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_auto_height_breaking::One_line_auto_height_breaking (Paper_book *pb)
  34   : Page_breaking (pb, 0, 0)
  35 {
  36 }
  37
  38 One_line_auto_height_breaking::~One_line_auto_height_breaking ()
  39 {
  40 }
  41
  42 /*
  43   This is a somewhat unconventional page-breaking algorithm.  Like
  44   ly:one-line-breaking, every score is put on a single page, whose width
  45   is enough to fit the entire score on one line.  Line breaks and page
  46   breaks are ignored, and the paper-width setting in the paper
  47   block is modified to fit the music.  Unlike ly:one-line-breaking
  48   the paper-height setting in the paper block is also modified to fit
  49   the music.
  50 */
  51 SCM
  52 One_line_auto_height_breaking::solve ()
  53 {
  54   SCM all_pages = SCM_EOL;
  55   Real max_width = 0;
  56   Real max_height = 0;
  57
  58   for (vsize i = 0; i < system_specs_.size (); ++i)
  59     {
  60       if (Paper_score *ps = system_specs_[i].pscore_)
  61         {
  62           vector<Grob *> cols = ps->root_system ()->used_columns ();
  63
  64           // No indent, "infinite" line width, ragged.
  65           Column_x_positions pos = get_line_configuration (cols, numeric_limits<Real>::max (), 0, true);
  66           vector<Column_x_positions> positions;
  67           positions.push_back (pos);
  68
  69           ps->root_system ()->break_into_pieces (positions);
  70           ps->root_system ()->do_break_substitution_and_fixup_refpoints ();
  71           Grob *system = ps->root_system ()->broken_intos_[0];
  72
  73           vector<vsize> lines_per_page;
  74           lines_per_page.push_back (1);
  75           SCM systems = scm_list_1 (system->self_scm ());
  76           SCM pages = make_pages (lines_per_page, systems);
  77
  78           max_width = max (max_width, system->extent (system, X_AXIS).length ());
  79           max_height = max (max_height, system->extent (system, Y_AXIS).length ());
  80           all_pages = scm_cons (scm_car (pages), all_pages);
  81         }
  82       else if (Prob *pb = system_specs_[i].prob_)
  83         // Because we don't call Page_breaking::systems in this algorithm,
  84         // we need to manually unprotect the titles.
  85         pb->unprotect ();
  86     }
  87
  88   // Alter paper-width so that it is large enough to fit every system.
  89   // TODO: it might be nice to allow different pages to have different widths
  90   // and heights.  This would need support in the backends (eg. framework-ps.scm).
  91   Real right_margin = robust_scm2double (book_->paper_->c_variable ("right-margin"), 0.0);
  92   Real left_margin = robust_scm2double (book_->paper_->c_variable ("left-margin"), 0.0);
  93   Real width = max_width + right_margin + left_margin;
  94   book_->paper_->set_variable (ly_symbol2scm ("paper-width"), scm_from_double (width));
  95
  96   // Alter paper-height so that it fits the height of the tallest system.
  97   Real top_margin = robust_scm2double (book_->paper_->c_variable ("top-margin"), 0.0);
  98   Real bottom_margin = robust_scm2double (book_->paper_->c_variable ("bottom-margin"), 0.0);
  99   Real height = max_height + top_margin + bottom_margin;
 100   book_->paper_->set_variable (ly_symbol2scm ("paper-height"), scm_from_double (height));
 101
 102   return scm_reverse_x (all_pages, SCM_EOL);
 103 }