writing melodies from score using seqPLoop

setcps(110/120/2) -- setcps (bpm/120/x) where bpm sets tempo x = 2b, b measures in a bar

do
  {
    resetCycles;  
    d1 $ stz 3 (0.125/2) 0.8
      $ rarely (off 0.125 (|+ n "2 4 3"))
      $ every 5 (#hpf "200 400 800 1200")
      $ seqPLoop [ 
      -- right hand
      (0, 3, note ( "cs6 cs6 d6 cs6") # sound "fm1:0" #gain (perlin*0.1+0.9) ) , -- <cs6 d6> cs6
      (3, 4, note ( "cs6 b5 cs6 d6") # sound "fm1:0"  #gain (perlin*0.1+0.9) ) , -- cs6 <b5 d6>
      (4, 7, note ( "cs6 cs6 d6 cs6") # sound "fm1:0" #gain (perlin*0.1+0.9) ) , --  <cs6 d6> cs6
      (7, 8, note ( "cs6 b5 a5 b5") # sound "fm1:0"  #gain (perlin*0.1+0.9) ) , -- <cs6 a5> b5
      -- left hand
      (0, 1, note "fs4 cs5 fs5 cs5 fs4 cs5 fs5 cs5" # sound "fm1:1" #gain (perlin*0.1+0.9)), -- [<fs4 fs5> cs5]*2
      (1, 2, note "a4 e5 a5 e5 a4 e5 a5 e5" # sound "fm1:1" #gain (perlin*0.1+0.9)), -- [<a4 a5> e5]*2 
      (2, 3, note "cs4 gs4 e5 gs4 cs4 gs4 e5 gs4" # sound "fm1:1" #gain (perlin*0.1+0.9)),  -- [<cs4 e5> gs4]*2
      (3, 4, note "d4 a4 fs5 a4 d4 a4 fs5 a4" # sound "fm1:1" #gain (perlin*0.1+0.9)), -- [<d4 fs5> a4]*2
      (4, 5, note "fs4 cs5 fs5 cs5 fs4 cs5 fs5 cs5" # sound "fm1:1" #gain (perlin*0.1+0.9)), -- [<fs4 fs5> cs5]*2
      (5, 6, note "a4 e5 a5 e5 a4 e5 a5 e5" # sound "fm1:1" #gain (perlin*0.1+0.9)),  -- [<a4 a5> e5]*2
      (6, 7, note "cs4 gs4 e5 gs4 cs4 gs4 e5 gs4" # sound "fm1:1" #gain (perlin*0.1+0.9)), -- [<cs4 e5> gs4]*2
      (7, 8, note "d4 a4 fs5 a4 d4 a4 fs5 a4" # sound "fm1:1" #gain (perlin*0.1+0.9))  -- [<d4 fs5> a4]*2
      ] #pan (rand*0.5+0.25)
    }



 todo:
    - add let, define soundPat and notePat for each line 
    - A section > B section transitions 
  
  
  see below for score

Einaudi - experience