puts "========"
puts "0026338: STL export (especially binary) needs a lot of time if selected export path is not local"
puts "========"
puts ""

# make sphere triangulated with 2M triangles
sphere s 10
tessellate result s 1000 1000
trinfo result

# write to ascii STL
dchrono s restart
writestl result $imagedir/${casename}-ascii.stl 0
dchrono s stop counter writestl
set aFileSize [file size $imagedir/${casename}-ascii.stl]
if {$aFileSize < 490000000} {
  puts "Error: unexpected file size"
} else {
  file delete -force $imagedir/${casename}-ascii.stl
}