-;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
-
-(define-public (paper-set-staff-size sz)
- "Function to be called inside a \\paper{} block to set the staff size."
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+(define-public (set-paper-dimension-variables mod)
+ (module-define! mod 'dimension-variables
+ '(pt mm cm in staff-height staff-space
+ page-top-space
+ between-system-space between-system-padding
+ line-width indent paper-width paper-height horizontal-shift
+ staff-space line-thickness ledgerline-thickness
+ blot-diameter left-margin right-margin)))
+
+(define-public (layout-set-staff-size sz)
+ "Function to be called inside a \\layout{} block to set the staff size."