[occt.git] / tests / bugs / modalg / buc60789_2


puts "========"
puts "BUC60789"
puts "========"
puts ""

#restore buc60789c.brep S1
##by apn
restore [locate_data_file buc60787b.brep] S1 
checkshape S1
restore [locate_data_file buc60789d.brep] S2
checkshape S2

bcut result S2 S1

set nb_info [nbshapes result]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed

 if { $ve != 0 && $ed != 0 } {
     puts  " BUC60789 OK: CUT operation was made properly"
 } else {
     puts "Faulty BUC60789: CUT operation was made wrongly"
 }
set length 288.856
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "========"
	3	puts "BUC60789"
	4	puts "========"
	5	puts ""
	6
	7	#restore buc60789c.brep S1
	8	##by apn
	9	restore [locate_data_file buc60787b.brep] S1
352ffd73	10	checkshape S1
a87752f3	11	restore [locate_data_file buc60789d.brep] S2
352ffd73	12	checkshape S2
a87752f3	13
	14	bcut result S2 S1
	15
	16	set nb_info [nbshapes result]
	17	regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
	18	regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
	19
	20	if { $ve != 0 && $ed != 0 } {
	21	puts " BUC60789 OK: CUT operation was made properly"
	22	} else {
	23	puts "Faulty BUC60789: CUT operation was made wrongly"
	24	}
	25	set length 288.856
	26	set 2dviewer 0