Hi Pierre, Am Samstag, den 07. Juli 2018 um 15:54:41 Uhr (+0200) schrieb Pierre Perol-Schneider: > Plus : any idea why 'testTwo does not work ?
because the argument type of "arg" was string?. Below is the updated version: -- Orm %circled-pattern #(define-markup-command (circled-pattern layout props radius angle num arg) (number? number? number? markup?) (interpret-markup layout props (let ((rep (abs num))) (cond ((= num 0) (markup "")) ((= num 1) (markup arg)) (#t (markup (#:combine (#:null) (fold (lambda (i prev) (markup (#:combine (#:rotate (* i (/ angle rep)) (#:concat (#:null #:hspace radius arg))) prev))) (markup (#:null)) (iota (1+ rep)))))))))) testOne = \markup "." testTwo = \markup { \rotate #45 "!" } \markup\circled-pattern #5 #180 #15 \testOne \markup\circled-pattern #5 #-180 #15 \testOne \markup\circled-pattern #5 #180 #2 \testOne \markup\circled-pattern #5 #180 #1 \testOne \markup\circled-pattern #5 #180 #0 \testOne \markup\circled-pattern #5 #360 #5 \testTwo _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user