;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-
;;; -*- syntax: Lisp; font-size: 16; line-numbers: no; -*-

;trying to fix longdurs supplanting et's

631 points


(define headings (make-cycle '(
 258.6 299.5 334.1 38.5 318.5 210.3 215.1 255.5 210.3 221.3 270 297.6 320.2 188.9 239.5 285.7 277 254.2 212.4 
209.8 172.1 191.1 308 327.1 242.8 111.3 161.9 329.3 163.5 168.7 
)))


(define slopes (make-cycle '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30)))

(define speeds (make-cycle '(.125 .125 .125 .125 .125  .25 .25 .25 .25 .25  .5 .5 .5 .5 .5 .75 .75 .75 .75 .75  1 1 1 1 1 1.5 1.5 1.5 1.5 1.5 )))



(define (ruby4 zeronote fullcirclenote shortestnote longestnote quantVal longdurs longdurchanceenv datapoints)
(let* (
       (longdurs longdurs)
       (datapoints datapoints)
       (shortestnote shortestnote)
       (longestnote longestnote)
       (longdurchanceenv longdurchanceenv)
       (quantVal quantVal)
       (count 0)
       (newkey 0)
       (thelongdur 0)
       (longdurchance 0)
       (thecase 0)
       (theslope 0)
       (outrhythm 0)
       (start-time 0)
       (thedurpick 0)
       (waittime 0)
       (thespeed 0)
       (thedur 0)
       (theheading 0)
       (theamp 0)
       (zeronote zeronote)
       (fullcirclenote fullcirclenote)
       )

 (process repeat datapoints
   do

   (set! theslope (next slopes))
   (cond 
      ((and (>= theslope -5) (<= theslope -1))
      (begin
        (print "chose case 0")
        (set! thecase 0)
         ));normal
     
     ((and (>= -6 theslope) (<= theslope -10))
      (begin
        (print "chose case 1")
        (set! thecase 1)
      ));pizz
      
      ((and (>= theslope -11 ) (<= theslope -15))
      (begin
        (print "chose case 2")
        (set! thecase 2)
      )) ; M3 sing 
     
     ((and (>= theslope -16) (<= theslope -20))
      (begin
        (print "chose case 3")
        (set! thecase 3)
      )) ;martele
     
     ((and (>= theslope -21 ) (<= theslope -25))
      (begin
        (print "chose case 4")
        (set! thecase 4)
      )) ;M2 for sul pont
     
     ((and (>= theslope -26) (< theslope -30))
      (begin
        (print "chose case 5")
        (set! thecase 5)
        )) ;col legno
     )



 
 append
  
   (set! longdurchance  (interp count longdurchanceenv))
   (if (<= (random longdurchance) 1)
     (begin
       (set! thedurpick (floor (interp count 0 0 631 (- (length longdurs) 1 ))))
       (set! thelongdur (nth longdurs thedurpick))
       (mp:midi :time start-time :key (pick 28 29) :dur (quantize thelongdur quantVal) :amp 1 :chan 0) 
       (mp:midi :time start-time :key newkey :dur (quantize thelongdur quantVal) :amp (between 0.6 0.75) :chan 1)
       (mp:midi :time start-time :key (+ newkey (pick 8 9)) :dur (quantize thelongdur quantVal) :amp (between 0.6 0.75)  :chan 1)
       (set! start-time (+ start-time thelongdur))
       )
     )
   (set! outrhythm .5)
   (set! theheading (next headings))
   (set! newkey (floor (rescale theheading 0 359.4 zeronote fullcirclenote)))
   (set! theamp (between 0.6 0.75))
   
   (case thecase 
         ((0)
          (print "IN CASE 0")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0);normal E0 and F0
          (mp:midi :time start-time :key  newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
         )
         
         ((1)
          (print "IN CASE 1-pizz")
          (mp:midi :time start-time :key 90 :dur outrhythm :amp theamp :chan 0) ;pizz
          (mp:midi :time start-time :key  newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         
         ((2)
          (print "IN CASE 2")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0) ;normal
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (mp:midi :time start-time :key (+ 4 newkey) :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         
         ((3)
          (print "IN CASE 3")
          (mp:midi :time start-time :key 89  :dur outrhythm :amp theamp :chan 0) 
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          ) 
         
         ((4)
          (print "IN CASE 4")
          (mp:midi :time start-time :key (pick 28 29) :dur outrhythm :amp theamp :chan 0);normal E0 and F0
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1) 
          (mp:midi :time start-time :key (+ 2 newkey) :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          ) 
         
         ((5) 
          (print "IN CASE 5")
          (mp:midi :time start-time :key 91 :dur outrhythm :amp theamp :chan 0) 
          (mp:midi :time start-time :key newkey :dur outrhythm :amp theamp :chan 1)
          (set! start-time (+ start-time outrhythm))
          )
         )
   )
 )
)


(sprout (ruby4 36 82         .125              1         .125     '(2 1 .75 1 2) '(0 1000 630 1000 ) 100))