|
|
a tiny Tcl script to calculate the average density of a given DF3 file,
quickly written to demonstrate .. fringe benefits. :-)
assumes 'spiral.df3' (from the POV-Ray sources) in the current working directory
(or a link).
jr@crow:1:demo$ c### [at] voxavgtcl
# voxavg.tcl - average density of DF3.
set n 0
set t 0
foreach {x y z v} [read stdin] {
incr n
incr t $v
}
set avg [expr {($t + 0.0) / $n}]
puts [format {read %d voxels, total %d, average density %g.} $n $t $avg]
jr@crow:2:demo$ df3util -o tcl list spiral . . | tclsh voxavg.tcl
read 12500 voxels, total 171009, average density 13.6807.
enjoy, jr.
Post a reply to this message
|
|