puts "TODO OCC27722 ALL: Faulty shapes in variables faulty_1 to faulty_" puts "TODO OCC27722 ALL: Error : is WRONG because number of " puts "========" puts "OCC27722" puts "========" puts "" ###################################### # STEP error for Ellipse revol shape ###################################### catch {exec rm ${imagedir}/bug27722.stp} ellipse ge 0 0 20 10 mkedge te ge 0 pi/2.0 revol re te 0 0 0 0 1 0 360 set i_Vertex 0 set i_Edge 0 set i_Wire 0 set i_Face 0 set i_Shell 0 set i_Solid 0 set i_CSolid 0 set i_Compound 0 set i_Shape 0 set bug_info [string trim [checkshape re]] if {$bug_info == "This shape seems to be valid"} { set nb_info [string trim [nbshapes re]] set i_Vertex [string trim [lindex $nb_info 7]] set i_Edge [string trim [lindex $nb_info 10]] set i_Wire [string trim [lindex $nb_info 13]] set i_Face [string trim [lindex $nb_info 16]] set i_Shell [string trim [lindex $nb_info 19]] set i_Solid [string trim [lindex $nb_info 22]] set i_CSolid [string trim [lindex $nb_info 25]] set i_Compound [string trim [lindex $nb_info 28]] set i_Shape [string trim [lindex $nb_info 31]] } else { puts "ERROR: Problem of test case functionality. Should be additionally investigated." } stepwrite a re ${imagedir}/bug27722.stp stepread ${imagedir}/bug27722.stp sr * checkshape sr_1 checknbshapes sr_1 -vertex ${i_Vertex} -edge ${i_Edge} -wire ${i_Wire} -face ${i_Face} -shell ${i_Shell} -solid ${i_Solid} -compsolid ${i_CSolid} -compound ${i_Compound} -shape ${i_Shape}