[occt.git] / tests / bugs / moddata / bug49_2


puts "========"
puts "OCC49"
puts "========"

pload QAcommands

pcylinder c 10 20
box b 10 10 10
bcut b_c_cut b c
checkshape b_c_cut

set result [OCC49 b_c_cut]

if {$result == 1} {
   puts "Error : OCC49"
} else {
   puts "OCC49: OK"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "OCC49"
	4	puts "========"
	5
	6	pload QAcommands
	7
	8	pcylinder c 10 20
	9	box b 10 10 10
	10	bcut b_c_cut b c
	11	checkshape b_c_cut
	12
	13	set result [OCC49 b_c_cut]
	14
	15	if {$result == 1} {
	16	puts "Error : OCC49"
	17	} else {
	18	puts "OCC49: OK"
	19	}
	20
	21	set 2dviewer 0