Re: [Fisarmonica] - concatenation de texte en scheme

[Daniel Cartron]

Le samedi 1 juin 2013 17:13:07 Daniel Cartron a écrit :
Bonjour, 

Je me permet de faire remonter mon courrier de samedi, car je n'ai pas 
trouvé de réponse dans mes fouilles sur le web...

Merci

> Bonjour,
> 
> J'ai écrit ce qui suit pour fabriquer des markup à la volée :
> 
> (define corg
>  '(
>   ( (1 1) . ( _\markup{ } ) )
>   ( (1 2) . ( ^\markup{ } ) )
>   ( (1 3) . ( ^\markup{\column {\line{ }\null}} ) )
>   ( (2 1) . ( _\markup{\underline } ) )
>   ( (2 2) . ( ^\markup{\underline } ) )
>   ( (2 3) . ( ^\markup{\column{\line\underline{ }\null}} ) )
> ))
> 
> (define syst corg)
> (define (btn-markup btn-ref)
>       (list
>               (car(assoc-ref syst (list (caar btn-ref) (cadar btn-ref))))
>               (caddar btn-ref)
>               (cadr(assoc-ref syst (list (caar btn-ref) (cadar btn-ref))))
>       )
> )
> 
> (define btn-ref '((2 3 7)))  ; le "button-pitch" dont je parlais
> précédemment s'il est écrit avec des (()) c'est parce que c'est comme ça
> que ma fonction précédente le renvoit
> 
> (btn-markup btn-ref)
> 
> et je récupère une liste (^\markup{\column{\line\underline{ 7 }\null}})
> 
> J'ai mis ça sous forme de liste sinon je n'ai que la dernière ligne de 
(btn-
> markup btn-ref) qui s'affiche. Mais ce que je veux c'est un texte 
concaténé
> que je vais ensuite accoler à une note.
> 
> J'ai essayé string-append mais j'ai des erreurs, string-join idem, je ne
> vois plus.
> 
> Par ailleurs au départ j'avais écrit ma liste associative avec des "" et 
des
> \\ et j'ai constaté que ça ne fait pas d'erreur comme ça, mais une fois
> réintégré dans le reste du code, je me demande...
> 
> Si une bonne âme peut me donner son avis, voire me corriger...
> 
> Merci.
-- 
Cordialement, Daniel Cartron
« Qui aime bien ses lunettes ménage sa monture. »
Francis Blanche - Mon oursin et moi