-(debug-enable 'backtrace)
+;(debug-enable 'backtrace)
(define point-and-click #f)
(symbol->string (car y))))
-(define (ly-load x) (eval-string (ly-gulp-file x)))
+(define (ly-load x)
+ (let*
+ (
+ (fn (%search-load-path x))
+ )
+ (if (ly-verbose)
+ (format (current-error-port) "[~A]" fn))
+ (primitive-load fn)
+
+ ))
-(ly-load "output-lib.scm")
(scm pysk)
(scm ascii-script)
(scm sketch)
+ (scm pdftex)
)
(define output-alist
("as" . ,as-output-expression)
("pysk" . ,pysk-output-expression)
("sketch" . ,sketch-output-expression)
+ ("pdftex" . ,pdftex-output-expression)
))
))
+(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"
- "pdf.scm"
- "pdftex.scm"
"c++.scm"
+ "molecule.scm"
+ "bass-figure.scm"
"grob-property-description.scm"
- "translator-property-description.scm"
"context-description.scm"
"interface-description.scm"
"beam.scm"
"music-functions.scm"
"music-property-description.scm"
"auto-beam.scm"
- "generic-property.scm"
"basic-properties.scm"
"chord-name.scm"
"grob-description.scm"
+ "translator-property-description.scm"
"script.scm"
"drums.scm"
"midi.scm"