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 #(display "Invoking inkscape...\n")
  16 #(system (format #f "inkscape -T -E ~a-1.eps ~a-1.svg" outname outname))
  17 #(set! output-count 0)
  18 #(set-default-paper-size "a5")
  19
  20 \book {
  21   \header {
  22     texidoc = "SVG output, rendered through inkscape."
  23     title = "SVG"
  24   }
  25
  26
  27
  28   \score {
  29     \lyrics {
  30       \markup {
  31         \epsfile #X #30.0 #(format #f "~a-1.eps" outname)
  32       }
  33       x x x
  34     }
  35   }
  36 }