home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / spec / oz'sound.tcl
Text File  |  2005-10-29  |  718b  |  32 lines
  1. namespace ozqSound {
  2.     proc New {filename} {
  3.         return [::new oz'sound $name]
  4.     }
  5.  
  6.     proc NewFX {vname filename} {
  7.         upvar $vname v
  8.         if ![info exists $v] {
  9.            set v [::new oz'sound $name]
  10.             oz'sound::volume $v $::config::soundfx::volume
  11.             oz'sound::streaming $v 0
  12.         }
  13.     }
  14.  
  15.     proc Position {this x y z} {
  16.         oz'event {oz'sound::position $this $x $y $z}
  17.     }
  18.  
  19.     proc ReferenceDistance {this d} {
  20.         oz'event {oz'sound::reference_distance $this $d}
  21.     }
  22.  
  23.     proc Repeat {this value} {
  24.         oz'event {oz'sound::repeat $this $value}
  25.     }
  26.  
  27.     proc Play {this} {
  28.         oz'event {oz'sound::play $this}
  29.     }
  30. }
  31.  
  32.