init/scm.ly

   1 \scm "
   2
   3 (define (add-column p) (display \"adding column (in guile): \") (display p) (newline))
   4
   5 (define
   6   (control->string c)
   7   (string-append
   8     (string-append (number->string (car c)) \" \")
   9     (string-append (number->string (cadr c)) \" \")))
  10
  11 (define
  12   (dashed-slur-ps thick dash l)
  13   (string-append
  14     (apply string-append (map control->string l))
  15     (number->string thick)
  16    \" [ 0 \" (number->string dash) \" ] 0 draw_dashed_slur\"))
  17
  18 (define
  19   (dashed-slur-tex thick dash l)
  20   (string-append
  21     \"\\embedded_ps{\"
  22     (dashed-slur-ps thick dash l)
  23    \"}\"))
  24
  25 (define
  26   (dashed-slur o thick dash l)
  27   ((eval-string (string-append \"dashed-slur-\" o)) thick dash l))
  28
  29 ";
  30