* tex/lilyponddefs.tex (lybox): Add height, and proper raising.
Fixes classic output.
(lilypondstart):
* scripts/lilypond.py (global_latex_preamble): Remove topmargin
kludge.
* scripts/lilypond.py: Remove LaTeX titling kludge. Remove page
layout tweaking.
2004-04-10 Jan Nieuwenhuizen <janneke@gnu.org>
+ * lily/paper-book.cc (classic_output):
+ * tex/lilyponddefs.tex (lybox): Add height, and proper raising.
+ Fixes classic output.
+ (lilypondstart):
+ * scripts/lilypond.py (global_latex_preamble): Remove topmargin
+ kludge.
+
* scripts/old-lilypond-book.py: Remove.
Page layout for SCOREs enclosed in a BOOK:
Paper_outputter *out = papers_.top ()->get_paper_outputter (outname);
out->output_header (papers_.top (), scopes (count - 1), 0);
- Offset o (0, 0);
+ Paper_line *first = unsmob_paper_line (scm_vector_ref (scores_.top (),
+ scm_int2num (0)));
+ Offset o (0, -0.5 * first->dim ()[Y_AXIS]);
int line_count = SCM_VECTOR_LENGTH ((SCM) scores_.top ());
for (int i = 0; i < line_count; i++)
out->output_line (scm_vector_ref ((SCM) scores_.top (), scm_int2num (i)),
(define (end-output)
"\nend-lilypond-output\n")
+(define end-output-classic end-output)
+
(define (ez-ball ch letter-col ball-col)
(string-append
" (" ch ") "
(define (comment s)
(string-append "% " s "\n"))
-(define (end-output)
+(define (end-output)
(begin
;; uncomment for some stats about lily memory
;; (display (gc-stats))
;; Put GC stats here.
)))
-(define (experimental-on)
- "")
-
(define (repeat-slash w a t)
(embedded-ps (list 'repeat-slash w a t)))
%% Nullify [La]TeX page layout settings, page layout by LilyPond.
\pagestyle{empty}
\topmargin-1in
-%% FIXME: empirical computer science: page is ca 5mm too low.
-\advance\topmargin-5mm
\headheight0pt\headsep0pt
\oddsidemargin-1in
\evensidemargin\oddsidemargin
%% Nullify [La]TeX page layout settings, page layout by LilyPond.
\pagestyle{empty}
\topmargin-1in
- %% FIXME: empirical computer science: page is ca 5mm too low.
- \advance\topmargin-5mm
\headheight0pt\headsep0pt
\oddsidemargin-1in
\evensidemargin\oddsidemargin
\gdef\lyitem#1#2#3{
\topalign{\raise#2\outputscale\leftalign{\kern#1\outputscale#3}}}
-\gdef\XXXlybox#1#2#3#4#5{
- \vbox to #4\outputscale{
- \hbox to #3\outputscale{
- \leftalign{\kern#1\outputscale\lower#2\outputscale\topalign{#5}}}
- \hss}\vss}
-
-%% FIXME: no dimensions, should fix at toplevel
+\newdimen\lytempdim
\gdef\lybox#1#2#3#4#5{
- \leftalign{\kern#1\outputscale\lower#2\outputscale\topalign{#5}}}
+ \lytempdim\baselineskip
+ \advance\lytempdim-#4\outputscale
+ \raise\lytempdim
+ \vbox to#4\outputscale{
+ \leftalign{\kern#1\outputscale\lower#2\outputscale\topalign{#5}}
+ \vss}}
\gdef\lyvrule#1#2#3#4{
\kern#1\outputscale