5 ######################################################
6 # Four and more points at least on curve
7 ######################################################
11 restore [locate_data_file bug21645_Scale1_so1_f3.brep] result
24 set ll [triepoints result]
25 set nbpoints [llength $ll]
28 ## number of discretization points (triepoints command) with fix
29 ## must be less than number on clear occ651
32 if {$nbpoints <= $good_trip} {
40 puts "$BugNumber: Faulty"
43 set square 2.04205e-08