input/regression/backend-svg.ly

   1 %{
   2 #(ly:set-option 'backend 'svg)
   3 #(set! output-count 1)
   4
   5
   6 \include "typography-demo.ly"
   7
   8 \version "2.11.16"
   9
  10 #(define outname (ly:parser-output-name parser))
  11
  12 #(ly:set-option 'backend 'eps)
  13
  14 %% TODO: what to do if inkscape fails?
  15 #(ly:progress "Invoking inkscape...\n")
  16
  17 %% LD_LIBRARY_PATH is necesssary, otherwise, it doesn't build in GUB.
  18 %% LD_LIBRARY_PATH is part of the start-environment but should be switched off
  19 %% for external inkscape.
  20 #(let*
  21   ((cmd (format #f
  22         "LD_LIBRARY_PATH= inkscape --without-gui --export-text-to-path --export-eps ~a-inkscape.eps ~a-1.svg" outname outname)))
  23   (ly:progress "Running ~a" cmd)
  24   (ly:system cmd)
  25   (cons
  26    (format #f "FONTCONFIG_FILE=~a/fonts/fonts.conf" (ly:effective-prefix))
  27    (ly:start-environment)))
  28
  29 #(set! output-count 0)
  30 #(set-default-paper-size "a5")
  31
  32 \book {
  33   \header {
  34     texidoc = "SVG output, rendered through inkscape."
  35     title = "SVG"
  36   }
  37
  38   \score {
  39     \lyrics {
  40       \markup {
  41         \epsfile #X #30.0 #(format #f "~a-inkscape.eps" outname)
  42       }
  43       bla bla bla
  44     }
  45   }
  46 }
  47 %}