[occt.git] / tests / bugs / modalg / bug140


puts "================"
puts "OCC140"
puts "================"
puts ""
#########################################################
## Fillet is created incorrectly on attached shape.
#########################################################

restore [locate_data_file shading_137.brep] s 
checkshape s

dset SCALE1 5
tscale s 0 0 0 SCALE1
explode s e
blend sh s  4.5*SCALE1 s_4  4.5*SCALE1 s_5  4.5*SCALE1 s_1
explode sh so

renamevar sh_1 result 
fsameparameter result

set square 3.65424e+06
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "================"
	3	puts "OCC140"
	4	puts "================"
	5	puts ""
	6	#########################################################
	7	## Fillet is created incorrectly on attached shape.
	8	#########################################################
	9
	10	restore [locate_data_file shading_137.brep] s
352ffd73	11	checkshape s
0e94a94e	12
	13	dset SCALE1 5
	14	tscale s 0 0 0 SCALE1
	15	explode s e
	16	blend sh s 4.5SCALE1 s_4 4.5SCALE1 s_5 4.5*SCALE1 s_1
	17	explode sh so
	18
	19	renamevar sh_1 result
	20	fsameparameter result
	21
	22	set square 3.65424e+06
	23	set 2dviewer 0