add TODO comment.

7 files changed, 1 insertions, 61 deletions

diff --git a/scm/output-ascii-script.scm b/scm/output-ascii-script.scm
index b955214ffb..db24d96eb0 100644
--- a/scm/output-ascii-script.scm
+++ b/scm/output-ascii-script.scm
@@ -49,7 +49,7 @@
    ))
 
 					; simple flat slurs
-(define (bezier-bow l thick)
+(define (bezier-sandwich thick)
   (let (
 	(c0 (cadddr l))
 	(c1 (cadr l))
diff --git a/scm/output-pdf.scm b/scm/output-pdf.scm
index 898c996b2c..eaaca5fa5b 100644
--- a/scm/output-pdf.scm
+++ b/scm/output-pdf.scm
@@ -192,9 +192,6 @@
 
 (define (placebox x y s) "")
 
-(define (bezier-bow l thick)
-  (bezier-sandwich l thick))
-
 (define (bezier-sandwich l thick)
   (string-append (setlinewidth thick)
 		 (moveto-pair (list-ref l 7))
diff --git a/scm/output-pdftex.scm b/scm/output-pdftex.scm
index ceb35e65d6..96e576ffba 100644
--- a/scm/output-pdftex.scm
+++ b/scm/output-pdftex.scm
@@ -210,9 +210,6 @@
 		 (ly:number->string x) "}{"
 		 s "}%\n"))
 
-(define (bezier-bow l thick)
-  (embedded-pdf (list 'bezier-bow  `(quote ,l) thick)))
-
 (define (bezier-sandwich l thick)
   (embedded-pdf (list 'bezier-sandwich  `(quote ,l) thick)))
 
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 9471f9afc8..22a9c91107 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -39,29 +39,6 @@
   (string-append
    (numbers->string (list slope width thick)) " draw_beam" ))
 
-;; two beziers with round endings
-(define (bezier-bow l thick)
-  
-  (define (bezier-ending z0 z1 z2)
-    (let ((x0 (car z0))
-	  (y0 (cdr z0))
-	  (x1 (car z1))
-	  (y1 (cdr z1))
-	  (x2 (car z2))
-	  (y2 (cdr z2)))
-      (string-append
-       " "
-       (numbers->string
-	(list x0 y0
-	      (/ (sqrt (+ (* (- x1 x2) (- x1 x2))
-			  (* (- y1 y2) (- y1 y2)))) 2)))
-       " draw_dot")))
-
-  (string-append
-   (bezier-sandwich l thick)
-   (bezier-ending (list-ref l 3) (list-ref l 0) (list-ref l 5))
-   (bezier-ending (list-ref l 7) (list-ref l 0) (list-ref l 5))))
-
 ;; two beziers
 (define (bezier-sandwich l thick)
   (string-append 
diff --git a/scm/output-sketch.scm b/scm/output-sketch.scm
index ad914a92e4..c5fcd6c985 100644
--- a/scm/output-sketch.scm
+++ b/scm/output-sketch.scm
@@ -41,7 +41,6 @@
 ;  (let ((keyword (car expr))) 
 ;    (cond
 ; ((eq? keyword 'beam x y width slope thick)
-; ((eq? keyword 'bezier-bow x y l thick)
 ; ((eq? keyword 'bezier-sandwich x y l thick)
 ; ((eq? keyword 'bracket arch_angle arch_width arch_height  height arch_thick thick)
 ; ((eq? keyword 'char x y i)
@@ -286,10 +285,6 @@ layer('Layer 1',1,1,0,0,(0,0,0))
 (define (invoke-char s i)
   "")
 
-;; TODO: bezier-ending, see ps.scm
-(define (bezier-bow x y l thick)
-  (bezier-sandwich x y l thick))
-
 (define (bezier-sandwich x y l thick)
   (apply
    sketch-beziers (list x y (primitive-eval l) thick)))
diff --git a/scm/output-sodipodi.scm b/scm/output-sodipodi.scm
index 4c8675cc3d..23afde99a6 100644
--- a/scm/output-sodipodi.scm
+++ b/scm/output-sodipodi.scm
@@ -221,29 +221,6 @@
 				   (* -1 (/ y z))
 				   1 1)))))
 
-;; TODO: bezier-ending, see ps.scm
-(define (bezier-bow urg-l thick)
-  
-  (define (bezier-ending z0 z1 z2)
-    (let ((x0 (car z0))
-	  (y0 (cdr z0))
-	  (x1 (car z1))
-	  (y1 (cdr z1))
-	  (x2 (car z2))
-	  (y2 (cdr z2)))
-      (let ((r (/ (sqrt (+ (* (- x1 x2) (- x1 x2))
-			  (* (- y1 y2) (- y1 y2)))) 2)))
-      (tagify "circle" ""
-	      `(fill . "#000000;")
-	      `(cx . ,(number->string (* output-scale x0)))
-	      `(cy . ,(number->string (* output-scale (- 0 y0))))
-	      `(r . ,(number->string (* output-scale r)))))))
-  
-  (let ((l (eval urg-l this-module)))
-    (string-append
-     (bezier-sandwich l thick)
-     (bezier-ending (list-ref l 3) (list-ref l 0) (list-ref l 5))
-     (bezier-ending (list-ref l 7) (list-ref l 0) (list-ref l 5)))))
 
 (define (bezier-sandwich l thick)
   (let* (;;(l (eval urg-l this-module))
diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 8a531626f6..408319655b 100644
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -225,9 +225,6 @@
 		 (ly:number->string x) "}{"
 		 s "}%\n"))
 
-(define (bezier-bow l thick)
-  (embedded-ps (list 'bezier-bow  `(quote ,l) thick)))
-
 (define (bezier-sandwich l thick)
   (embedded-ps (list 'bezier-sandwich  `(quote ,l) thick)))