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

puts "======="
puts "OCC28795"
puts "======="
puts ""
##################################################
# Boolean operations corrupt the p-curve of the source planar face if "non-destructive" option is switched off
##################################################

set expected [list {UMin 0.0} {UMax 1.0} {VMin -2e+100} {VMax 0.0}]

box mb -0.5 -0.5 -0.5 1 1 1
explode mb F
prism pryz mb_1 1 0 0 SemiInf
box ab 0 -1 -1 2 2 2

explode ab f
explode pryz f

set bounds [xbounds pryz_1]
# check for expected result
for {set i 0} {$i < 4} {incr i} {
  checkreal "[lindex $expected $i 0]" [lindex $bounds $i] [lindex $expected $i 1] 0.0 1.0e-7
}

# Make a simple Boolean operation, e.g. "bsection"
bsection rs ab_2 pryz_1

set bounds [xbounds pryz_1]
# check for expected result
for {set i 0} {$i < 4} {incr i} {
  checkreal "[lindex $expected $i 0]" [lindex $bounds $i] [lindex $expected $i 1] 0.0 1.0e-7
}
Commit	Line	Data
b7a71e36	1	puts "======="
	2	puts "OCC28795"
	3	puts "======="
	4	puts ""
	5	##################################################
	6	# Boolean operations corrupt the p-curve of the source planar face if "non-destructive" option is switched off
	7	##################################################
	8
	9	set expected [list {UMin 0.0} {UMax 1.0} {VMin -2e+100} {VMax 0.0}]
	10
	11	box mb -0.5 -0.5 -0.5 1 1 1
	12	explode mb F
	13	prism pryz mb_1 1 0 0 SemiInf
	14	box ab 0 -1 -1 2 2 2
	15
	16	explode ab f
	17	explode pryz f
	18
	19	set bounds [xbounds pryz_1]
	20	# check for expected result
	21	for {set i 0} {$i < 4} {incr i} {
	22	checkreal "[lindex $expected $i 0]" [lindex $bounds $i] [lindex $expected $i 1] 0.0 1.0e-7
	23	}
	24
	25	# Make a simple Boolean operation, e.g. "bsection"
	26	bsection rs ab_2 pryz_1
	27
	28	set bounds [xbounds pryz_1]
	29	# check for expected result
	30	for {set i 0} {$i < 4} {incr i} {
	31	checkreal "[lindex $expected $i 0]" [lindex $bounds $i] [lindex $expected $i 1] 0.0 1.0e-7
	32	}