5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
11 beziercurve bc1 5 5 5 0 5 -5 0 -5 -5 0 -5 5 0 5 5 0
20 catch {thrusections result ${issolid} ${isruled} v1 w1 v2 }
33 set nb_compound_good 0
36 set index [lsearch [whatis result] Closed]
38 puts "Faulty ${BugNumber} : result is not Closed shape"