puts "========" puts "OCC27322" puts "========" puts "" #################################################### # geom/revolution_00/A1: Incorrect pcurve creation #################################################### restore [locate_data_file bug27325_edge.brep] en restore [locate_data_file bug27325_face.brep] f bhaspc en f do mk2dcurve c1 en f explode f e mk2dcurve c2 f_3 f 2dcvalue c1 0.0025 x y set log [2dproj c2 x y] if { ![regexp {ext_} $log ] } { puts "Error: empty projection" } elseif { ![regexp {point} [whatis ext_1] ] } { puts "ERROR: OCC27322 is reproduced. Incorrect pcurve creation: too long from the source one" }