From f9aa0656d3846f4e355d176fc8f6abca58d11dbd Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 28 Jul 2005 12:10:24 +0000
Subject: [PATCH] (bezier-sandwich): add bezier-sandwich

---
 ChangeLog             | 2 ++
 scm/output-socket.scm | 9 +++++++++
 2 files changed, 11 insertions(+)

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) ","))))
-- 
2.39.5