home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / Rocky / Dexter5.wwModel / noiseTest.tcl < prev    next >
Encoding:
Text File  |  1995-03-22  |  1.1 KB  |  41 lines
  1. proc testNoise {{iMax 100} {jMax 100} {filename /tmp/noiseInfo}} {
  2.   set fileid [open $filename w]
  3.   for {set i 0} {$i < $iMax} {incr i} {  
  4.     for {set j 0} {$j < $jMax} {incr j} {
  5.       set u $i.$j; puts $fileid "($u) [expr {noise($u, $u, $u)}]"
  6.     }
  7.   }
  8.   close $fileid
  9. }
  10.  
  11. proc testGVNoise {{iMax 100} {jMax 100} {filename /tmp/gvnoiseInfo}} {
  12.   set fileid [open $filename w]
  13.   for {set i 0} {$i < $iMax} {incr i} {  
  14.     for {set j 0} {$j < $jMax} {incr j} {
  15.       set u $i.$j; puts $fileid "($u) [expr {gvnoise($u, $u, $u)}]"
  16.     }
  17.   }
  18.   close $fileid
  19. }
  20.  
  21. proc testSCNoise {{iMax 100} {jMax 100} {filename /tmp/scnoiseInfo}} {
  22.   set fileid [open $filename w]
  23.   for {set i 0} {$i < $iMax} {incr i} {  
  24.     for {set j 0} {$j < $jMax} {incr j} {
  25.       set u $i.$j; puts $fileid "($u) [expr {scnoise($u, $u, $u)}]"
  26.     }
  27.   }
  28.   close $fileid
  29. }
  30.  
  31. proc testVCNoise {{iMax 100} {jMax 100} {filename /tmp/vcnoiseInfo}} {
  32.   set fileid [open $filename w]
  33.   for {set i 0} {$i < $iMax} {incr i} {  
  34.     for {set j 0} {$j < $jMax} {incr j} {
  35.       set u $i.$j; puts $fileid "($u) [expr {vcnoise($u, $u, $u)}]"
  36.     }
  37.   }
  38.   close $fileid
  39. }
  40.  
  41.