+
+(define-public (scale-paper pap scale)
+ (let*
+ ((new-pap (ly:output-def-clone pap))
+ (dim-vars (ly:output-def-lookup pap 'dimension-variables))
+ (scope (ly:output-def-scope new-pap)))
+
+ (for-each
+ (lambda (v)
+ (define val (ly:output-def-lookup pap v))
+ (if (number? val)
+ (module-define! scope v
+ (/ val scale))
+
+ ;; spurious warnings, eg. for hsize, vsize.
+; (ly:warn "not a number, ~S = ~S " v val)
+ ))
+
+ dim-vars)
+
+ new-pap
+ ))