Re: aleatoric box / frameEngraver

2013-07-15 Thread Karol Majewski
Sorry, Thomas... I forgot to mention that I want to place repeat signs in the 
middle of the bar! Mea culpa. That's why at first I tried to modify 
frameEngraver. It would be great to have something like:

\repeatStart c'4 d' e' \repeatStop
s4*3 \repeatExtenderStop

Here is function that I try to modify:



\version 2.16.2

#(define my-grob-descriptions '())

#(define my-event-classes (ly:make-context-mod))

defineEventClass =
#(define-void-function
  (parser location class parent)
  (symbol? symbol?)
  (ly:add-context-mod my-event-classes
`(apply
  ,(lambda
(context class parent)
(ly:context-set-property! context 'EventClasses
  (event-class-cons class parent
(ly:context-property context 'EventClasses '() ,class ,parent)))

\defineEventClass #'frame-event #'span-event

\defineEventClass #'frame-extender-event #'span-event

#(define
  (add-grob-definition grob-name grob-entry)
  (let*
((meta-entry
(assoc-get 'meta grob-entry))
  (class
(assoc-get 'class meta-entry))
  (ifaces-entry
(assoc-get 'interfaces meta-entry)))
(set-object-property! grob-name 'translation-type? list?)
(set-object-property! grob-name 'is-grob? #t)
(set! ifaces-entry
  (append
(case class
  ((Item)
'(item-interface))
  ((Spanner)
'(spanner-interface))
  ((Paper_column)
'((item-interface paper-column-interface)))
  ((System)
'((system-interface spanner-interface)))
  (else
'(unknown-interface))) ifaces-entry))
(set! ifaces-entry
  (uniq-list
(sort ifaces-entry symbol?)))
(set! ifaces-entry
  (cons 'grob-interface ifaces-entry))
(set! meta-entry
  (assoc-set! meta-entry 'name grob-name))
(set! meta-entry
  (assoc-set! meta-entry 'interfaces ifaces-entry))
(set! grob-entry
  (assoc-set! grob-entry 'meta meta-entry))
(set! my-grob-descriptions
  (cons
(cons grob-name grob-entry) my-grob-descriptions

#(define
  (define-grob-property symbol type? description)
  (if
(not
  (equal?
(object-property symbol 'backend-doc) #f))
(ly:error
  (_ symbol ~S redefined) symbol))
  (set-object-property! symbol 'backend-type? type?)
  (set-object-property! symbol 'backend-doc description) symbol)

#(map
  (lambda
(x)
(apply define-grob-property x))
  `((extend-line ,number? offset to endpoint of frame extender line)
(extra-padding ,pair? extra room on left and right of frame)
(extender-Y-offset ,number? vertical displacement of extender line from 
center staff line)))

