Doc-es: various updates.

[lilypond.git] / input / regression / backend-svg.ly

diff --git a/input/regression/backend-svg.ly b/input/regression/backend-svg.ly
index db1dfbed701cc3b3df345d45c2102dc898617cbf..ad0c30036cd2749e80381f80e8106cf05b99b6f4 100644 (file)
--- a/input/regression/backend-svg.ly
+++ b/input/regression/backend-svg.ly
@@ -1,4 +1,5 @@
-
+\version "2.19.22"
+%{
 #(ly:set-option 'backend 'svg)
 #(set! output-count 1)
 
@@ -6,30 +7,41 @@
 \include "typography-demo.ly"
 
 
-
-#(define outname (ly:parser-output-name parser))
+#(define outname (ly:parser-output-name))
 
 #(ly:set-option 'backend 'eps)
 
 %% TODO: what to do if inkscape fails?
-#(display "Invoking inkscape...\n")
-#(system (format #f "inkscape -T -E ~a-1.eps ~a-1.svg" outname outname))
+#(ly:progress "Invoking inkscape...\n")
+
+%% LD_LIBRARY_PATH is necesssary, otherwise, it doesn't build in GUB.
+%% LD_LIBRARY_PATH is part of the start-environment but should be switched off
+%% for external inkscape.
+#(let*
+  ((cmd (format #f
+       "LD_LIBRARY_PATH= inkscape --without-gui --export-text-to-path --export-eps ~a-inkscape.eps ~a-1.svg" outname outname)))
+  (ly:progress "Running ~a" cmd)
+  (ly:system cmd)
+  (cons
+   (format #f "FONTCONFIG_FILE=~a/fonts/fonts.conf" (ly:effective-prefix))
+   (ly:start-environment)))
+
 #(set! output-count 0)
 #(set-default-paper-size "a5")
+
 \book { 
   \header {
     texidoc = "SVG output, rendered through inkscape."
     title = "SVG"
   } 
 
-
-
   \score {
     \lyrics {
       \markup {
-       \epsfile #X #30.0 #(format #f "~a-1.eps" outname)
+       \epsfile #X #30.0 #(format #f "~a-inkscape.eps" outname)
       }
-      x x x
+      bla bla bla
     }
   }
 }
+%}