''

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

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index 9adfa9f6c581f49f837fde6f358556b821ca40ac..5413ee1b988b2caa166d9a6e2f2ad154c0f4128c 100644 (file)
--- a/scm/ascii-script.scm
+++ b/scm/ascii-script.scm
@@ -218,21 +218,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)))
-       "")))