Re: fonction scheme

[Daniel Cartron]

Le samedi 25 mai 2013 16:53:04 Daniel Cartron a écrit :
> ok ça commence à rentrer, du coup j'ai écrit 

je dirais mm plus, j'ai écrit

#(define outerBoardPitch (ly:pitch-transpose scoreOut (ly:make-pitch 0 0 
0)))
#(define outerBoardNote (ly:pitch-notename outerBoardPitch))
#(define outerBoardAlt (ly:pitch-alteration outerBoardPitch))
#(define innerBoardPitch (ly:pitch-transpose scoreOut (ly:make-pitch 0 3 
0)))
#(define innerBoardNote (ly:pitch-notename innerBoardPitch))
#(define innerBoardAlt (ly:pitch-alteration innerBoardPitch))
#(define clefName '(
                (0 . "C")
                (1 . "D")
                (2 . "D")
                (3 . "F")
                (4 . "G")
                (5 . "A")
                (6 . "B")
        ))
#(define clefAlt '(
                (1/2 . "accidentals.sharp")
                (0 . "")
                (-1/2 . "accidentals.flat")
        ))
#(define diatoTabClefInnerName (assoc-ref clefName innerBoardNote))
#(define diatoTabClefInnerAlt (assoc-ref clefAlt innerBoardAlt))
#(define diatoTabClefOuterName (assoc-ref clefName outerBoardNote))
#(define diatoTabClefOuterAlt (assoc-ref clefAlt outerBoardAlt))

maintenant il faut que je réussisse à concaténer tout ça pour faire à partir 
de mon scoreOut = ges :

#{\markup{\raise #-1.1 \column { \bold {C\musicglyph #"accidentals.sharp" } 
\bold G\musicglyph #"accidentals.sharp"}} #}

en fait il faut que je fasse ça un peu mieux, parce que ce markup m'affiche
C
♯
G
♯
avec des gros dièses


alors que je veux 
C♯
G♯
avec des petits dièses

mais ça c'est plus du scheme, c'est du markup lily

-- 
Cordialement, Daniel Cartron
« L'important n'est pas de convaincre, mais de donner à réfléchir. »
Bernard Werber - Le père de nos pères