#(define frame-types
  '((FrameEvent .
  ((description . Used to signal where frames start and stop.)
(types .
  (general-music frame-event span-event event))

#(define frame-extender-types
  '((FrameExtenderEvent .
  ((description . Used to signal where a frame extender line stops.)
(types .
  (general-music frame-extender-event span-event event))

#(set! frame-types
  (map
(lambda
  (x)
  (set-object-property!
(car x) 'music-description
(cdr
  (assq 'description
(cdr x
  (let
((lst
(cdr x)))
(set! lst
  (assoc-set! lst 'name
(car x)))
(set! lst
  (assq-remove! lst 'description))
(hashq-set! music-name-to-property-table
  (car x) lst)
(cons
  (car x) lst))) frame-types))

#(set! frame-extender-types
  (map
(lambda
  (x)
  (set-object-property!
(car x) 'music-description
(cdr
  (assq 'description
(cdr x
  (let
((lst
(cdr x)))
(set! lst
  (assoc-set! lst 'name
(car x)))
(set! lst
  (assq-remove! lst 'description))
(hashq-set! music-name-to-property-table
  (car x) lst)
(cons
  (car x) lst))) frame-extender-types))

#(set! music-descriptions
  (append frame-types music-descriptions))

#(set! music-descriptions
  (append frame-extender-types music-descriptions))

#(set! music-descriptions
  (sort music-descriptions alist?))

#(define
  (frame-stencil grob) Draw a box around a group of notes for use in frame 
notation.
  (let*
((elts
(ly:grob-object grob 'elements))
  (box-padding
(ly:grob-property grob 'padding))
  (extra-padding
(ly:grob-property grob 'extra-padding))
  (padding-L
(car extra-padding))
  (padding-R
(cdr extra-padding))
  (height
(ly:axis-group-interface::height grob))
  (axis-group-width
(ly:axis-group-interface::width grob))
  (axis-group-width
(coord-translate axis-group-width
  (cons padding-L padding-R)))
  (stencil
(ly:make-stencil '() axis-group-width 

Re: aleatoric box / frameEngraver

2013-07-15 Thread David Nalesnik
Hi Karol, Harm--


On Mon, Jul 15, 2013 at 5:56 AM, Karol Majewski karo...@wp.pl wrote:

 Sorry, Thomas... I forgot to mention that I want to place repeat signs in
 the middle of the bar! Mea culpa. That's why at first I tried to modify
 frameEngraver. It would be great to have something like:

 \repeatStart c'4 d' e' \repeatStop
 s4*3 \repeatExtenderStop


I believe this would be a matter of revising the stencil function which
creates the box to draw two repeat bar lines instead.  This, hopefully, is
workable without building the bar lines up from scratch.


 Here is function that I try to modify:


[BTW, I've been working at this, and added some features to what you're
quoting here: a bracket for indicating timing, and the possibility of
breaking the whole affair across lines.  I'll try to post it later today
with some comments about problems.  I'm at my wit's end with it, so I'd
welcome any help anyone could offer.]

--David
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


fermata on dotted notes on the top line

2013-07-15 Thread Richard Shann
I don't know if this is the right forum for posting unfortunate examples
of LilyPond's output but I came across this one:

\version 2.16
\score {
 f''4.\fermata
}

The fermata seems connected visually with the dot on the note, it looks
better to me dragged further away, which I have done for the score in
question using Denemo.

Just in case anyone has a ready answer to my email earlier  (LilyPond
grace note synchronization feature) but assumes someone else has
answered it, I would very much appreciate guidance on it ...

Richard





___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


Re: fermata on dotted notes on the top line

2013-07-15 Thread Eluze
Richard Shann wrote
 I don't know if this is the right forum for posting unfortunate examples
 of LilyPond's output but I came across this one:
 
 \version 2.16
 \score {
  f''4.\fermata
 }
 
 The fermata seems connected visually with the dot on the note, it looks
 better to me dragged further away, which I have done for the score in
 question using Denemo.

this looks a bit ugly  - I'vel added an issue to the tracker
https://code.google.com/p/lilypond/issues/detail?id=3456thanks=3456ts=1373898751.

two quick workarounds:

f''4.- \tweak #'padding #2 \fermata

or

\dotsDown  f''4. \fermata

thank your Robert for reporting this

Eluze



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/fermata-on-dotted-notes-on-the-top-line-tp148048p148049.html
Sent from the User mailing list archive at Nabble.com.

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


Re: fermata on dotted notes on the top line

2013-07-15 Thread SoundsFromSound
Hmm, that does like quite bad.

But Eluze has the right idea:
I would just use something like 

f''4.- \tweak #'padding #1 \fermata 

...as a temporary fix :)

-Ben



Eluze wrote
 
 Richard Shann wrote
 I don't know if this is the right forum for posting unfortunate examples
 of LilyPond's output but I came across this one:
 
 \version 2.16
 \score {
  f''4.\fermata
 }
 
 The fermata seems connected visually with the dot on the note, it looks
 better to me dragged further away, which I have done for the score in
 question using Denemo.
 this looks a bit ugly  - I'vel added an issue to the tracker
 https://code.google.com/p/lilypond/issues/detail?id=3456thanks=3456ts=1373898751.
 
 two quick workarounds:
 
 f''4.- \tweak #'padding #2 \fermata
 
 or
 
 \dotsDown  f''4. \fermata
 
 thank your Robert for reporting this
 
 Eluze





-
composer | sound designer
--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/fermata-on-dotted-notes-on-the-top-line-tp148048p148050.html
Sent from the User mailing list archive at Nabble.com.

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


Re: fermata on dotted notes on the top line

2013-07-15 Thread Richard Shann
What I actually used was a tweak to the offset, as I hadn't got round to
adding padding as an option in Denemo; Eluze has pricked my conscience
about this and I have now added an option to tweak the padding of such
objects by right clicking on the typeset score and choosing Padding from
the pop-up menu.

Richard


On Mon, 2013-07-15 at 09:38 -0700, SoundsFromSound wrote:
 Hmm, that does like quite bad.
 
 But Eluze has the right idea:
 I would just use something like 
 
 f''4.- \tweak #'padding #1 \fermata 
 
 ...as a temporary fix :)
 
 -Ben
 
 
 
 Eluze wrote
  
  Richard Shann wrote
  I don't know if this is the right forum for posting unfortunate examples
  of LilyPond's output but I came across this one:
  
  \version 2.16
  \score {
   f''4.\fermata
  }
  
  The fermata seems connected visually with the dot on the note, it looks
  better to me dragged further away, which I have done for the score in
  question using Denemo.
  this looks a bit ugly  - I'vel added an issue to the tracker
  https://code.google.com/p/lilypond/issues/detail?id=3456thanks=3456ts=1373898751.
  
  two quick workarounds:
  
  f''4.- \tweak #'padding #2 \fermata
  
  or
  
  \dotsDown  f''4. \fermata
  
  thank your Robert for reporting this
  
  Eluze
 
 
 
 
 
 -
 composer | sound designer
 --
 View this message in context: 
 http://lilypond.1069038.n5.nabble.com/fermata-on-dotted-notes-on-the-top-line-tp148048p148050.html
 Sent from the User mailing list archive at Nabble.com.
 
 ___
 lilypond-user mailing list
 lilypond-user@gnu.org
 https://lists.gnu.org/mailman/listinfo/lilypond-user



___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


Re: Appoggiatura or not appoggiatura?

2013-07-15 Thread David Rogers
John Kliewe kli...@yahoo.com writes:

 Many thanks to the lilypond-user group for their advice on measure #47
 of the Chopin Nocturne #3 (Op 9 No 3). Urs' article on voices was
 particularly helpful.

 My next challenge appeared in measure #69. This is working for me :

 \version 2.16.0
 \relative c'
 { \clef treble
 \time 6/8
 \key b \major
 ais'4.\p \once \override Slur #'stencil = ##f \appoggiatura {b8[\( ais
 gisis ais]} 
  
 {dis4 b8} 
 \new Voice 
 {\stemUp 
 \once \override TupletBracket #'bracket-visibility = ##f 
 \once \override TupletNumber #'stencil = ##f 
 \times 1/2 
 {dis8 \teeny d cis c} 
 \normalsize b8} 
 
 \oneVoice
 ais4 gis8\)
 }

 At first I assumed that both tuplets were appoggiatura, but I couldn't
 get that to work. I also tried cue notes, but merging the head of a
 cue note with a full-size note head was no good either. So my final
 version (above) treats the first tuplet as an appoggiatura, but the
 second is a new voice in a smaller font.

 I'm delighted with the results. But I do wonder if anyone in the group
 thinks I may have missed a better approach?


Not better, but another possible way:

\version 2.16.0
\relative c'
{ \clef treble
\time 6/8
\key b \major
ais'4.\p \once \override Slur #'stencil = ##f \appoggiatura {b8[\( ais
gisis ais]} 
 
{dis4 b8} 
\new Voice 
{\stemUp 
{ dis8*1/2[ \teeny d cis c} 
\normalsize b8]} 

\oneVoice
ais4 gis8\)
}


-- 
David R

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


feature request: abs-fontsize available for all text grobs

2013-07-15 Thread Kieren MacMillan
Hello,

There are a lot of places where I would like to use abs-fontsize: 
InstrumentName, LyricText, etc.

It would be nice if there were a built-in, intuitive, consistent, direct method 
of setting an absolute font size, e.g.,
\override InstrumentName.font-size = #(abs-fontsize . 10)

How difficult would this be to implement?
(I'm happy to contribute a few euros in sponsorship funds.)

Thanks,
Kieren.
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


Uneven note spacing

2013-07-15 Thread Andrew Bernard

Greetings List,

In the following example from a piece I am setting, the composer wants 
the notes in the tuplets exactly evenly spaced, but I see considerable 
unevenness here. There are two questions. First, is this really the 
classical and canonical way to space tuplet notes when in the cross 
staff situation here? Secondly, even if it is, how can I make them 
evenly spaced out?


If I use proportional notation, the only way to spread them out evenly 
is to use such a large value that the score becomes ridiculously widely 
spaced.


The dodecaphonic accidental style is required in this piece.

Any help appreciated!

Andrew



\version 2.17.21


\paper {
  ragged-right = ##t
}

% move to upper staff, stems down
upsd = #(define-music-function (parser location) ()
  #{
\change Staff = upper
\stemDown
  #}
  )

% move to lower staff, stems up
downsu = #(define-music-function (parser location) ()
#{
  \change Staff = lower
  \stemUp
#}
)


upper = \relative c'' {
  \clef bass
  \time 1/4

  s4 s4 s4 s4 s4 s4
}

lower = \relative c {
  \clef bass
  \time 1/4

  \override TupletBracket.bracket-visibility = ##t
  \tupletDown

\tuplet 7/8 {
r16. a32^.[
\once \override Stem.beaming = #(cons (list 0 1 2) (list 1 2)) 
\upsd g'_.

\once \override Stem.beaming = #(cons (list 0 1) (list -1 0 1)) f_.
\downsu bes,^.]
  }

  \stemUp
  \tuplet 7/8 {
ces32[ \upsd ces ces \downsu ces \upsd ces \upsd ces \downsu ces]
  }

  c4 c4 c4 c4
}

\score {

  
\new Staff = upper { \upper }
\new Staff = lower { \lower }
  
  \layout {
\context {
  \Score
  \accidentalStyle Score.dodecaphonic
}
  }
}




___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user