+ Real scale = scm_to_double (paper_->c_variable ("outputscale"));
+ Output_def *scaled_bookdef = scale_output_def (paper_, scale);
+
+ Object_key *key = new Lilypond_general_key (0, user_key_, 0);
+ SCM scm_key = key->self_scm ();
+ scm_gc_unprotect_object (scm_key);
+
+ paper_book->paper_ = scaled_bookdef;
+ scm_gc_unprotect_object (scaled_bookdef->self_scm ());
+
+ paper_book->header_ = header_;
+
+ /* Render in order of parsing. */
+ int midi_count = 0;
+ for (SCM s = scm_reverse (scores_); s != SCM_EOL; s = scm_cdr (s))