(bezier-sandwich): add bezier-sandwich

diff --git a/ChangeLog b/ChangeLog
index fc9aa199630cec9e358dadeee2b386439e55acd0..d33b65139fb753ec266d2a603be815854bce7bd4 100644 (file)
--- 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 f9b4478196cd78c1f707b4128281b4fbf0ba4148..df37302650842f7efe4a0e40799d06af8aa416c7 100644 (file)
--- 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) ","))))