;;
;;
;; randvel.cal
;;
;;
;; A sort of "velocity un-quantize" command.
;; Changes velocity by a percentage.
;;

;; Prolog
;;
(do
  (dword work)
  (int percent 25)
  (int lobound)
  (int upbound)
  (int ofs)

  (getInt percent "Change velocities by what percentage?" 0 200)
)


;; Body
(do
  (if (== Event.Kind NOTE)
    (do
      (= work (* Note.Vel percent))
      (/= work 100)
      (= upbound work)
      (= lobound (* work -1))
      (= ofs (random lobound upbound))
      (+= Note.Vel ofs)
    )
    NIL
  )
)

;; Epilog
NIL