C Major Chord in Impromptu

c_major_Impromptu.csm

; C Major Chord
; By Gilberto Avalos

; Clear all
(au:clear-graph)

; Define piano instrument
(define piano (au:make-node "aumu" "dls " "appl"))
(au:connect-node piano 0 *au:output-node* 0)
(au:update-graph)

; Variables
(define initialNote 48)
(define scales 3)

; Internal Variables
(define note initialNote)
(define notes 0)

; Play function
(define play
   (lambda ()
      (if (and (= notes 0) (> note 48) )
        (set! note (+ note 1))
      )
     
      (if (= notes 2)
        (set! notes -1)
      )
    
      (print "Play Note" note notes)
    
      ; Play note
      (play-note (now) piano note 100 10000)
    
      (if (< notes 1)
        (set! note (+ note 4))
      )
     
      (if (= notes 1)
        (set! note (+ note 3))
      )
    
      (set! notes (+ notes 1))
   )
)

; Loop function
(define loop
  (lambda ()
    
    ; Call Play 
    (play)
    
    ; If note < max scales
    (if (< note (+ initialNote (* 12 scales) ) )
      (callback (+ (now) (* 0.20 *second*)) loop)
    )

    ; End of scale
    (if (= note (+ (+ initialNote (* 12 scales) 4) ))
        (print "Fin")
    ) 
  )
)
 
; Call loop
(loop)