0026106: BRepMesh - revision of data model
[occt.git] / tests / bugs / mesh / bug25837_2
1 puts "========="
2 puts "CR25837: Bad triangulation when IGES loaded in meters"
3 puts "========="
4 puts ""
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
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
29 checkview -screenshot -3d -path ${imagedir}/${test_image}.png