5 ###################################################
6 ## ShapeFix_Wire::FixSelfIntersection does not fix 3d curves on planes
7 ###################################################
11 restore [locate_data_file OCC884.brep] a
20 set list_3 [length $c3d]
21 set list_4 [length $c2d]
23 # len2 is the length of 3d curve
24 regexp {The length c3d is +([-0-9.+eE]+)} $list_3 full len2
26 # len1 is the length of 2d curve
27 regexp {The length c2d is +([-0-9.+eE]+)} $list_4 full len1
30 set percent [expr abs(${len2} - ${len1}) / double(${len1}) * 100.]
34 puts "percent = ${percent}"
36 if {${percent} > ${percent_max}} {