lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Bold Maj7 Triangle


From: Valentin Petzel
Subject: Re: Bold Maj7 Triangle
Date: Tue, 30 Nov 2021 20:59:10 +0100

Hello Gregory,
It is supposed to be

\context { 
 \ChordNames % no Braces here!
 etc
}

Cheers,
Valentin

Am Dienstag, 30. November 2021, 20:55:24 CET schrieb Gregory Hollands:
> \version "2.22"
> 
> embiggenChordNames = #(define-scheme-function (size) (number?)
>    #{ \with {
>      chordNameFunction = #(lambda (in-pitches bass inversion context)
>        (define exemptions (list musicglyph-markup))
>        (define (helper mu)
>          (if (list? mu)
>            (if (memq (car mu) exemptions)
>              (markup (#:fontsize (- size) mu))
>              (map helper mu))
>            mu))
>        (let ((orig (ignatzek-chord-names in-pitches bass inversion
> context)))
>          (markup (#:fontsize size (helper orig)))))
>    } #} )
> 
> \paper {
>   ragged-last = ##f
> }
> 
> \layout {
>   indent = #0
>   \context { \ChordNames \embiggenChordNames #2.5 }
>   \context {
>     \ChordNames {
>       %\set majorSevenSymbol = \markup { \fontsize #-3.5 \override
> #'(thickness . 0.3) \triangle ##f }
>       %\set minorChordModifier = \markup { \small m }
>       majorSevenSymbol = \markup { \fontsize #-3.5 \override #'(thickness .
> 0.3) \triangle ##f }
>       minorChordModifier = \markup { \small m }
>     }
>   }
>   \override ChordName #'font-name "Open Sans Soft Cd SemiBd"
>   \override Staff.BarLine.hair-thickness = #4
>   \override Staff.BarLine.thick-thickness = #8
> }
> 
> IntroChords = \chordmode {
> 
>   a2:m7 bes2:6 c2:maj7 des2:9
> 
> 
>   \set minorChordModifier = \markup { − }
>   eis2:maj7 f2:dim g2:aug a2:m
> }
> 
> <<
>   \new ChordNames \with {
>     \override BarLine.bar-extent = #'(-1 . 3.5)
>     \consists "Bar_engraver"
>   }
>   \IntroChords

Attachment: signature.asc
Description: This is a digitally signed message part.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]