home *** CD-ROM | disk | FTP | other *** search
- proc testNoise {{iMax 100} {jMax 100} {filename /tmp/noiseInfo}} {
- set fileid [open $filename w]
- for {set i 0} {$i < $iMax} {incr i} {
- for {set j 0} {$j < $jMax} {incr j} {
- set u $i.$j; puts $fileid "($u) [expr {noise($u, $u, $u)}]"
- }
- }
- close $fileid
- }
-
- proc testGVNoise {{iMax 100} {jMax 100} {filename /tmp/gvnoiseInfo}} {
- set fileid [open $filename w]
- for {set i 0} {$i < $iMax} {incr i} {
- for {set j 0} {$j < $jMax} {incr j} {
- set u $i.$j; puts $fileid "($u) [expr {gvnoise($u, $u, $u)}]"
- }
- }
- close $fileid
- }
-
- proc testSCNoise {{iMax 100} {jMax 100} {filename /tmp/scnoiseInfo}} {
- set fileid [open $filename w]
- for {set i 0} {$i < $iMax} {incr i} {
- for {set j 0} {$j < $jMax} {incr j} {
- set u $i.$j; puts $fileid "($u) [expr {scnoise($u, $u, $u)}]"
- }
- }
- close $fileid
- }
-
- proc testVCNoise {{iMax 100} {jMax 100} {filename /tmp/vcnoiseInfo}} {
- set fileid [open $filename w]
- for {set i 0} {$i < $iMax} {incr i} {
- for {set j 0} {$j < $jMax} {incr j} {
- set u $i.$j; puts $fileid "($u) [expr {vcnoise($u, $u, $u)}]"
- }
- }
- close $fileid
- }
-
-