Testing performance of SP under Linux

# Combine chords, bass and flitter
uncomment do
  use_bpm 100
  my_a = [:a3, :c4, :e4, :g4]
  my_d = [:a3, :c4, :e4, :fs4]

  # set synth_default values

  define :get_sync_short do
    use_synth_defaults amp: 2, attack: 0, sustain: 0, release: 0.2
  end

  define :get_sync_medium do
    use_synth_defaults amp: 2, attack: 0, sustain: 0.5, release: 0.5
  end

  define :get_sync_long do
    use_synth_defaults amp: 2, attack: 0, sustain: 1, release: 1
  end

  # the chords
  in_thread do
    with_fx :reverb, room: 0.3 do
      2.times do
        get_sync_short
        play my_a
        sleep 0.25
        play my_a
        sleep 0.75
        get_sync_long
        play my_a
        sleep 3
        get_sync_short
        play my_d
        sleep 0.25
        play my_d
        sleep 0.75
        play my_d
        sleep 1
        play my_a
        sleep 1
        play my_d
        sleep 1
      end
    end
  end

  # the bass line
  in_thread do
    2.times do
      with_synth :fm do
        use_synth_defaults attack: 0, sustain: 0.1, release: 0.1, cutoff: 70
        play_pattern_timed [:a2,:a2,:r,:a3,
                            :a2,:r,:r,:r,
                            :r,:r,:r,:r,
                            :r,:a2,:c3,:a2,
                            :d3,:d2,:r,:d2,
                            :d3,:r,:r,:r,
                            :r,:fs3,:d3,:a2,
                            :e3,:e2,:g2,:ab2
                            ], 0.25
      end
    end
  end # bass line

  # flitter
  define :flitter do
    use_synth :pretty_bell
    use_synth_defaults amp: 0.5,
      attack: 0.15,
      sustain: 0,
      release: 0.3
    play scale(:c5, :major_pentatonic, num_octaves: 2).choose
  end # flitter

  64.times do
    with_fx :reverb, room: 1 do
      control flitter, pan: [1,0.5,-0.5,-1].choose
      sleep 0.25
    end
  end

end # comment