* VERSION (MY_PATCH_LEVEL): make 1.7.0

[lilypond.git] / scm / ascii-script.scm

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index 25255e3f2886171b41417498a05da2e240822ed0..5f5c09752a2988a34e18683d2988430fe4e0c4a5 100644 (file)
--- a/scm/ascii-script.scm
+++ b/scm/ascii-script.scm
@@ -9,6 +9,7 @@
 
 
 (debug-enable 'backtrace)
+
 (define (tex-encoded-fontswitch name-mag)
   (let* ((iname-mag (car name-mag))
         (ename-mag (cdr name-mag)))
@@ -91,7 +92,7 @@
    ))
 
                                        ; simple flat slurs
-(define (bezier-sandwich l thick)
+(define (bezier-bow l thick)
   (let (
        (c0 (cadddr l))
        (c1 (cadr l))
@@ -153,6 +154,9 @@
                (if (<= dy 1) "-" "="))
          (func "h-line" dx))))))
 
+(define (roundfilledbox breapth width depth height blot)
+  (filledbox breapth width depth height))
+
 (define (font-load-command name-mag command)
   ;; (display "name-mag: ")
   ;; (write name-mag)
@@ -200,14 +204,14 @@
        "")                             ; issue no command
     (func "select-font" (car name-mag-pair))))
 
-(define (start-line height)
-  (func "start-line" height))
+(define (start-system height)
+  (func "start-system" height))
 
-(define (stop-line)
-  (func "stop-line"))
+(define (stop-system)
+  (func "stop-system"))
 
-(define (stop-last-line)
-  (func "stop-line"))
+(define (stop-last-system)
+  (func "stop-system"))
 
 
 (define (text s)
@@ -215,21 +219,3 @@
 
 (define (tuplet ht gap dx dy thick dir) "")
 
-(define (volta h w thick vert-start vert-end)
-  ;; urg
-  (string-append
-   (func "set-line-char" "|")
-   (func "rmove-to" 0 -4)
-   ;; definition strange-way around
-   (if (= 0 vert-start)
-       (func "v-line" h)
-       "")
-   (func "rmove-to" 1 h)
-   (func "set-line-char" "_")
-   (func "h-line" (- w 1))
-   (func "set-line-char" "|")
-   (if (= 0 vert-end)
-       (string-append
-       (func "rmove-to" (- w 1) (* -1 h))
-       (func "v-line" (* -1 h)))
-       "")))