Fixes feta-nummer, feta-din scaling.
(define-public (comment s) "")
(define-public (ly:numbers->string lst)
(define-public (comment s) "")
(define-public (ly:numbers->string lst)
- (apply string-append
- (map (lambda (x) (string-append (ly:number->string x) " ")) lst)))
+ (string-join (map ly:number->string lst) " "))
(define (number->octal-string x)
(let* ((n (inexact->exact x))
(define (number->octal-string x)
(let* ((n (inexact->exact x))
(define-public (ly:number-pair->string c)
(string-append (ly:number->string (car c)) " "
(define-public (ly:number-pair->string c)
(string-append (ly:number->string (car c)) " "
- (ly:number->string (cdr c)) " "))
+ (ly:number->string (cdr c))))
(define (font i)
(string-append
(define (font i)
(string-append
;; two beziers
(define (bezier-sandwich l thick)
(string-append
;; two beziers
(define (bezier-sandwich l thick)
(string-append
- (apply string-append (map ly:number-pair->string l))
+ (string-join (map ly:number-pair->string l) " ")
+ " "
(ly:number->string thick)
(ly:number->string thick)
- " draw_bezier_sandwich "))
+ " draw_bezier_sandwich"))
(define (bracket arch_angle arch_width arch_height height arch_thick thick)
(string-append
(define (bracket arch_angle arch_width arch_height height arch_thick thick)
(string-append
(define (char i)
(string-append
(define (char i)
(string-append
- "(\\" (ly:inexact->string i 8) ") show " ))
+ "(\\" (ly:inexact->string i 8) ") show" ))
(define (comment s)
(string-append "% " s "\n"))
(define (comment s)
(string-append "% " s "\n"))
;; what the heck is this interface ?
(define (dashed-slur thick dash l)
(string-append
;; what the heck is this interface ?
(define (dashed-slur thick dash l)
(string-append
- (apply string-append (map ly:number-pair->string l))
+ (string-join (map ly:number-pair->string l) " ")
+ " "
(ly:number->string thick)
" [ "
(ly:number->string dash)
(ly:number->string thick)
" [ "
(ly:number->string dash)
(define (draw-line thick x1 y1 x2 y2)
(string-append
(define (draw-line thick x1 y1 x2 y2)
(string-append
- " 1 setlinecap
- 1 setlinejoin "
- (ly:number->string thick)
- " setlinewidth "
- (ly:number->string x1)
- " "
- (ly:number->string y1)
- " moveto "
- (ly:number->string x2)
- " "
- (ly:number->string y2)
- " lineto stroke"))
+ "1 setlinecap 1 setlinejoin "
+ (ly:number->string thick) " setlinewidth "
+ (ly:number->string x1) " "
+ (ly:number->string y1) " moveto "
+ (ly:number->string x2) " "
+ (ly:number->string y2) " lineto stroke"))
(define (end-output)
"\nend-lilypond-output\n")
(define (end-output)
"\nend-lilypond-output\n")
(let ((c (assoc name-mag-pair font-name-alist)))
(if c
(let ((c (assoc name-mag-pair font-name-alist)))
(if c
- (string-append " " (cddr c) " setfont ")
+ (string-append (cddr c) " setfont ")
(begin
(ly:warn
(format "Programming error: No such font: ~S" name-mag-pair))
(begin
(ly:warn
(format "Programming error: No such font: ~S" name-mag-pair))
(define (placebox x y s)
(string-append
(define (placebox x y s)
(string-append
- (ly:number->string x) " " (ly:number->string y) " {" s "} place-box\n"))
+ (ly:number->string x) " " (ly:number->string y) " { " s " } place-box\n"))
(define (polygon points blotdiameter)
(string-append
(define (polygon points blotdiameter)
(string-append
(define (round-filled-box x y width height blotdiam)
(string-append
(define (round-filled-box x y width height blotdiam)
(string-append
(ly:numbers->string
(list x y width height blotdiam)) " draw_round_box"))
(ly:numbers->string
(list x y width height blotdiam)) " draw_round_box"))
" draw_box" ))
(define (stop-system)
" draw_box" ))
(define (stop-system)
(define stop-last-system stop-system)
(define stop-last-system stop-system)
(define (text s)
;; (string-append "(" (escape-parentheses s) ") show "))
(define (text s)
;; (string-append "(" (escape-parentheses s) ") show "))
- (string-append "(" (ps-encoding s) ") show "))
+ (string-append "(" (ps-encoding s) ") show"))
(define (unknown)
"\n unknown\n")
(define (unknown)
"\n unknown\n")
(ly:number->string dx)
" "
(ly:number->string dy)
(ly:number->string dx)
" "
(ly:number->string dy)
(define (start-page)
(set! page-number (+ page-number 1))
(define (start-page)
(set! page-number (+ page-number 1))
;; what the heck is this interface ?
(define (dashed-slur thick dash l)
(string-append
;; what the heck is this interface ?
(define (dashed-slur thick dash l)
(string-append
- (apply string-append (map ly:number-pair->string l))
+ (string-join (map ly:number-pair->string l) " ")
+ " "
(ly:number->string thick)
" [ "
(ly:number->string dash)
(ly:number->string thick)
" [ "
(ly:number->string dash)