And this concept with including lilypond code block in function is 100%
easyer..:)
On Mon, May 6, 2013 at 12:40 PM, Stjepan Horvat <zvanste...@gmail.com>wrote:
> When i do this
> insMark =
> #(define-music-function (parser location mark mus)
> (markup? ly:music?)
> (set! (ly:music-property mus 'elements)
> (cons (make-music 'MarkEvent 'label mark)
> (ly:music-property mus 'elements)))
> mus)
>
> \displayMusic { \insMark "A" c'4 }
>
> (make-music
> 'SequentialMusic
> 'elements
> (list (make-music
> 'NoteEvent
> 'elements
> (list (make-music (quote MarkEvent) (quote label) "A"))
> 'duration
> (ly:make-duration 2 0 1)
> 'pitch
> (ly:make-pitch 0 0 0))))
>
> The mark goes inside note-event element and it is not shown.
>
> and it should be like that
>
> (make-music
> 'SequentialMusic
> 'elements
> (list (make-music (quote MarkEvent) (quote label) "A")
> (make-music
> 'NoteEvent
> 'duration
> (ly:make-duration 2 0 1)
> 'pitch
> (ly:make-pitch 0 0 0))))
>
> and David yours makes
>
> (make-music
> 'SequentialMusic
> 'elements
> (list (make-music
> 'SequentialMusic
> 'elements
> (list (make-music (quote MarkEvent) (quote label) "A")
> (make-music
> 'NoteEvent
> 'duration
> (ly:make-duration 2 0 1)
> 'pitch
> (ly:make-pitch 0 0 0))))))
>
>
> On Mon, May 6, 2013 at 12:32 PM, Stjepan Horvat <zvanste...@gmail.com>wrote:
>
>> I'm using GNU LilyPond 2.16.2 and Guile 1.8.8
>> I found out the error
>>
>> insMark =
>> #(define-music-function (parser location mark mus)
>> (markup? ly:music?)
>> (set! (ly:music-property mus 'elements)
>> (cons (make-music 'MarkEvent 'label mark)
>> (ly:music-property mus 'elements)))
>> mus)
>>
>> \displayMusic { \insMark "A" c'4 }
>> %\displayMusic \insMark { "A" c'4 } %tryed that too
>> %\relative c' { \insMark "A" c'4 } %that too
>>
>> after insMark =* was a strange invisible character with code 160, Hex
>> 00a0, Octal 240 and becouse of that it wouldn't want to pass..
>>
>> from http://gcc.gnu.org/ml/gcc-help/2011-08/msg00383.html
>> "no-break space" from unicode.
>> > (to make it worse, this character code is displayed as space by most
>> > text editors....).
>>
>> On Mon, May 6, 2013 at 11:40 AM, David Kastrup <d...@gnu.org> wrote:
>>
>>> Madoka Machitani <madok...@gmail.com> writes:
>>>
>>> > Now, is it correct to assume you are trying to achieve something like
>>> > this? \insMark "a" musical-sequence
>>> >
>>> > If so, the function would be:
>>> >
>>> > insMark =
>>> > #(define-music-function (parser location mark mus)
>>> > (markup? ly:music?)
>>> > (set! (ly:music-property mus 'elements)
>>> > (cons (make-music 'MarkEvent 'label mark)
>>> > (ly:music-property mus 'elements)))
>>> > mus)
>>> >
>>> > This is a crude example and won't work with single note events like c'4
>>>
>>> Why wouldn't you do
>>>
>>> insMark =
>>> #(define-music-function (parser location mark mus)
>>> (markup? ly:music?)
>>> #{ \mark #mark #mus #})
>>>
>>> instead? Note that depending on the version, #mark and/or #mus might
>>> need to be $mark or $mus instead.
>>>
>>> --
>>> David Kastrup
>>>
>>>
>>> _______________________________________________
>>> lilypond-user mailing list
>>> lilypond-user@gnu.org
>>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>>
>>
>>
>>
>> --
>> *Nesmotren govori kao da mačem probada, a jezik je mudrih iscjeljenje.
>> Izreke 12:18*
>>
>
>
>
> --
> *Nesmotren govori kao da mačem probada, a jezik je mudrih iscjeljenje.
> Izreke 12:18*
>
--
*Nesmotren govori kao da mačem probada, a jezik je mudrih iscjeljenje.
Izreke 12:18*
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
