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

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
trotate f 0 0 0 0 0 1 45
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	trotate f 0 0 0 0 0 1 45
	16	halfspace so2 f 0 0 0
	17	bcommon result so1 so2
	18	if {[dtyp result] == ""} {
	19	puts "Faulty ${BugNumber}: operation failed"
	20	} else {
	21	puts "OK ${BugNumber}"
	22	}
	23
5747059b	24	checkview -display result -2d -path ${imagedir}/${test_image}.png