puts "=============================="
puts "Prs3d_ToolTorus - create torus"
puts "=============================="

pload MODELING VISUALIZATION
vclear
vinit View1

# complete torus
vtorus t1 10 5 
vlocation t1 -translate 0 0 20

# torus segment
vtorus t2 10 5 270
vlocation t2 -translate -20 -20 -20

# torus ring segment
vtorus t3 10 5 180 360
vlocation t3 -translate 20 20 -20

vfit
vdump $imagedir/${casename}.png