X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-socket.scm;h=352ff2989dfbbed5ee8d02245d48d94972e322fd;hb=7509c61f127919d08a783ee4a4d735273ca4a68d;hp=28e22f72a3c3ba3733d290b443e8b1a47d804a91;hpb=9a7759a2afdfa3e0d5b88cf02576d8fcb7fcaab7;p=lilypond.git

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 28e22f72a3..352ff2989d 100644
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -48,16 +48,6 @@
 ;;; stencil commands
 ;;;
 
-(define (bezier-sandwich lst thick)
-  (format #f "bezier_sandwich ~a [~a]"
-	  thick
-	  (string-append
-	    (string-join (map
-			   (lambda (x)
-			     (format #f "(~a,~a)" (car x) (cdr x)))
-			   lst)
-			 ","))))
-
 (define (draw-line thick x1 y1 x2 y2)
   (format #f "drawline ~a ~a ~a ~a ~a"
 	  thick x1 y2 x2 y2))