+ (landscape (ly:output-def-lookup defs 'landscape))
+ (output-scale (ly:output-def-lookup defs 'output-scale))
+ (convert (lambda (x) (* x output-scale (/ (ly:bp 1)))))
+
+ (paper-width (convert (ly:output-def-lookup defs 'paper-width)))
+ (paper-height (convert (ly:output-def-lookup defs 'paper-height)))
+
+ (w (if landscape paper-height paper-width))
+ (h (if landscape paper-width paper-height))
+ )