CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/07/28 12:10:24
Modified files:
. : ChangeLog
scm : output-socket.scm
Log message:
(bezier-sandwich): add bezier-sandwich
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3933&tr2=1.3934&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/output-socket.scm.diff?tr1=1.8&tr2=1.9&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3933 lilypond/ChangeLog:1.3934
--- lilypond/ChangeLog:1.3933 Thu Jul 28 05:58:38 2005
+++ lilypond/ChangeLog Thu Jul 28 12:10:24 2005
@@ -1,5 +1,7 @@
2005-07-28 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+ * 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 <[EMAIL PROTECTED]>
Index: lilypond/scm/output-socket.scm
diff -u lilypond/scm/output-socket.scm:1.8 lilypond/scm/output-socket.scm:1.9
--- lilypond/scm/output-socket.scm:1.8 Wed Jul 20 14:23:41 2005
+++ lilypond/scm/output-socket.scm Thu Jul 28 12:10:24 2005
@@ -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) ","))))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
