5 #################################################
6 # Revolution creates solid with degenerated edges shared among faces
7 #################################################
9 circle c1 0 -5 0 1 0 0 10
10 circle c2 0 5 0 1 0 0 10
18 revol r f12 0 0 0 0 0 1 180
28 if {[regexp "same shapes" [compare r_1_1 r_2_1]]} { puts "Error" }
31 if {[regexp "same shapes" [compare r_3_2 r_2_2]]} { puts "Error" }
38 checknbshapes g1 -edge 2
40 checknbshapes g2 -edge 1
42 checknbshapes g3 -edge 2