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

puts "============"
puts "OCC26316"
puts "============"
puts ""
###############################
## Infinite modification of the shapes in General Fuse operation
###############################

restore [locate_data_file bug26316_shape1.brep] b1
restore [locate_data_file bug26316_shape2.brep] b2

bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbuild r
 
explode r so
 
bclearobjects
bcleartools
baddobjects r_1
baddtools r_2
bfillds
bbuild r1

explode r1 so

set info1 [compare r_1 r1_1]

set info2 [compare r_2 r1_2]

if { [regexp "same shapes" $info1] == 1  } {
    puts "OK: r_1 and r1_1 shapes are equal"
} else {
    puts "Error : r_1 and r1_1 shapes are not equal"
}

if { [regexp "same shapes" $info2] == 1  } {
    puts "OK: r_2 and r1_2 shapes are equal"
} else {
    puts "Error : r_2 and r1_2 shapes are not equal"
}

smallview
fit
xwd ${imagedir}/${test_image}.png
Commit	Line	Data
e9e644ed	1	puts "============"
	2	puts "OCC26316"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Infinite modification of the shapes in General Fuse operation
	7	###############################
	8
	9	restore [locate_data_file bug26316_shape1.brep] b1
	10	restore [locate_data_file bug26316_shape2.brep] b2
	11
	12	bclearobjects
	13	bcleartools
	14	baddobjects b1
	15	baddtools b2
	16	bfillds
	17	bbuild r
	18
	19	explode r so
	20
	21	bclearobjects
	22	bcleartools
	23	baddobjects r_1
	24	baddtools r_2
	25	bfillds
	26	bbuild r1
	27
	28	explode r1 so
	29
	30	set info1 [compare r_1 r1_1]
	31
	32	set info2 [compare r_2 r1_2]
	33
	34	if { [regexp "same shapes" $info1] == 1 } {
	35	puts "OK: r_1 and r1_1 shapes are equal"
	36	} else {
	37	puts "Error : r_1 and r1_1 shapes are not equal"
	38	}
	39
	40	if { [regexp "same shapes" $info2] == 1 } {
	41	puts "OK: r_2 and r1_2 shapes are equal"
	42	} else {
	43	puts "Error : r_2 and r1_2 shapes are not equal"
	44	}
	45
	46	smallview
	47	fit
	48	xwd ${imagedir}/${test_image}.png