new file.

[lilypond.git] / scm / output-svg.scm

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 786a37ca177deb434518e3b5e2d650053dba97bd..cabf8f7da09d5ce7606fa6d763fe1a49036fe926 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -193,13 +193,28 @@
     (entity 'path ""
            '(stroke-linejoin . "round")
            '(stroke-linecap . "round")
-           `(stroke-width . ,thick)
            '(stroke . "currentColor")
            '(fill . "currentColor")
+           `(stroke-width . ,thick)
            `(d . ,(string-append (svg-bezier first #f)
                                  (svg-bezier second first-c0)))
            )))
 
+(define (path thick commands)
+  (define (ps-path-entries->svg-path entries)
+    
+  
+  (entity 'path ""
+         `(stroke-width . ,thick)
+         '(stroke-linejoin . "round")
+         '(stroke-linecap . "round")
+         '(stroke . "currentColor")
+         '(fill . "currentColor")
+           
+  
+  ))
+
+
 (define (char font i)
   (dispatch
    `(fontify ,font ,(entity 'tspan (char->entity (integer->char i))))))