patch::: 1.0.16.mb1: Re: LilyPond 1.0.16

[lilypond.git] / init / scm.ly

diff --git a/init/scm.ly b/init/scm.ly
index 24883e035e64bdd7ce4dfbbca67f542e0d166fe0..0c56301f88c287afd62e30a339690e97247ee7c7 100644 (file)
--- a/init/scm.ly
+++ b/init/scm.ly
@@ -1,8 +1,30 @@
 \scm "
+
 (define (add-column p) (display \"adding column (in guile): \") (display p) (newline))
-(define (dashed-slur o l) (newline) (display \"output type: \") (display o) (newline) (display \"controls: \") (map display l) (newline))
-";
 
-% deze is blond
-% ((lambda (o) (dashed-slur o '((0.0 0.0) (17.2124966172942 -16.8303258151405) (161.324688856776 -15.2124966172942) (178.155014671916 2.0)))) 'ps)
+(define
+  (control->string c)
+  (string-append
+    (string-append (number->string (car c)) \" \")
+    (string-append (number->string (cadr c)) \" \")))
+
+(define 
+  (dashed-slur-ps thick dash l)
+  (string-append 
+    (apply string-append (map control->string l)) 
+    (number->string thick) 
+   \" [ 0 \" (number->string dash) \" ] 0 draw_dashed_slur\"))
+
+(define 
+  (dashed-slur-tex thick dash l)
+  (string-append 
+    \"\\embedded_ps{\"
+    (dashed-slur-ps thick dash l)
+   \"}\"))
+
+(define 
+  (dashed-slur o thick dash l) 
+  ((eval-string (string-append \"dashed-slur-\" o)) thick dash l))
+
+";