Re: Ambitus with shape notes

[David Kastrup]

Lukas-Fabian Moser  writes:

>>
>> > \version "2.19.44"
>> >
>> > #(define (nth n l)
>> >   (if (or (> n (length l)) (< n 0))
>> > (error "Index out of bounds.")
>> > (if (eq? n 0)
>> >   (car l)
>> >   (nth (- n 1) (cdr l)
>>
>> Seriously?
>>
>> #(define (nth n l) (list-ref l n))
>>
>
> Of course not - being absolutely foreign to scheme, I searched the web
> for a solution of the problem "get n-th element of list",

There is your mistake.  The first place to search should be the Guile
manual.  The second place the pertinent Scheme standard (incidentally
being delivered as part of Guile, too).

The "web" is organized by page rank, resulting in the blind leading the
clueless.

The Guile manual might not be consistently great, but it tends to beat a
random search.

-- 
David Kastrup

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

Re: Ambitus with shape notes

[Lukas-Fabian Moser]

>
> > \version "2.19.44"
> >
> > #(define (nth n l)
> >   (if (or (> n (length l)) (< n 0))
> > (error "Index out of bounds.")
> > (if (eq? n 0)
> >   (car l)
> >   (nth (- n 1) (cdr l)
>
> Seriously?
>
> #(define (nth n l) (list-ref l n))
>

Of course not - being absolutely foreign to scheme, I searched the web for
a solution of the problem "get n-th element of list", and this was what I
stumbled upon and used just because it worked. (I don't know why at the
place where I found this, list-ref wasn't used - maybe it is a question of
dialects?)

Thanks for pointing this out!
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Ambitus with shape notes

[David Kastrup]

Lukas-Fabian Moser  writes:

> Here is an improved version:
>
>
> \version "2.19.44"
>
> #(define (nth n l)
>   (if (or (> n (length l)) (< n 0))
> (error "Index out of bounds.")
> (if (eq? n 0)
>   (car l)
>   (nth (- n 1) (cdr l)

Seriously?

#(define (nth n l) (list-ref l n))

Which has the advantage of _not_ being O(n^2) because you check
(length l) (which is O(n)) in every iteration.

-- 
David Kastrup

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

Re: Ambitus with shape notes

[Thomas Morley]

2017-08-12 12:05 GMT+02:00 Lukas-Fabian Moser :
> Here is an improved version:
>
>
> \version "2.19.44"
>
> #(define (nth n l)
>   (if (or (> n (length l)) (< n 0))
> (error "Index out of bounds.")
> (if (eq? n 0)
>   (car l)
>   (nth (- n 1) (cdr l)
>
> #(define (scale-notehead scale tonic)
>(lambda (grob)
>  (let ((mod-position (modulo (- (ly:grob-property grob 'staff-position)
> tonic)
>7)))
>  (nth mod-position scale)
>  )
>)
>)
>
> aiken = #(list 'do 're 'miMirror 'fa 'sol 'la 'ti)
> sacredHarp = #(list 'fa 'sol 'la 'fa 'sol 'la 'mi)
>
>
> % Standard definitions for \aikenHeads or \sacredHarpHeads may be
> % found in lilypond/usr/share/lilypond/current/ly/property-init.ly:
> %
> %
> % aikenHeads  = \set shapeNoteStyles = ##(do re miMirror fa sol la ti)
> % aikenHeadsMinor = \set shapeNoteStyles = ##(la ti do re miMirror fa sol)
> % funkHeads =  \set shapeNoteStyles = ##(doFunk reFunk miFunk faFunk solFunk
> laFunk tiFunk)
> % funkHeadsMinor =  \set shapeNoteStyles = ##(laFunk tiFunk doFunk reFunk
> miFunk faFunk solFunk)
> % sacredHarpHeads = \set shapeNoteStyles = ##(fa sol la fa sol la mi)
> % sacredHarpHeadsMinor = \set shapeNoteStyles = ##(la mi fa sol la fa sol)
> % southernHarmonyHeads =   \set shapeNoteStyles = ##(faThin sol laThin
> faThin sol laThin miThin)
> % southernHarmonyHeadsMinor =  \set shapeNoteStyles = ##(laThin miThin
> faThin sol laThin faThin sol)
> % walkerHeads =  \set shapeNoteStyles = ##(doWalker reWalker miWalker
> faWalker solFunk laWalker tiWalker)
> % walkerHeadsMinor =  \set shapeNoteStyles = ##(laWalker tiWalker doWalker
> reWalker miWalker faWalker solFunk)
>
>
> \layout {
>   \context {
> \Voice
> \consists "Ambitus_engraver"
>   }
>   \override AmbitusNoteHead.style = #(scale-notehead sacredHarp 2)
> }
>
> \relative {
>   \sacredHarpHeads
>   \clef violin
>   \key d \major
>   cis'4 d e fis g a b cis d
> }
>
> The \override AmbitusNoteHead.style = #(scale-notehead sacredHarp 2) now
> works in the following way: It expects a scale (I predefied sacredHarp and
> aiken) and a number which gives the position of the tonic root of your key
> in the staff - middle line is 0, and so on; I chose d major, and using
> violin clef, a d is on position 2 (two steps above the middle line).
>
> The reason it has to be this way is, that at the time the ambitus is
> printed, you know neither clef nor key signature; so it's easiest to specify
> the desired graphic position of the tonic note.
>
> Best
> Lukas

Hi,

just back from holidays, reading all the mails ...

The code above causes an error (programming error: must have stem dir
for note head) and the note-heads are wrongly rotated. See:

\layout {
  \context {
\Voice
\consists "Ambitus_engraver"
  }
  \override AmbitusNoteHead.style = #(scale-notehead sacredHarp 1)
}

\relative {
  \sacredHarpHeads
  \clef violin
  \key c \major
  cis'4 d e fis g a b cis d
}

So I come up with the code below.
It reads the tonic from the context as well as the
'shapeNoteStyles'-vector of note-head styles.
I didn't figure how to circumvent the error mentioned above while
setting 'style, so I recreated the stencil.

\version "2.19.64"

#(define (get-stencil font cands)
  (cond ((null? cands) point-stencil)
((ly:stencil-empty? (ly:font-get-glyph font (car cands)) X)
 (get-stencil font (cdr cands)))
(else (ly:font-get-glyph font (car cands)

shapedAmbitusNoteHead =
\applyOutput Staff.AmbitusNoteHead
  #(lambda (grob ctx c)
 (let* ((tonic (ly:context-property ctx 'tonic))
(tonic-pitch-notename (ly:pitch-notename tonic))
(shape-note-styles (ly:context-property ctx 'shapeNoteStyles)))

   (if (vector? shape-note-styles)
   (ly:grob-set-property! grob 'before-line-breaking
 (lambda (grob)
   (let* ((staff-pos (ly:grob-property grob 'staff-position))
  (note-head
(vector-ref
  shape-note-styles
  (modulo (- staff-pos tonic-pitch-notename 1) 7)))
  (layout (ly:grob-layout grob))
  (props (ly:grob-alist-chain grob))
  (font (ly:paper-get-font layout props))
  (note-head-candidates
(list
  (format #f "noteheads.~a2~a"
 (if (> 0 staff-pos) "u" "d")
 note-head)
  (format #f "noteheads.s2~a" note-head)
  "noteheads.s2")))
   (ly:grob-set-property! grob 'stencil
 (get-stencil font note-head-candidates

%
%% EXAMPLE
%

\layout {
  \context {
\Voice
\aikenHeads
%\aikenHeadsMinor
%\funkHeads
%\funkHeadsMinor

Re: Marking up titles - font-name and italics

[Daniel Cory]

Ah, well maybe sometime in the future. Anyways, I managed to try out your guy's 
fix and it works! Thank you all again so very much! 





 On Fri, 25 Aug 2017 02:47:32 -0400 tisimst 
tisimst.lilyp...@gmail.com wrote 




On Thu, Aug 24, 2017 at 11:36 PM, Daniel Cory [via Lilypond] [hidden 
email] wrote:



Wow, you both really helped me there. I understand what is going on behind the 
scenes. I will have to try that when I get a chance. I also have a follow up 
question. Is there a way to adjust a text's tracking or kearning?




I'm afraid there's not a built-in way of changing these manually at the moment. 
You're not the only one who has wished for this ability, though.



Best,

Abraham






View this message in context:Re: Marking up titles - font-name and italics

 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: Marking up titles - font-name and italics

[tisimst]

On Thu, Aug 24, 2017 at 11:36 PM, Daniel Cory [via Lilypond] <
ml+s1069038n205250...@n5.nabble.com> wrote:

>
> Wow, you both really helped me there. I understand what is going on behind
> the scenes. I will have to try that when I get a chance. I also have a
> follow up question. Is there a way to adjust a text's tracking or kearning?
>

I'm afraid there's not a built-in way of changing these manually at the
moment. You're not the only one who has wished for this ability, though.

Best,
Abraham




--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Marking-up-titles-font-name-and-italics-tp205248p205251.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