1 puts "================"
3 puts "================"
5 #######################################################################
6 # Revolution of a wire generates two interfered faces
7 #######################################################################
9 vertex v1 23.500000 11.123000 0
10 vertex v2 22.000000 11.140900 0
11 vertex v3 20.500000 11.180700 0
15 revol r w 0 0 0 1 0 0 360
19 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
20 puts "Error : Revolution works wrong"
22 puts "OK: Revolution works properly"