Nb input atoms : 4169

Do it once !
nb coords vertex 1568016
nb coords normal 1568016
<pre>wrong # args: should be "exit code"
    while executing
"exit"
    (in namespace eval "::request" script line 23)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/home/moumou/tcl8.6b1/lubin/bin/tclsh8.6

package require tsurf

set Laai [list]
set Rad 20
for {set i -$Rad} {$i <= $Rad} {incr i 2} {
    for {set j -$Rad} {$j <= $Rad} {incr j 2} {
	for {set k -$Rad} {$k <= $Rad} {incr k 2} {
	    if {($i*$i + $j*$j +$k*$k) <= $Rad*$Rad} {
		lappend Laai [list "$i.0" "$j.0" "$k.0" 29 1]
	    }
	}
    }
}
puts "\nNb input atoms : [llength $Laai]"

puts "\nDo it once !"
set res [tsurf -sample 3 -expand 1 -contract 1 -smooth -filter 7 -connolly $Laai]
lassign $res Lvec Lnrm
puts "nb coords vertex [llength $Lvec]"
puts "nb coords normal [llength $Lnrm]"
exit

</pre>