ly/generate-embedded-cff.ly

   1 \version "2.4.0"
   2 #(define (write-cff name filename)
   3   (let*
   4       ((body (ly:gulp-file filename))
   5        (outname (format "~a.ps" filename))
   6        (out-port (open-output-file outname))
   7        )
   8
   9
  10     (display (ps-embed-cff body name 0)
  11              out-port)
  12   ))
  13
  14 #(write-cff "Emmentaler-26" "emmentaler-26.commonff")
  15 #(write-cff "Emmentaler-23" "emmentaler-23.commonff")
  16 #(write-cff "Emmentaler-20" "emmentaler-20.commonff")
  17 #(write-cff "Emmentaler-18" "emmentaler-18.commonff")
  18 #(write-cff "Emmentaler-16" "emmentaler-16.commonff")
  19 #(write-cff "Emmentaler-14" "emmentaler-14.commonff")
  20 #(write-cff "Emmentaler-13" "emmentaler-13.commonff")
  21 #(write-cff "Emmentaler-11" "emmentaler-11.commonff")
  22 #(write-cff "aybabtu" "aybabtu.commonff")