[occt.git] / tests / bugs / modalg_6 / bug27322

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
2dproj c2 x y

set bug_info [string trim [length ext_1]]
set bug_info [string trim [string range $bug_info [expr {[string last " " $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
if {$bug_info >= 1.e-9} {
  puts "ERROR: OCC27322 is reproduced. Incorrect pcurve creation."
}
Commit	Line	Data
8f8398f6	1	puts "========"
	2	puts "OCC27322"
	3	puts "========"
	4	puts ""
	5	####################################################
	6	# geom/revolution_00/A1: Incorrect pcurve creation
	7	####################################################
	8
	9	restore [locate_data_file bug27325_edge.brep] en
	10	restore [locate_data_file bug27325_face.brep] f
	11
	12	bhaspc en f do
	13	mk2dcurve c1 en f
	14	explode f e
	15	mk2dcurve c2 f_3 f
	16	2dcvalue c1 0.0025 x y
	17	2dproj c2 x y
	18
	19	set bug_info [string trim [length ext_1]]
	20	set bug_info [string trim [string range $bug_info [expr {[string last " " $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
	21	if {$bug_info >= 1.e-9} {
	22	puts "ERROR: OCC27322 is reproduced. Incorrect pcurve creation."
	23	}