piokos

;;;Piotr Kościuszko
(define series '(40 45 47 49))
(define scale (transpose '(40 42 44 45 47 49 51 52) 24))
(define tremolo '(76 78 80 83))
(mp:instruments 0 73 40)

(define (piano_part series)
  (process repeat 1
       do
       (mp:midi :key (pick (shuffle series)) :dur 1.3 :amp .6)
       ))


(define (violin_part scale)
  (process repeat (between 2 6)
           do
           (let ((t (pick 0.6 1.2 0.3 0.6)))
           (mp:midi :key (pick scale) :chan 1 :amp 0.7  :dur t)
           (wait t)
           )))

(define (violin_tremolo tremolo)
  (process repeat 2
           do
           (mp:midi :key (pick tremolo) :chan 2 :amp 0.4 :dur 0.17)
           ))


(define (play_tremolo tremolo)
  (process repeat 1000
           do
           (sprout (violin_tremolo tremolo))
           (wait 0.15)
           ))




(define (play_piano series)
  (process repeat 100
          do
          (sprout (piano_part series))
          (wait 1.2)
          ))

(define (play_violin scale)
  (process repeat 50
           do
           (sprout (violin_part scale))
           (wait 2.4)))



(sprout (list (play_piano series) (play_violin scale) (play_tremolo tremolo) (play_violin scale)))