- else
- {
- programming_error ("not a real variable");
- return 0.0;
- }
-}
-
-/*
- FIXME. This is broken until we have a generic way of
- putting lists inside the \paper block.
- */
-Interval
-Paper_def::line_dimensions_int (int n) const
-{
- Real lw = get_var ("linewidth");
- Real ind = n? 0.0:get_var ("indent");
-
- return Interval (ind, lw);
-}
-
-
-
-int Paper_def::score_count_i_ = 0;
-
-int
-Paper_def::get_next_score_count () const
-{
- return score_count_i_ ++;
-}
-
-void
-Paper_def::reset_score_count()
-{
- score_count_i_ = 0;
-}
-
-
-Paper_outputter*
-Paper_def::paper_outputter_p ()
-{
- String outname = outname_str ();
- progress_indication (_f ("paper output to %s...",
- outname == "-" ? String ("<stdout>") : outname));
-
- target_str_global_array.push (outname);
- Paper_outputter * po = new Paper_outputter (outname);
- Path p = split_path (outname);
- p.ext = "";
- po->basename_ = p.str ();
- return po;