[occt.git] / tests / bugs / mesh / bug25837_2

puts "========="
puts "CR25837: Bad triangulation when IGES loaded in meters"
puts "========="
puts ""

pload XDE

param xstep.cascade.unit M
newmodel

igesbrep [locate_data_file bug25837_S.igs] result *

vinit
vdisplay result
vfit
vsetdispmode 1

set x 200
set y 200
checkcolor $x $y 0 0 0

set area [triarea result 1.0e-4]
set t_area [lindex $area 0]
set g_area [expr abs([lindex $area 1])]
set r_area [expr $t_area/$g_area]

checkreal "Relative area" $r_area 1.0 0.01 0.0

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
dfdfa61f	1	puts "========="
7bd071ed	2	puts "CR25837: Bad triangulation when IGES loaded in meters"
dfdfa61f	3	puts "========="
dfdfa61f	4	puts ""
dfdfa61f	5
	6	pload XDE
	7
	8	param xstep.cascade.unit M
	9	newmodel
	10
	11	igesbrep [locate_data_file bug25837_S.igs] result *
	12
	13	vinit
	14	vdisplay result
	15	vfit
	16	vsetdispmode 1
	17
	18	set x 200
	19	set y 200
	20	checkcolor $x $y 0 0 0
	21
7bd071ed	22	set area [triarea result 1.0e-4]
	23	set t_area [lindex $area 0]
	24	set g_area [expr abs([lindex $area 1])]
	25	set r_area [expr $t_area/$g_area]
	26
	27	checkreal "Relative area" $r_area 1.0 0.01 0.0
	28
dfdfa61f	29	checkview -screenshot -3d -path ${imagedir}/${test_image}.png