(define (sign x)
(if (= x 0)
- 1
+ 0
(if (< x 0) -1 1)))
(define (write-me n x)
))
+(define X 0)
+(define Y 1)
+(define LEFT -1)
+(define RIGHT 1)
+(define UP 1)
+(define DOWN -1)
+(define CENTER 0)
+
(if (not standalone)
(map ly-load
; load-from-path
'("output-lib.scm"
- "sketch.scm"
"pdf.scm"
"pdftex.scm"
"c++.scm"
+ "bass-figure.scm"
"grob-property-description.scm"
- "translator-property-description.scm"
"context-description.scm"
"interface-description.scm"
"beam.scm"
"basic-properties.scm"
"chord-name.scm"
"grob-description.scm"
+ "translator-property-description.scm"
"script.scm"
"drums.scm"
"midi.scm"
)))
-
-
-1