From fbe747cee35322310295444387999f0e1cee1b76 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Trevor=20Ba=C4=8Da?= Date: Wed, 20 Dec 2006 15:04:15 +0100 Subject: [PATCH] =?utf8?q?Add=20=C4=8C=C3=81RY=20fragment?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- input/cary-layout.ly | 101 +++++++++++ input/cary.ly | 394 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 495 insertions(+) create mode 100644 input/cary-layout.ly create mode 100644 input/cary.ly diff --git a/input/cary-layout.ly b/input/cary-layout.ly new file mode 100644 index 0000000000..44995b0e7f --- /dev/null +++ b/input/cary-layout.ly @@ -0,0 +1,101 @@ +\layout { + indent = #0 + ragged-right = ##t + \context { + \Score + + proportionalNotationDuration = #(ly:make-moment 1 64) + allowBeamBreak = ##t + autoBeaming = ##f + tupletFullLength = ##t + \override BarNumber #'transparent = ##t + \override BarLine #'transparent = ##t + \override SpanBar #'transparent = ##t + \override Beam #'break-overshoot = #'(-0.5 . 1.0) + \override TextScript #'staff-padding = #6 + \override Glissando #'thickness = #3 + \override SpacingSpanner #'strict-grace-spacing = ##t + \override TupletBracket #'bracket-visibility = ##t + \override NoteColumn #'ignore-collision = ##t + } +} + +\paper { + oddHeaderMarkup = \markup \fill-line { " " } + evenHeaderMarkup = \markup \fill-line { " " } + oddFooterMarkup = \markup { + \fill-line { + \bold \fontsize #3 \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string } } + evenFooterMarkup = \markup { + \fill-line { + \bold \fontsize #3 \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string } } + printfirst-page-number = ##t + print-page-number = ##t + ragged-last-bottom = ##t +} + +#(set-global-staff-size 14) + + +%% definitions. + + +ppX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "pp" #:hspace 0))) +pX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "p" #:hspace 0))) +mpX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "mp" #:hspace 0))) +fX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "f" #:hspace 0))) +ffX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "ff" #:hspace 0))) +sfp = #(make-dynamic-script "sfp") +sfpp = #(make-dynamic-script "sfpp") +sffp = #(make-dynamic-script "sffp") +sffpp = #(make-dynamic-script "sffpp") + +beam = #(define-music-function (parser location left right) (number? number?) + (cond ((and (= left 0) (> right 0)) + #{ + \set stemRightBeamCount = #$right + #}) + + ((and (> left 0) (= right 0)) + #{ + \set stemLeftBeamCount = #$left + #}) + + (else + #{ + \set stemLeftBeamCount = #$left + \set stemRightBeamCount = #$right + #}) + ) +) + +fraction = #(define-music-function (parser location music) (ly:music?) + #{ \tweak #'text #tuplet-number::calc-fraction-text $music #}) + +triangle = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(do do do do do do do) $music #}) + +semicircle = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(re re re re re re re) $music #}) + +blackdiamond = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(mi mi mi mi mi mi mi) $music #}) + +tiltedtriangle = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(fa fa fa fa fa fa fa) $music #}) + +square = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(la la la la la la la) $music #}) + +wedge = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(ti ti ti ti ti ti ti) $music #}) + +harmonic = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) $music #}) + +cross = #(define-music-function (parser location music) (ly:music?) + #{ \once \set shapeNoteStyles = ##(cross cross cross cross cross cross cross) $music #}) + +white = #(define-music-function (parser location music) (ly:music?) + #{ \once \override NoteHead #'duration-log = #1 $music #}) + diff --git a/input/cary.ly b/input/cary.ly new file mode 100644 index 0000000000..e9286649cd --- /dev/null +++ b/input/cary.ly @@ -0,0 +1,394 @@ +% ČÁRY ("sorcery") for bass flute (2004 - 2006) +% dedicated to Carin Levine +% by Trevor Bača +% +% Measures 6 - 10; +% Verbatim from composer's score. +% +% Upper staff gives fingerings; +% Lower staff gives special types of breath. +% +% Copyright 2006 for the entire score; +% All rights reserved by the composer. + +\version "2.11.2" + +\include "english.ly" +\include "cary-layout.ly" + +\header { + + title = "ČÁRY" + year = "2004--2006" + subtitle = \markup { \italic Sorcery (extract) } + composer = "Trevor Bača" + copyright = "Copyright 2006 Trevor Bača - all rights reserved." + +} + + +\new Score << + + \new StaffGroup << + + \new Staff \with { + \override Stem #'direction = #down + \override Beam #'positions = #'(-7 . -7) + \override TupletBracket #'direction = #down + \override TupletBracket #'staff-padding = #5 + \override TupletBracket #'padding = #2.25 + \override VerticalAxisGroup #'minimum-Y-extent = #'(10 . 10) + } << + + \new Voice { + + \override Score.MetronomeMark #'extra-offset = #'(0 . 6) + \override Score.MetronomeMark #'font-size = #3 + \tempo 8=42 + \time 5/16 s4 ~ s16 \noBreak % measure 6 + \time 4/8 s2 \noBreak % measure 7 + \time 4/8 s2 \noBreak % measure 8 + + } + + \new Voice \with { + \remove Forbid_line_break_engraver + } { + + % measure 6 + \fraction \times 5/3 { + \times 4/5 { + a'64 [ % 36 + cs''64 % 37 + f''64 % 38 + cs''64 % 39 + ef'''64 ] % 40 + } + \times 4/5 { + g''64 [ % 41 + c''64 % 42 + e''64 % 43 + g''64 % 44 + ef'''64 ] % 45 + } + bf''16 % 46 + } + + % measure 7 + r8 % 47 + \times 4/5 { + d''32 [ % 48 + af''32 % 49 + e'32 % 50 + b'32 % 51 + b'32 ] % 52 + } + ef'''4 % 53 + + % measure 8 + b''8 [ % 54 + g''8 ] % 55 + d''4 % 56 + + } + >> + + \new Staff \with { + \override Clef #'transparent = ##t + \override StaffSymbol #'line-positions = #'(-4 -2 2 4) + \override Stem #'direction = #down + \override TupletBracket #'staff-padding = #5 + \override TupletBracket #'padding = #2.25 + \override VerticalAxisGroup #'minimum-Y-extent = #'(10 . 10) + } << + + \new Voice \with { + \remove Forbid_line_break_engraver + \override Stem #'direction = #up + \override Stem #'stroke-style = #"grace" + \override Stem #'font-size = #-3 + \override Rest #'transparent = ##t + \override NoteHead #'no-ledgers = ##t + \override Dots #'transparent = ##t + \override TupletBracket #'transparent = ##t + \override TupletNumber #'transparent = ##t + } { + + % measure 6 + \fraction \times 5/3 { + \square f''16 * 1/8 % 40 + \square f''16 * 1/8 % 41 + \square f''16 * 1/8 % 42 + \square f''16 * 1/8 % 43 + \square f''16 * 1/8 % 44 + \square f''16 * 1/8 % 45 + \square f''16 * 1/8 % 46 + \square f''16 * 1/8 % 47 + \times 2/3 { + \square f''16 % 48 + \square f''16 * 1/2 % 49 + } + \times 2/3 { + \square f''16 * 1/4 % 50 + \square f''16 * 1/4 % 51 + \square f''16 * 1/4 % 52 + \square f''16 * 1/4 % 53 + \square f''16 * 1/4 % 54 + \square f''16 * 1/4 % 55 + } + } + + % measure 7 + s8 % 56 + \square g''16 * 2/1 % 57 + \square g''16 % 58 + \square g''16 % 59 + \times 8/9 { + s16 % 60 + f''16 * 1/4 % 61 + f''16 * 1/4 % 62 + f''16 * 1/4 % 63 + f''16 * 1/4 % 64 + f''16 * 1/4 % 65 + } + + % measure 8 + \times 4/5 { + \times 4/7 { + s4 % 66 + \triangle a''16 % 67 + \triangle a''16 % 68 + \triangle a''16 % 69 + } + s8 % 70 + \triangle a''16 * 1/2 % 71 + \triangle a''16 * 1/2 % 72 + \triangle a''16 * 1/2 % 73 + \triangle a''16 * 1/2 % 74 + \triangle a''16 * 1/2 % 75 + \triangle g''16 * 1/2 % 76 + \triangle g''16 * 1/2 % 77 + \triangle g''16 * 1/2 % 78 + } + + } + + \new Voice \with { + \remove Forbid_line_break_engraver + \override Stem #'transparent = ##t + \override Rest #'transparent = ##t + \override Rest #'staff-position = #-0.5 + \override Dots #'transparent = ##t + \override Beam #'transparent = ##t + \override TupletBracket #'transparent = ##t + \override TupletNumber #'transparent = ##t + } { + + % measure 6 + \fraction \times 5/3 { + \blackdiamond f'128 [ % 40 + \blackdiamond f'128 % 41 + \blackdiamond f'128 % 42 + \blackdiamond f'128 % 43 + \blackdiamond f'128 % 44 + \blackdiamond f'128 % 45 + \blackdiamond f'128 % 46 + \blackdiamond f'128 ] % 47 + \times 2/3 { + \blackdiamond f'16 % 48 + \blackdiamond f'32 % 49 + } + \times 2/3 { + \blackdiamond f'64 % 50 + \blackdiamond f'64 % 51 + \blackdiamond f'64 % 52 + \blackdiamond f'64 % 53 + \blackdiamond f'64 % 54 + \blackdiamond f'64 % 55 + } + } + + % measure 7 + s8 % 56 + \harmonic a'8 \glissando % 57 + \harmonic a'16 \glissando % 58 + \blackdiamond a'16 % 59 + \times 8/9 { + s16 % 60 + \harmonic g'64 \glissando % 61 + \harmonic g'64 \glissando % 62 + \harmonic g'64 \glissando % 63 + \harmonic g'64 \glissando % 64 + \blackdiamond g'64 % 65 + } + + % measure 8 + \times 4/5 { + \times 4/7 { + s4 % 66 + \blackdiamond f'16 % 67 + \blackdiamond f'16 % 68 + \blackdiamond f'16 % 69 + } + s8 % 70 + \blackdiamond f'32 % 71 + \blackdiamond f'32 % 72 + \blackdiamond f'32 % 73 + \blackdiamond f'32 % 74 + \blackdiamond f'32 % 75 + \harmonic e'32 \glissando % 76 + \harmonic e'32 \glissando % 77 + \blackdiamond e'32 % 78 + } + + } + + \new Voice \with { + \remove Forbid_line_break_engraver + \override Stem #'direction = #down + \override Stem #'font-size = #-3 + \override Stem #'stroke-style = #"grace" + \override Rest #'transparent = ##t + \override NoteHead #'no-ledgers = ##t + \override Dots #'transparent = ##t + \override TupletBracket #'transparent = ##t + \override TupletNumber #'transparent = ##t + } { + + % measure 6 + \fraction \times 5/3 { + s128 % 40 + s128 % 41 + s128 % 42 + s128 % 43 + s128 % 44 + s128 % 45 + s128 % 46 + s128 % 47 + \times 2/3 { + \semicircle a16 % 48 + \semicircle a16 * 1/2 % 49 + } + \times 2/3 { + \semicircle a16 * 1/4 % 50 + \semicircle a16 * 1/4 % 51 + \semicircle a16 * 1/4 % 52 + \semicircle a16 * 1/4 % 53 + \semicircle a16 * 1/4 % 54 + \semicircle a16 * 1/4 % 55 + } + } + + % measure 7 + s8 % 56 + s8 % 57 + s16 % 58 + \triangle a16 % 59 + \times 8/9 { + s16 % 60 + s64 % 61 + s64 % 62 + s64 % 63 + s64 % 64 + \triangle a16 * 1/4 % 65 + } + + % measure 8 + \times 4/5 { + \times 4/7 { + s4 % 66 + \semicircle a16 % 67 + \semicircle a16 % 68 + \semicircle a16 % 69 + } + s8 % 70 + \semicircle a16 * 1/2 % 71 + \semicircle a16 * 1/2 % 72 + \semicircle a16 * 1/2 % 73 + \semicircle a16 * 1/2 % 74 + \semicircle a16 * 1/2 % 75 + s32 % 76 + s32 % 77 + \semicircle a16 * 1/2 % 78 + } + + } + + \new Voice \with { + \remove Forbid_line_break_engraver + \override Stem #'direction = #down + \override NoteHead #'transparent = ##t + \override NoteHead #'no-ledgers = ##t + \override Rest #'staff-position = #-18 + \override Stem #'length = #10 + \override Beam #'positions = #'(-13 . -13) + \override DynamicLineSpanner #'staff-padding = #18 + \override TextSpanner #'edge-text = #(cons (markup #:italic "covered") "") + \override TextSpanner #'dash-period = #1 + \override TextSpanner #'dash-fraction = #0.2 + \override TextSpanner #'edge-height = #'(0 . 1.25) + \override TextSpanner #'bound-padding = #0.5 + \override TextSpanner #'staff-padding = #4 + } { + + % measure 6 + \fraction \times 5/3 { + \beam #0 #5 g,128 \sffp \< [ % 40 + \beam #5 #5 g,128 % 41 + \beam #5 #5 g,128 % 42 + \beam #5 #5 g,128 % 43 + \beam #5 #5 g,128 % 44 + \beam #5 #5 g,128 % 45 + \beam #5 #5 g,128 % 46 + \beam #5 #1 g,128 % 47 + \times 2/3 { + \beam #1 #2 g,16 % 48 + \beam #3 #1 g,32 \fX % 49 + } + \times 2/3 { + \beam #1 #4 g,64 \sffp \< % 50 + \beam #4 #4 g,64 % 51 + \beam #4 #4 g,64 % 52 + \beam #4 #4 g,64 % 53 + \beam #4 #4 g,64 % 54 + \beam #4 #0 g,64 \fX ] % 55 + } + } + + % measure 7 + r8 % 56 + g,8 \sf \< [ % 57 + g,16 % 58 + \beam #2 #0 g,16 \ffX ] % 59 + \times 8/9 { + r16 % 60 + \beam #4 #4 g,64 \sfp \< [ % 61 + \beam #4 #4 g,64 % 62 + \beam #4 #4 g,64 % 63 + \beam #4 #4 g,64 % 64 + \beam #4 #0 g,64 \fX ] % 65 + } + + % measure 8 + \times 4/5 { + \times 4/7 { + r4 % 66 + \beam #2 #2 g,16 \fX [ % 67 + \beam #2 #2 g,16 \fX % 68 + \beam #2 #0 g,16 \fX ] % 69 + } + r8 % 70 + \beam #3 #3 g,32 \fX [ % 71 + \beam #3 #3 g,32 \fX % 72 + \beam #3 #3 g,32 \fX % 73 + \beam #3 #3 g,32 \fX % 74 + \beam #3 #3 g,32 \fX % 75 + \beam #3 #3 g,32 \sf \< % 76 + \beam #3 #3 g,32 % 77 + \beam #3 #0 g,32 \ffX ] % 78 + } + + } + >> + >> +>> -- 2.39.2