X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fascii-script.scm;fp=scm%2Fascii-script.scm;h=5413ee1b988b2caa166d9a6e2f2ad154c0f4128c;hb=4478a4f00c0958af4964af412fa9e0e050569fe0;hp=9adfa9f6c581f49f837fde6f358556b821ca40ac;hpb=005f1b6ee133fc90fd0f31acdeeb76bba62c058a;p=lilypond.git

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index 9adfa9f6c5..5413ee1b98 100644
--- 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)))
-       "")))