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

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

puts "========================"
puts "OCC625"
puts "========================"
puts ""
###############################################################################
## Created filler looks strange (see attached picture) in spite of checkshapes told about correct source and result shapes.
###############################################################################

pload QAcommands

restore [locate_data_file OCC625.brep] a 
checkshape a

tclean a
explode a e

blend res1 a 10 a_22 10 a_14
blend result res1 10 a_17 10 a_4
checkshape result

vinit
vdisplay result
vfit
vsetdispmode result 1

set x_coord 116
set y_coord 252

checkcolor $x_coord $y_coord 0.82 0.58 0.09

checkprops result -s 19977 
checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
3cdfdc9a	1	puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang"
	2	puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
	3
f1aa2b62	4	puts "========================"
	5	puts "OCC625"
	6	puts "========================"
	7	puts ""
	8	###############################################################################
7b5e532f	9	## Created filler looks strange (see attached picture) in spite of checkshapes told about correct source and result shapes.
f1aa2b62	10	###############################################################################
	11
	12	pload QAcommands
	13
	14	restore [locate_data_file OCC625.brep] a
352ffd73	15	checkshape a
f1aa2b62	16
f1aa2b62	17	tclean a
	18	explode a e
	19
	20	blend res1 a 10 a_22 10 a_14
	21	blend result res1 10 a_17 10 a_4
352ffd73	22	checkshape result
f1aa2b62	23
	24	vinit
	25	vdisplay result
	26	vfit
	27	vsetdispmode result 1
	28
f1aa2b62	29	set x_coord 116
	30	set y_coord 252
	31
	32	checkcolor $x_coord $y_coord 0.82 0.58 0.09
	33
58cf74e0	34	checkprops result -s 19977
5747059b	35	checkview -display result -3d -path ${imagedir}/${test_image}.png