dfdfa61f |
1 | puts "=========" |
7bd071ed |
2 | puts "CR25837: Bad triangulation when IGES loaded in meters" |
dfdfa61f |
3 | puts "=========" |
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 |