home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / DEMO / PRG / CWALKPRO.ZIP / DISK1 / VELPCT.CA_ / VELPCT.bin
Encoding:
Text File  |  1994-06-21  |  545 b   |  28 lines
  1. ;; VELPCT.CAL
  2. ;;
  3. ;; This is a sample CAL program that implements an editing command to
  4. ;; scale note velocities by a certain percentage.
  5. ;;
  6. ;; Demonstrates:
  7. ;;
  8. ;;   (forEachEvent)
  9. ;;   Getting input from the user
  10. ;;   Arithmetic operators
  11. ;;   Event kind and parameter variables
  12.  
  13. (do
  14.     (include "need20.cal")    ; Require version 2.0 or higher of CAL
  15.  
  16.     (int percent 100)
  17.     (getInt percent "Percentage?" 1 1000)
  18.  
  19.     (forEachEvent
  20.         (if (== Event.Kind NOTE)
  21.             (do
  22.                 (*= Note.Vel percent)
  23.                 (/= Note.Vel 100)
  24.             )
  25.         )
  26.     )
  27. )
  28.