[occt.git] / tests / bugs / modalg_4 / bug779


puts "========"
puts "OCC779"
puts "========"
puts ""
################################
## Common operation produces invalid shape
################################

restore [locate_data_file OCC779_s1.brep] s1 
checkshape s1
restore [locate_data_file OCC779_s2.brep] s2 
checkshape s2

ttranslate s1 0 0 -30
prism s1p s1 0 0 70
checkshape s1p

bcommon result s1p s2

set square 64191.2
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========"
	3	puts "OCC779"
	4	puts "========"
	5	puts ""
	6	################################
	7	## Common operation produces invalid shape
	8	################################
	9
	10	restore [locate_data_file OCC779_s1.brep] s1
352ffd73	11	checkshape s1
f1aa2b62	12	restore [locate_data_file OCC779_s2.brep] s2
352ffd73	13	checkshape s2
f1aa2b62	14
	15	ttranslate s1 0 0 -30
	16	prism s1p s1 0 0 70
352ffd73	17	checkshape s1p
f1aa2b62	18
	19	bcommon result s1p s2
	20
	21	set square 64191.2
	22	set 2dviewer 0