This piece draws inspiration from the epic, thematic drama of Game of Thrones, featuring a rich texture built from intertwining cello melodic lines. The core of the composition is a generative harmonic system that constantly evolves.

The technique uses two independent cosine functions set at different frequencies to control chord and harmonic variations in real-time. This method creates a complex, cycling pattern of chord shapes, resulting in a moody and unpredictable soundscape reminiscent of the show’s high-stakes narrative and vast scale.

Creating chords using a cosine function

The main technique used in this piece is to generate chord/harmonic variations using a cosine functions.

(at 8 0 
  (set! *melody* 
    (:mkchord (:mkint 48 (cosrfloor 7 7 1/30) 'M)   
    'M (cosrfloor 7 3 1/5))
  )

Every 8 beats the root chord (used by all instruments in order to generate musical patterns) gets updated. Two cosine functions are used to simultaneously:

1. Determine the amplitude of the interval (major or minor, starting from C3) that generates the root note of the chord.
2. Determine the number of notes in the chord.

The two cosine functions have different frequencies, leading to a variety of combinations of chord shapes that keep cycling around.

The sounds I used

Sounds are generated by sending MIDI events to Ableton Live 11. I'm using two main virtual instruments:

• Simpler built-in presets
• Spitfire Audio LABS

Full source code

(define *melody* (mkchord 48 '-))
(define *durs* (list 1/2 1/2 1 1/2))

(define loop
  (lambda (beat melody durs)
    (let ((dur (car durs)) 
          (p (car melody)))

        (at 8 0 
          (set! *melody* 
            (:mkchord (:mkint 48 (cosrfloor 7 7 1/30) 'M)   
            'M (cosrfloor 7 3 1/5))
          )

          (play cello (octave (car *melody*) 3 4) 60 8 )
          (play 2 strings (octave (:mkint (car *melody*) 3 'M) 7 9) 50 8 )
          (play 5/2 strings (octave (:mkint (car *melody*) 5) 3 5) 40 6 )
          (play 4 strings (octave (:mkint (car *melody*) 12) 7 9) 30 4 )
        ) 


        (play pluck p 60 (* dur .9) )
        (play 3/2 pluck (add -12 p) 60 (* dur .9) )

      (at 4 0 
        (play pluck (:mkint p (oneof 12 4 5) ) 50 (* dur 2) )
        (play (oneof 1 1/2) pluck (:mkint p 24 ) 40 (* dur 2) )
      )

      (callback (*metro* (+ beat (* 1/2 dur))) 
        'loop (+ beat dur)
        (cdr-or-else melody *melody*)
        (cdr-or-else durs *durs*)))))

(loop (*metro* 'get-beat 1) *melody* *durs*)

Also available on GitHub.