[occt.git] / tests / bugs / modalg_2 / bug238_1

puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
puts "TODO OCC12345 ALL: Error : The length of result shape is"
puts "========================"
puts " OCC238 "
puts "========================"

#################################################
## puts "  BOPCOMMON   case_2_solid.brep and case_2_edge1.brep"
#################################################
puts " " 
puts [restore [locate_data_file OCC238a.brep] a] 
puts [restore [locate_data_file case_2_edge1.brep] b]
puts [bop a b]
puts [bopcommon result b a]

explode result v
explode a e
distmini di result_1 a_3 
regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
if { [expr $dis > 1.e-5] } {
    puts "Faulty : Result shape is WRONG !!!" 
} else {
    puts " Result shape is COMPLITE"
}

set nb_v_good 14
set nb_e_good 7
set length 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
	2	puts "TODO OCC12345 ALL: Error : The length of result shape is"
	3	puts "========================"
	4	puts " OCC238 "
	5	puts "========================"
	6
	7	#################################################
	8	## puts " BOPCOMMON case_2_solid.brep and case_2_edge1.brep"
	9	#################################################
	10	puts " "
	11	puts [restore [locate_data_file OCC238a.brep] a]
	12	puts [restore [locate_data_file case_2_edge1.brep] b]
	13	puts [bop a b]
	14	puts [bopcommon result b a]
	15
a87752f3	16	explode result v
	17	explode a e
	18	distmini di result_1 a_3
f1aa2b62	19	regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
a87752f3	20	if { [expr $dis > 1.e-5] } {
	21	puts "Faulty : Result shape is WRONG !!!"
	22	} else {
	23	puts " Result shape is COMPLITE"
	24	}
	25
355c1551	26	set nb_v_good 14
355c1551	27	set nb_e_good 7
a87752f3	28	set length 0
a87752f3	29	set 2dviewer 0