Hi Pierre,
On Sat, Mar 14, 2015 at 12:42 PM, Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com> wrote:
> Hi,
>
> In order to make a new guitar barré function, I'm trying to merge the
> attached markup-command with an event-function (without success - problem
> is on line #90):
>
> %%%%%%%%%%%%%%%%%
> \version "2.18.2"
>
> Prefix = \markup {
> %% uncomment/comment these lines for C, C slashed, B or B slashed prefix
> :
> \roman C
> %\combine \roman C \translate #'(0.65 . -0.25) \override #'(thickness .
> 1.2) \draw-line #'(0 . 1.8)
> %\roman B
> %\combine \roman B \translate #'(0.65 . -0.25) \override #'(thickness .
> 1.2) \draw-line #'(0 . 1.8)
> %%%%%%%%%%%%
> \hspace #0.2
> }
>
> #(define-markup-command (prefix layout props string-qty) (integer?)
> (interpret-markup layout props
> (case string-qty
> ((2) #{
> \markup {
> \override #'(font-family . typewriter)
> \concat {
> \raise #.15
> \fontsize #-6
> {
> \raise #.5 "1"
> \hspace #-.2
> \raise #.2 "/"
> \hspace #-.2
> "3"
> }
> \Prefix
> }
> }
> #})
> ((3) #{
> \markup {
> \override #'(font-family . typewriter)
> \concat {
> \raise #.15
> \fontsize #-6
> {
> \raise #.5 "1"
> \hspace #-.2
> \raise #.2 "/"
> \hspace #-.2
> "2"
> }
> \Prefix
> }
> }
> #})
> ((4) #{
> \markup {
> \override #'(font-family . typewriter)
> \concat {
> \raise #.15
> \fontsize #-6
> {
> \raise #.5 "2"
> \hspace #-.2
> \raise #.2 "/"
> \hspace #-.2
> "3"
> }
> \Prefix
> }
> }
> #})
> ((5) #{
> \markup {
> \override #'(font-family . typewriter)
> \concat {
> \raise #.15
> \fontsize #-6
> {
> \raise #.5 "5"
> \hspace #-.2
> \raise #.2 "/"
> \hspace #-.2
> "6"
> }
> \Prefix
> }
> }
> #})
> (else
> #{ \markup\Prefix #}))))
>
> startBarre =
> #(define-event-function (parser location arg-string-qty fret-nbr)
> (integer? markup?)
> ;; here's the problem ??
>
Nope, the line below is fine. However, why don't you subsume this in the
let-block?
> (define string-qty arg-string-qty)
> ;; hereunder should be fine:
> (let* ((mrkp (markup #:upright #:concat (prefix fret-nbr))))
>
You've defined Prefix with a capital "P" above.
> (let* ((mrkp (markup #:upright #:concat (#:lower 0.08 prefix #:lower
> 0.05 fret-nbr #:hspace 0.3))))
>
Same problem here. By the way, why the two assignments to mrkp? This one
will shadow the one above.
HTH,
David
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
