[occt.git] / tests / bugs / moddata_2 / bug6450_1

puts "============"
puts "OCC6450"
puts "============"
puts ""
######################################################
# Cannot get common part of two parallel halfspaces
######################################################

set BugNumber OCC6450

plane pl 100 0 0 1 0 0
mkface f pl
halfspace so1 f 0 0 0
ttranslate f -200 0 0
halfspace so2 f 0 0 0
bcommon result so1 so2
if {[dtyp result] == ""} {
    puts "Faulty ${BugNumber}: operation failed"
} else {
    puts "OK ${BugNumber}"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
61c421bf	1	puts "============"
	2	puts "OCC6450"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Cannot get common part of two parallel halfspaces
	7	######################################################
	8
	9	set BugNumber OCC6450
	10
	11	plane pl 100 0 0 1 0 0
	12	mkface f pl
	13	halfspace so1 f 0 0 0
	14	ttranslate f -200 0 0
	15	halfspace so2 f 0 0 0
	16	bcommon result so1 so2
	17	if {[dtyp result] == ""} {
	18	puts "Faulty ${BugNumber}: operation failed"
	19	} else {
	20	puts "OK ${BugNumber}"
	21	}
	22
5747059b	23	checkview -display result -2d -path ${imagedir}/${test_image}.png
61c421bf	24