Steps

[Under Unix environment]

  1. Get 'wave2lisp' from the web page and activate it in your home directory. For example,
    2.       [cmn31 unjung] ~> chmod u+x wave2lisp
  2. Run 'wave2lisp' with its last argument--a sound file (.aiff). For example, type as follows. 
    3.       [cmn31 unjung] ~> ~/sms/wave2lisp  /usr/ccrma/snd/fujishim/mus220b/l-uaa-mix2.aiff
                                         -----------------------------------------------
                                                filename

    ** The analyzed sound files are located in '/usr/ccrma/snd/fujishim/mus220b/sms' directory.

  3. .aiff file is converted to .lisp file showing the following process. 
    4.       converting /usr/ccrma/snd/fujishim/mus220b/l-uaa-mix3.aiff to ~/wave2lisp_work21061.snd...
      done.
      doing smsAnal with parameters for filetype = a = ...
      (This takes tens of minutes)
      0.00 0.17 0.33 0.50 0.67 0.83 1.00 1.17 1.33 1.50 1.67 1.83 2.00 2.17 2.33
      2.50 2.67 2.83 3.00 3.17 3.33 3.50 3.67 3.83 4.00 4.17 4.33 4.50 4.67 4.83
      5.00 5.17 mv: `/user/u/unjung/l-uaa-mix3.lisp' and `./l-uaa-mix3.lisp' are
      the same file
      mv: `/user/u/unjung/l-uaa-mix3.sms' and `./l-uaa-mix3.sms' are the
      same file
      want to clear working .snd file? (y/n)


  4. Type 'n'

[Under CLM environment]

  1. Load 'ATS/all.lisp' as follows. 
    2.       
      (load "ATS/all.lisp")
  2. Load the converted file, which has .lisp extension. For example, 
    3.       
      (load "l-uaa-mix3.lisp")

    This will create a new variable named 'l-uaa-mix3' whose content is the sound data.

  3. Load 'playit.lisp' as follows. 
    4.      
      (load "playit.lisp")
  4. Execute 'playit' on the sound data as follows. 
    5.      
      (playit l-uaa-mix3)


    ----------------------------------------------

  5. Load 'steady-sound.lisp' as follows. 
    6.      
      (load "steady-sound.lisp")
  6. Execute 'steady-sound' on the sound data as follows. 
    7.      
      (steady-sound l-uaa-mix3 :new-game 'l-uaa-steady)

    -----------------------------------------------

  7. Load 'loops.lisp' as follows. 
    8.      
      (load "loops.lisp")
  8. Execute 'loop-sound' on the sound data as follows. 
    9.      
      (loop-sound l-uaa-steady 12 :new-sound 'l-uaa-steady-loop)

    ------------------------------------------------

  9. Load 'express.lisp' as follows. 
    10.      
      (load "express.lisp")
  10. Execute 'vibrato-sound' on the sound data as follows. 
    11.      
      (vibrato-sound l-uaa-steady-loop vdepth vrate vdexp vrexp fadein fadeout 
      :new-sound 'l-uaa-steady-loop-vibrato)

    Unjung Nam

    Last modified: Tue Mar 3 02:34:54 PST