release: 1.5.36

[lilypond.git] / lily / paper-def.cc

diff --git a/lily/paper-def.cc b/lily/paper-def.cc
index 5813786e62c080c0851c41bc2aea143d707db043..d28375ba9105103030871b0a546873eb9aec79b9 100644 (file)
--- a/lily/paper-def.cc
+++ b/lily/paper-def.cc
@@ -19,6 +19,12 @@
 #include "file-results.hh" // urg? header_global_p
 #include "paper-outputter.hh"
 
+/*
+  This is an almost empty thing. The only substantial thing this class
+  handles, is scaling up and down to real-world dimensions (internally
+  dimensions are against global staff-space.)
+  
+ */
 Paper_def::Paper_def ()
 {
 }
@@ -45,6 +51,13 @@ Paper_def::get_scmvar (String s) const
   return  scope_p_->scm_elem (ly_symbol2scm (s.ch_C ()));
 }
 
+
+SCM
+Paper_def::get_scmvar_scm (SCM sym) const
+{
+  return  gh_double2scm (get_realvar (sym));
+}
+
 Real
 Paper_def::get_realvar (SCM s) const
 {