Re: make-column-markup

[David Séverin]

Le Sun, 31 Aug 2008 15:34:44 +0200,
"Gilles THIBAULT" <address@hidden> a écrit :

> 
> > when 'my' colmark markup-command
> Nice function ...
> >is called with one of its
> >arg being either \papaccel or \papritar, it's sort of thinking
> >it should 'piling up' the given args with the previous call of
> >colmark
> 
> Don't sure i undertand what you want but perhaps you can try the command
>         \textLengthOn
> before your music.
> ( 
> http://lilypond.org/doc/v2.11/Documentation/user/lilypond/Text-scripts#Text-scripts
>  )
> 
> The notes will be spaced to make room for each of your \markup texts.
> 
> Sorry if it was not what you needed.
> 
> Gilles
> 

Thank You Gilles,

I should have asked my question in a better way [and sorry for having
copied the pdf, where everybody on the list could reproduce it, it
takes 'energy' for nothing ...]

In fact, I just upgraded from 2.10.33 to 2.11.57, for the best off
course.  It's just that in 2.10.33, if the markup text was long and
overlaped next column[s], successive call to my colmark function would
not take that into account [and off ourse I would not place any other
markup text in the next column either...]

Your are off source right to mention \textengthOn, but this obviously
leads to a desplacement of follwing notes in accordance ... [and that
is obvisouly the desired behavior], which for tuplets is not what I am
looking for.

What I'd like is, against 'the logic' of 2.11.57 which is great, that
I have an option to tell my colmark to start positionning its objects
passed in args as if there where no 'overtaken space' in previous call.

Could this be possible ?

Many Thanks,
David

;; -- simple lily example


% #!lilypond les-cinq-pieds.ly -*- coding: utf-8; -*-

\version "2.11.57"

#(define-markup-command (colmark layout props args)
  (markup-list?)
  (let ((entries (cons (list '(baseline-skip . 2.4)) props)
       ))
   (interpret-markup layout entries
    (make-column-markup
     (map (lambda (arg) 
           (markup arg))
      (reverse args))))))


db         = \markup { \musicglyph #"scripts.downbow" }
ub         = \markup { \musicglyph #"scripts.upbow" }

papaccel   = \markup \tiny \italic \bold "poco a poco accel."
papritar   = \markup \tiny \italic \bold "poco a poco ritar."


\paper {
  head-separation        = 0\cm
  page-top-space         = 0\cm
}


ViolinSolo = \relative c' {
  
  \voiceOne
  
  \time 4/4
  \stemUp
  \tupletDown

  %% Measure 1
  \times 2/3 { d4 ^\markup \colmark { "line 1" "line 2" "line 3" "line 4" } d d 
}
  \times 2/3 { d4 ^\markup \colmark { "line 1" "line 2" "line 3" "line 4" } d d 
}

  %% Measure 2
  \times 2/3 { d4 ^\markup \colmark { \db \tiny "IV" \papaccel "line 4" } d d }
  \times 2/3 { d4 ^\markup \colmark { "line 1" "line 2" "line 3" "line 4" } d d 
}

  %% Measure 3
  \times 2/3 { d4 ^\markup \colmark { \ub \tiny "IV" \papritar "line 4" } d d }
  \times 2/3 { d4 ^\markup \colmark { "line 1" "line 2" "line 3" "line 4" } d d 
}

  %% Measure 4
  \times 2/3 { d4 ^\markup \colmark { "line 1" "line 2" "line 3" "line 4" } d d 
}
  \times 2/3 { d4 ^\markup \colmark { "line 1" "line 2" "line 3" "line 4" } d d 
}

}

\score {

  <<
    \relative <<
      \new Staff \ViolinSolo
    >>
  >>  

  \layout  {
    indent       = 0.0
    ragged-last  = ##t
    \context {
      \Staff
    }
  }
}