\version "2.24.0"

#(ly:set-option 'point-and-click #f)

\header {
  title = "redeem"
  subtitle = "med elektroniska ljud och grafik"
  dedication = "för Sören Hermansson"
  composer = "Fredrik Olofsson 2014"
  instrument = "F Horn & SuperCollider"
  tagline = ##f
}

%----------------------------------------------------------------------------

global = { \time 3/8 \clef treble \key f \major }

improv = #(define-music-function (count) (integer?)
  #{
    \override Rest.stencil = #ly:percent-repeat-interface::beat-slash
    \override Rest.thickness = #0.48
    \override Rest.slope = #1.7
    \repeat unfold $count { r8 }
    \revert Rest.stencil
  #}
)

numberBox = #(define-music-function
  (num)
  (integer?)
  #{
    \mark \markup { \rounded-box #(number->string num) } \bar "||"
  #})

numberCircle = #(define-music-function
  (num)
  (integer?)
  #{
    \mark \markup { \circle #(number->string num) }
  #})

noteheadCross = \override NoteHead.style = #'cross
noteheadDefault = \override NoteHead.style = #'default
noteheadDiamond = \override NoteHead.style = #'diamond

search = \absolute { c''4.->^\markup { \small \halign #-2 "sök..." } }
still = \absolute { c''4.->^\markup { \small \halign #-2 "stilla..." } }

%----------------------------------------------------------------------------

horn = \relative {
  \global
  \tempo 8 = 70

  \partial 8
  r8\fermata^\markup { \small \halign #-0.25 \raise #3 "(~4sek)" }

  \bar "||"
  R8*3*16

  \numberBox #17
  \noteheadDiamond
  \still_\1(
  R4.*7)

  \numberBox #25
  \still_\2(
  R4.*7)

  \numberBox #33
  \search_\0(
  \break
  R4.*7)

  \numberBox #41
  \noteheadCross
  c''4._\1~->\ff\> 8\ppp r4
  4._\2~->\ff\> 8\ppp r4
  |
  \improv #11 r8

  \numberBox #49
  \noteheadCross
  c4._\0~->\ff\> 8\ppp r4
  \break
  \improv #18

  \numberBox #57
  \noteheadCross
  r4 c8_\1->~\ff\> 4.~ 8\ppp r4
  |
  \improv #3 \break \improv #9

  \noteheadCross
  r4 \tuplet 3/2 { r16 c16_\0->\ff[ 16_\2\>-> ] }
  \numberBox #65
  4._\1~-> 8\ppp r4
  |
  \improv #12 \break \improv #3

  R4.
  \numberBox #73
  \noteheadDefault
  bes,4.~\ppp\< bes~ bes~ bes~\p\> bes~ 4\ppp r8
  |
  R8*3*2

  \numberBox #81
  \improv #6 \break \improv #14 r8

  r4 bes8~\ppp\<
  \numberBox #89
  4.~ bes~ bes~ bes\p \breathe \break
  a~\p\> a~ a 4\ppp r8
  r4

  \improv #1 \numberBox #97 \improv #9

  \numberCircle #100
  R4.
  \tuplet 3/2 { bes16\p a bes~ } 4~ 4.~ 4.~ \break 4. \breathe

  \numberBox #105
  es~ es~^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    0 0 moveto
    0 0 5 3 10 1 curveto
    10 1 15 -1 20 1 curveto
    20 1 25 3 30 1 curveto
    30 1 35 -1 40 1 curveto
    40 1 45 3 50 1 curveto
    50 1 55 -1 60 1 curveto
    stroke
  " } es~ es~\> es~ es~\ppp 4 r8
  R4.

  \numberBox #113
  R8*3*4
  \break
  \tuplet 3/2 { bes8\p[ a16 ] } bes4~
  4.~ 4.~ 4 r8

  \numberBox #121
  es4.~\p es e?~ e~^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    0 0 moveto
    0 0 5 3 10 1 curveto
    10 1 15 -1 20 1 curveto
    20 1 25 3 30 1 curveto
    stroke
  " } e~\> e~ e\ppp
  \break

  R4.
  \numberBox #129
  \tuplet 3/2 { bes16\p[ a8 ] } bes4~ 4.~ bes~ 4 r8
  |
  es4.~\p es e?~ e^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    0 0 moveto
    0 0 5 3 10 1 curveto
    10 1 15 -1 20 1 curveto
    20 1 25 3 27 2 curveto
    stroke
  " }

  \numberBox #137
  f4.\>~ f~ \break f\ppp^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    0 2 moveto
    0 2 3 2 6 1 curveto
    stroke
  " }
  R4.
  |
  \improv #11 r8

  \numberBox #145
  r8 bes,8~\p \tuplet 3/2 { 16[ a8 ] }
  bes4~ \tuplet 3/2 { 8[ a16 ] }
  \tuplet 3/2 { bes16[ a bes~ ] } 4~
  \break
  bes r8
  es4.~\p es~ es8 e4~ 4.^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    0 0 moveto
    0 0 5 3 10 1 curveto
    10 1 15 -1 20 1 curveto
    20 1 25 3 30 1 curveto
    30 1 35 -1 40 1 curveto
    40 1 45 3 50 1 curveto
    stroke
  " }

  \numberBox #153
  f ges~ ges~\> ges~ 8\ppp r4
  \break
  \improv #6 \numberCircle #160 \improv #2 r8

  \numberBox #161
  r8 \repeat tremolo 4 { bes,32(\p a) }
  r4 \repeat tremolo 2 { bes32(\p a) }
  \repeat tremolo 6 { f'\( e }
  \repeat tremolo 4 { f e\) }
  es8~\> 4.~ 8\ppp r4
  \break
  R8*3*2

  \numberBox #169
  \repeat tremolo 6 { f32\(\p ges }
  \repeat tremolo 6 { f32 ges }
  \repeat tremolo 6 { f32 ges }
  \repeat tremolo 4 { f32 ges\) } r8
  \improv #9 \break \improv #2 r8

  \numberBox #177
  r8 bes,4~\p 4.~ 8 \breathe e?4~ 4.~ 8 es4~
  \repeat tremolo 6 { es32\( f }
  \repeat tremolo 6 { es32 f }
  \repeat tremolo 2 { es32 f\) } r4

  \break
  \numberBox #185
  ges8--\p bes,4~ 4. \breathe
  es4.~ es^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    0 0 moveto
    0 0 5 3 10 1 curveto
    10 1 15 -1 20 1 curveto
    20 1 25 3 30 1 curveto
    30 1 35 -1 40 1 curveto
    40 1 45 3 50 1 curveto
    50 1 55 -1 60 1 curveto
    stroke
  " } e?~\> e f~ f\ppp

  \numberBox #193
  R4.
  \break
  \improv #18
  |
  R4.

  \numberBox #201
  \noteheadDiamond
  \search_\0(
  \break
  R4.*7)

  \numberBox #209
  \still_\2(
  R4.*7)

  \numberBox #217
  \search_\1(
  R4.*7)

  \numberBox #225
  \still_\0(
  R4.*7)

  \bar "|."
}

%----------------------------------------------------------------------------

spelsätt = \relative {
  \global

  \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((Y-offset . 140))

  \noteheadDiamond
  c''4.^\markup { \small \raise #2 "tyst ryck" }

  \noteheadCross
  4.^\markup { \small \raise #2 "blåsbrus" }

  \once \override TextScript.Y-offset = #0
  s4.^\markup { \small \raise #4.5 "sväva" }^\markup { \postscript "
    0.25 setlinewidth
    [ 0.75 ] 0 setdash
    1 0 moveto
    1 0 3 2 5 0 curveto
    5 0 7 -2 9 0 curveto
    9 0 11 2 13 0 curveto
    stroke
  " }

  \noteheadDefault
  \repeat tremolo 6 {
    f,32(^\markup { \small \raise #2 "drill" }_\markup { \small "8 vändor / slag" }
    e)
  }

  <<
    \improv #3
    s4.^\markup { \small \raise #2 "ad lib" }
    _\markup { \small "* tyst" }
    _\markup { \small "* andas" }
    _\markup { \small "* blåsbrus" }
    _\markup { \small "* metallknack" }
    _\markup { \small "* ragnarök" }
    _\markup { \small "* munstycke" }
  >>
}

%----------------------------------------------------------------------------

\score {
  \new Staff \with {
    instrumentName = "Horn i F"
  } \transpose f c' \horn
  \layout {
    \context {
      \Score
      skipBars = ##t
      \override MetronomeMark.self-alignment-X = #1
      \override TextScript.layer = #-1
    }
  }
}

\markup {
  \column {
    \line { "Tillhörande mjuk- och hårdvara:" }
    \line { " * Interaktivt ljudspår (SuperCollider)" }
    \line { " * Dynamisk grafik (openFrameworks)" }
    \line { " * Grafisk metronom (Javascript)" }
    \line { " * Lavalier mikrofon fastsatt på hornet vid ventilerna" }
    \line { "    för att få med så mycket mekaniska ljud som möjligt" }
  }
}

\score {
  \new StaffGroup \with {
    instrumentName = "spelsätt:"
    \omit Score.TimeSignature
    \omit Score.Clef
  } \transpose f c' \spelsätt
  \layout {
    \context {
      \Score
      proportionalNotationDuration = #(ly:make-moment 1/32)
      \override SystemStartBar.collapse-height = #1
    }
  }
}

\paper {
  evenHeaderMarkup = \markup {
    \fill-line {
      \if \should-print-page-number 
      \fromproperty #'page:page-number-string
      \fromproperty #'header:title
    }
  }
}