From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 28 Jul 2005 12:10:24 +0000 (+0000)
Subject: (bezier-sandwich): add bezier-sandwich
X-Git-Tag: release/2.7.4~47
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f9aa0656d3846f4e355d176fc8f6abca58d11dbd;p=lilypond.git

(bezier-sandwich): add bezier-sandwich
---

diff --git a/ChangeLog b/ChangeLog
index fc9aa19963..d33b65139f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-07-28  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/output-socket.scm (bezier-sandwich): add bezier-sandwich
+
 	* mf/feta-bolletjes.mf: swap up and down for aiken heads.
 
 2005-07-27  Graham Percival  <gperlist@shaw.ca>
diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index f9b4478196..df37302650 100644
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -113,3 +113,12 @@
 	  (escape-string string)
 	  ))
 
+
+(define (bezier-sandwich lst thick)
+  (format
+   #f
+   "bezier_sandwich ~a [~a]"
+   thick
+   (string-append 
+    (string-join (map (lambda (x) (format "(~a,~a)" (car x) (cdr x)))
+		      lst) ","))))