Clamps Dictionary

svg-file

Common Music Output Class

Output to a SVG file.

svg-file accepts the following keys:

`:global`	global parameters supplied to the svg-export backend.
`:piano-roll-vis`	Boolean denoting whether Piano Roll display is initially visible. Defaults to t.
`:staff-system-vis`	Boolean denoting whether Staff Systems are initially visible. Defaults to t.
`:bar-lines-vis`	Boolean denoting whether Barlines are initially visible. Defaults to t.
`:showgrid`	Boolean denoting whether a grid is initially visible. Defaults to t.
`:x-scale`	Number denoting a x scaling factor. Default is 1.
`:barstepsize`	Positive Integer denoting the number increment for a drawn barline.
`:startbar`	Integer denoting the number of the first bar.
`:barmultiplier`	Integer denoting a scaling factor for the bar numbers.
`:width`	Positive Integer denoting the width of the SVG file. Default is the minimum width needed to display all events.

Examples

(events
 (loop
   for time from 0 by 1/16
   for keynum in (integrate '(60 2 2 1 2 2 2 1))
   collect (new sfz :time time :keynum keynum :duration 1/16))
        "/tmp/test.svg"
        :piano-roll-vis nil
        :showgrid t
        :x-scale 16)
;; => "/tmp/test.svg"

Figure 4: Detail of svg-file generated with the Lisp code above

(events
 (loop
   for time from 0 by 1/16
   for keynum in (integrate '(60 2 2 1 2 2 2 1))
   collect (new sfz :time time :keynum keynum :duration 1/16))
        "/tmp/test.svg"
        :piano-roll-vis t
        :staff-system-vis nil
        :bar-lines-vis nil
        :showgrid nil
        :x-scale 16)
;; => "/tmp/test.svg"

Figure 5: Detail of svg-file generated with the Lisp code above

(events
 (loop
   for time from 0 below 4 by 1/4
   with keynum = (new cycle :of (integrate '(60 2 2 1 2 2 2 1)))
   collect (new sfz :time time :keynum (next keynum) :duration 1/4))
        "/tmp/test.svg"
        :piano-roll-vis t
        :staff-system-vis nil
        :barmultiplier 1
        :barstepsize 1
        :bar-lines-vis t
        :startbar 1
        :showgrid nil
        :x-scale 16)
;; => "/tmp/test.svg"

Figure 6: Detail of svg-file generated with the Lisp code above

(events
 (loop
   for time from 0 below 16 by 1/4
   with keynum = (new cycle :of (integrate '(60 2 2 1 2 2 2 1)))
   collect (new sfz :time time :keynum (next keynum) :duration 1/4))
        "/tmp/test.svg"
        :piano-roll-vis t
        :staff-system-vis nil
        :barstepsize 5
        :barmultiplier 5
        :bar-lines-vis t
        :startbar 0
        :showgrid nil
        :x-scale 16)

Figure 7: Detail of svg-file generated with the Lisp code above

svg-file

Examples

See also