+++ /dev/null
-\version "2.20.0"
-
-#(define ((flared-tie coords) grob)
-
- (define (pair-to-list pair)
- (list (car pair) (cdr pair)))
-
- (define (normalize-coords goods x y dir)
- (map
- (lambda (coord)
- ;(coord-scale coord (cons x (* y dir)))
- (cons (* x (car coord)) (* y dir (cdr coord))))
- goods))
-
- (define (my-c-p-s points thick)
- (make-connected-path-stencil
- points
- thick
- 1.0
- 1.0
- #f
- #f))
-
- ;; outer let to trigger suicide
- (let ((sten (ly:tie::print grob)))
- (if (grob::is-live? grob)
- (let* ((layout (ly:grob-layout grob))
- (line-thickness (ly:output-def-lookup layout 'line-thickness))
- (thickness (ly:grob-property grob 'thickness 0.1))
- (used-thick (* line-thickness thickness))
- (dir (ly:grob-property grob 'direction))
- (xex (ly:stencil-extent sten X))
- (yex (ly:stencil-extent sten Y))
- (lenx (interval-length xex))
- (leny (interval-length yex))
- (xtrans (car xex))
- (ytrans (if (> dir 0)(car yex) (cdr yex)))
- (uplist
- (map pair-to-list
- (normalize-coords coords lenx (* leny 2) dir))))
-
- (ly:stencil-translate
- (my-c-p-s uplist used-thick)
- (cons xtrans ytrans)))
- '())))
-
-#(define flare-tie
- (flared-tie '((0 . 0)(0.1 . 0.2) (0.9 . 0.2) (1.0 . 0.0))))
\line { \italic "sequence 3" }
\line { \bold "7 cyme" }
\line { \bold "8 polar" }
- \line { \bold "9 circumnutation" }
+ \line { \bold "9 circumnutation" }
\vspace #0.2
\line { \italic "sequence 4" }
\line { \bold "10 panicle" }
\line { \bold "11 composite" }
- \line { \bold "12 circumnutation" }
+ \line { \bold "12 circumnutation" }
\vspace #0.2
}
\left-column {
\line { \italic "sequence 5" }
\line { \bold "13 composite" }
\line { \bold "14 polar" }
- \line { \bold "15 circumnutation" }
+ \line { \bold "15 circumnutation" }
\vspace #0.2
\line { \italic "sequence 6" }
\line { \bold "16 cyme" }
\line { \bold "17 pappus" }
- \line { \bold "18 circumnutation" }
+ \line { \bold "18 circumnutation" }
\vspace #0.2
\line { \italic "sequence 7" }
\line { \bold "19 panicle" }
\line { \bold "20 cyme" }
- \line { \bold "21 circumnutation" }
+ \line { \bold "21 circumnutation" }
}
\column { \null }
}
\vspace #0.5
\line { ================================= }
\vspace #1.5
- }
+ }
}
\column { \null }
}
-
\version "2.20.0" %invention 1 manuscript:
-
+
voiceApre = { \tmarkione \override Beam.auto-knee-gap = #6 \override Flag.stroke-style = #"grace"
-\time 15/8 \change Staff = "di1" \stemUp gis8[\laissezVibrer\sustainOn_\markup { \bold "(" \dynamic pp \bold "-" \dynamic mf \bold ")" } a\laissezVibrer cis\laissezVibrer \change Staff = "ui1" fis\laissezVibrer \change Staff = "di1" b,\laissezVibrer dis,\laissezVibrer e,\laissezVibrer] \change Staff = "ui1" \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b''1*1/2^~ 1*1/2 \offset X-offset #-3.4 \fermata^\markup { \tiny \italic "a piacere" } \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
-\change Staff = "di1" \stemDown bes8[\laissezVibrer a\laissezVibrer \change Staff = "ui1" g'\laissezVibrer d'\laissezVibrer c\laissezVibrer f,\laissezVibrer e'\laissezVibrer] \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,1*1/2^~ 1*1/2 \offset X-offset #-3.4 \fermata \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
-\change Staff = "di1" \stemUp d,8[\laissezVibrer b'\laissezVibrer cis,\laissezVibrer fis,\laissezVibrer a\laissezVibrer e\laissezVibrer gis'\laissezVibrer] \change Staff = "ui1" \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b1*1/2^~ 1*1/2 \offset X-offset #-3.4 \fermata \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
-\change Staff = "di1" g,8[\laissezVibrer e'\laissezVibrer fis\laissezVibrer d\laissezVibrer b'\laissezVibrer \change Staff = "ui1" a'8\laissezVibrer cis\laissezVibrer] \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,1*1/2^~ 1*1/2 \offset X-offset #-3.4 \fermata \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
-\change Staff = "di1" a,8[\laissezVibrer c\laissezVibrer g'\laissezVibrer b\laissezVibrer \change Staff = "ui1" d\laissezVibrer e\laissezVibrer fis\laissezVibrer] \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,1*1/2^~ 1*1/2 \offset X-offset #-2.5 \fermata \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
- \change Staff = "di1" \stemDown cis,8[\laissezVibrer b'\laissezVibrer \change Staff = "ui1" e\laissezVibrer dis'\laissezVibrer fis\laissezVibrer gis\laissezVibrer ais\laissezVibrer] \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,,1*1/2^~ 1*1/2 \offset X-offset #-2.5 \fermata \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\time 15/8 \change Staff = "di1" \stemUp d8[\laissezVibrer\sustainOn_\markup { \bold "(" \dynamic pp \bold "-" \dynamic mf \bold ")" } a'\laissezVibrer e\laissezVibrer g\laissezVibrer fis\laissezVibrer b\laissezVibrer c\laissezVibrer]
+\change Staff = "ui1" \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b1*1/2^~ 1*1/2 \offset X-offset #-3.4 ^\markup { \tiny \italic "a piacere" } \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\change Staff = "ui1" \stemDown f'8[\laissezVibrer bes\laissezVibrer ees\laissezVibrer des\laissezVibrer aes'\laissezVibrer ces\laissezVibrer ges\laissezVibrer]
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,,1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+f''8[\laissezVibrer g,\laissezVibrer ees\laissezVibrer c\laissezVibrer \change Staff = "di1" bes\laissezVibrer aes\laissezVibrer \change Staff = "ui1" d\laissezVibrer]
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\stemUp \change Staff = "di1" e,8[\laissezVibrer a,\laissezVibrer cis,\laissezVibrer dis\laissezVibrer fis\laissezVibrer gis\laissezVibrer b\laissezVibrer]
+\change Staff = "ui1" \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b'1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\change Staff = "di1" g,8[\laissezVibrer bes\laissezVibrer f'\laissezVibrer a\laissezVibrer \change Staff = "ui1" e'\laissezVibrer d\laissezVibrer c'\laissezVibrer]
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\stemDown des''8[\laissezVibrer f\laissezVibrer g,\laissezVibrer bes,\laissezVibrer ees,\laissezVibrer \change Staff = "di1" c\laissezVibrer aes\laissezVibrer]
+\change Staff = "ui1" \override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\stemUp \change Staff = "di1" a8[\laissezVibrer fis\laissezVibrer e\laissezVibrer b\laissezVibrer cis,\laissezVibrer d,\laissezVibrer g\laissezVibrer] \change Staff = "ui1"
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b''1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\change Staff = "di1" a,,8[\laissezVibrer fis'\laissezVibrer gis\laissezVibrer cis\laissezVibrer e\laissezVibrer \change Staff = "ui1" d'\laissezVibrer b'\laissezVibrer]
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\stemDown c'8[\laissezVibrer f\laissezVibrer ees'\laissezVibrer bes'\laissezVibrer ges,\laissezVibrer des\laissezVibrer aes\laissezVibrer]
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b,1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\stemUp bes'8[\laissezVibrer f\laissezVibrer g\laissezVibrer c,\laissezVibrer \change Staff = "di1" ees,\laissezVibrer a,\laissezVibrer d\laissezVibrer] \change Staff = "ui1"
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b'1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
+\change Staff = "di1" \stemUp b,8[\laissezVibrer e,\laissezVibrer cis\laissezVibrer dis\laissezVibrer fis\laissezVibrer gis\laissezVibrer ais\laissezVibrer] \change Staff = "ui1"
+\override NoteHead #'no-ledgers = ##t \override NoteHead.transparent = ##t b'1*1/2^~ 1*1/2 \override NoteHead.transparent = ##f \override NoteHead #'no-ledgers = ##f |
\time 7/8 \stemUp \change Staff = "di1" c,8[\laissezVibrer\sustainOff\sustainOn d\laissezVibrer e\laissezVibrer f\laissezVibrer g\laissezVibrer a\laissezVibrer b\laissezVibrer] \bar "|." }
-voiceBpre = { \tmarkione \override NoteHead #'no-ledgers = ##t \override Score.SustainPedalLineSpanner #'padding = #'3
+voiceBpre = { \tmarkione \override NoteHead #'no-ledgers = ##t \override Score.SustainPedalLineSpanner #'padding = #'3
\time 15/8 \set Staff.pedalSustainStyle = #'bracket \override NoteHead.transparent = ##t s4.\sustainOn s4 s4 d'1*1/2_~ 1*1/2 |
s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
+s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
+s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
+s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
+s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
+s4.\sustainOff\sustainOn s4 s4 d1*1/2_~ 1*1/2 |
\time 7/8 \change Staff = "ui1" s8^\markup { \italic "poco rit." } s8 s8 s8 s8 s8 s8 \offset X-offset -2 ^\markup { "attacca" } | }