-- J.S. Bach - Choral prelude F-moll 'Ich ruf zu dir Herr Jesu Christ'
import Temporal.Music.Notation
import Temporal.Music.Notation.Local.Western
import CsoundExpr(headerMono, csd, play)
import Orchestra(pipeOrgan')
-- alto dynamics
up :: Double -> [Tone N12] -> Score NoteW
up x = dynamicRel [x, x + accDiap] . line . map sn
down :: Double -> [Tone N12] -> Score NoteW
down x = dynamicRel [x + accDiap, x] . line . map sn
upDown :: Double -> [Tone N12] -> Score NoteW
upDown x = dynamicRel [x, x + accDiap, x] . line . map sn
downUp :: Double -> [Tone N12] -> Score NoteW
downUp x = dynamicRel [x, x-accDiap, x] . line . map sn
flat :: Double -> [Tone N12] -> Score NoteW
flat x = accent x . line . map sn
accDiap = 0.5
--------------------------------------------------
-- solo
-- Part I
solo0 = qn $ high c
solo1 = line [
-- 1 bar
qn ab, qn bb, den ab, sn g, den f, sn g,
-- 2 bar
dynamicRel [0, 0.2, 0] $ line [line $ map sn [ab, bb, ab, bb],
trill 3 (accent 0.2 $ tn $ high c) (tn bb), tn ab, tn bb],
high $ line [accent 0.2 $ qn $ c, den c, sn db,
-- 3 bar
qn eb, tn db, stretch (1/4 - 3/32) $ wn c,
sn $ low bb, qn $ low ab, en $ low bb, en c]
]
solo11 = high $ line [
stretch (1/4 + 1/16) $ wn db,
line $ map tn [eb, f, eb, db], sn c, qn c, qn c]
solo12 = high $ line [
qn db, sn db,
line $ map tn [eb, f, eb, db],sn c, qn c, qn eb]
soloI = line [solo0, reprise solo1 solo11 solo12]
-- Part II
solo21 = high $ line [
-- 1 bar
qn f, en eb, tn db, tn c, sn db,
low $ line $ map en [high c, bb, ab, bb],
-- 2 bar
qn c, qn c, qn $ low bb, qn $ low ab,
-- 3 bar
low $ line [hn g, hn f,
-- 4 bar
qn ab, qn g, hn f]
]
solo22 = line [
-- 5 bar
dhn eb, qn eb,
-- 6 bar
qn ab, qn ab, qn bb, qn bb,
-- 7 bar
high $ line [dhn c, qn db],
-- 8 bar
high $ qn c, qn bb, qn ab, den f, sn g,
-- 9 bar
qn ab, qn g, qn f
]
soloII = solo21 +:+ solo22
solo = pedal (1/128) $ ppl $ soloI +:+ soloII
---------------------------------------------------
-- alto
-- Part I
alto0 = high $ up 0 [low ab, c, f, e]
alto1 = line [
-- 1 bar
high $ down 0.5 [f, c, low ab, low f],
upDown 0 [g, bb, high db, high c],
upDown 0 [f, ab, high c, bb],
downUp 0 [ab, f, ab, high c],
-- 2 bar
high $ downUp 0.2 [f, e, f, ab],
high $ down 0 [g, f, e, f],
high $ downUp 0 [e, c, low g, low bb, low ab, c, f, ab],
-- 3 bar
high $ flat 0 [g, eb, ab, g],
high $ up 0 [ab, eb, f, gb, f, db, f, ab, g, db, c, gb]
]
alto11 = high $ line [
upDown 0 [f, low bb, db, f, bb, ab, g, ab, g, c, e, low bb],
upDown 0 [low f, c, f, e]
]
alto12 = high $ line [
upDown 0 [f, low bb, db, f, bb, ab, g, ab],
down 0 [g, low bb, low ab, f, low g, db, low ab, c]
]
altoI = line [alto0, reprise alto1 alto11 alto12]
-- Part II
alto21 = high $ line [
-- 1 bar
upDown 0 [
low ab, c, low bb, db, low bb, db, ab, g,
ab, eb, db, g, c, f, ab, g],
-- 2 bar
down (-accDiap) [
ab, eb, low ab, gb, f, low ab, low g, db,
c, low ab, c, eb, g, c, low bb, g,
-- 3 bar
db, f, g, f],
up (-accDiap) [
e, low bb, db, c,
low ab, c, f, e, f, c, low ab, low f],
-- 4 bar
flat 0 [
low bb, f, g, f, low bb, eb, f, eb,
c, eb, f, eb, d, low g, low b, d
]
]
alto22 = high $ line [
-- 5 bar
down (-accDiap) $ [
low g, c, eb, db, low g, low bb, db, c] ++
map low [eb, ab, high c, bb, high db, bb, c, high db,
-- 6 bar
f, ab, high db, high c, f, ab, high c, bb,
f, ab, bb, ab, g, bb, high db, high c],
-- 7 bar
up (-accDiap) [
low ab, c, eb, ab, eb, bb, high c, bb,
a, eb, gb, low a, low bb, g, low ab, f
],
-- 8 bar
down (-accDiap) [
low ab, eb, d, eb, low f, db, eb, db,
low eb, c, db, c, low bb, f, g, f,
-- 9 bar
d, f, g, f, e, db, low bb, low g,
low a, c]
]
alto23 = en $ high f
altoII = line [alto21, alto22, alto23]
alto = pedal (1/132) $ lower 3 $ pl $ line [altoI, altoII]
----------------------------------------------------------
-- bass
-- Part I
bass0 = lower 1 $ line [en f, en f]
bass1 = (line $ map en [
-- 1 bar
f, f, f, e, f, f, f, eb,
-- 2 bar
db, db, db, db, c, c, f, f]) +:+
-- 3 bar
(high $ line $ map en [c, c, c, c, c, c, low bb, low a])
bass11 = line $ map en [bb, ab, g, f, e, c, low f, low f]
bass12 = line $ map en [bb, ab, g, f, e, f, c, c]
bassI = line [bass0, reprise bass1 bass11 bass12]
-- Part II
bass21 = line $ map en [
-- 1 bar
db, db, eb, eb, ab, eb, f, db,
-- 2 bar
low f, low f, f, f, d, e, f, db,
-- 3 bar
low bb, low g, c, c, db, db, db , db,
-- 4 bar
d, d, d, d, low a, low a, low b, low b
]
bass22 = low $ line $ map en [
-- 5 bar
high c, high c, bb, bb, ab, ab, g, g,
-- 6 bar
f, f, eb, eb, d, d, eb, eb,
-- 7 bar
ab, ab, gb, gb, f, f, bb, bb,
-- 8 bar
bb, ab, ab, g, g, f, high db, high db,
-- 9 bar
b, b, high c, high c
]
bass23 = qn $ low f
bassII = line [bass21, bass22, bass23]
bass = lower 3 $ line [bassI, bassII]
sco = delay (-4) $ bpm (lento $ -0.5) $ pipeOrgan' $ chord [solo, alto, bass]
file = "out.csd"
flags = "-d"
out = csd flags headerMono $ renderScore sco
main = writeFile file $ show out
--main = play "totem" "tmp" "new" out