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

puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang"
puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"

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
3cdfdc9a	1	puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang"
3cdfdc9a	2	puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"
0e94a94e	3
	4	puts "================"
	5	puts "OCC140"
	6	puts "================"
	7	puts ""
	8	#########################################################
	9	## Fillet is created incorrectly on attached shape.
	10	#########################################################
	11
	12	restore [locate_data_file shading_137.brep] s
352ffd73	13	checkshape s
0e94a94e	14
	15	dset SCALE1 5
	16	tscale s 0 0 0 SCALE1
	17	explode s e
	18	blend sh s 4.5SCALE1 s_4 4.5SCALE1 s_5 4.5*SCALE1 s_1
	19	explode sh so
	20
	21	renamevar sh_1 result
	22	fsameparameter result
	23
	24	set square 3.65424e+06
	25	set 2dviewer 0