0031274: Data Exchange - RWObj_Reader ignores usemtl with empty name
[occt.git] / tests / de_mesh / obj_read / usemtl
1 puts "========"
2 puts "0031274: Data Exchange - RWObj_Reader ignores usemtl with empty name"
3 puts "========"
4
5 set material_mtl {newmtl Red
6 Kd 1.0 0.0 0.0
7 newmtl Green
8 Kd 0.0 1.0 0.0
9 newmtl Blue
10 Kd 0.0 0.0 1.0}
11
12 set ml_obj {
13 mtllib usemtl_material.mtl
14 v 0 0 0
15 v 2 0 0
16 v 2 1 0
17 v 1 2 0
18 v 0 1 0
19 v 0 0 2
20 v 2 0 2
21 v 2 1 2
22 v 1 2 2
23 v 0 1 2
24 g Red
25 usemtl Red
26 f 5 4 3 2 1
27 g Gren
28 usemtl Green
29 f 7 8 9 10 6
30 g Blue
31 usemtl Blue
32 f 10 9 4 5
33 g Gray
34 usemtl
35 f 9 8 3 4
36 f 6 10 5 1
37 f 2 3 8 7
38 f 1 2 7 6}
39
40 set fd [open ${imagedir}/${casename}_material.mtl w]
41 fconfigure $fd -translation lf
42 puts $fd $material_mtl
43 close $fd
44
45 set fd [open ${imagedir}/${casename}.obj w]
46 fconfigure $fd -translation lf
47 puts $fd $ml_obj
48 close $fd
49
50 ReadObj D ${imagedir}/${casename}.obj
51 XGetOneShape s D
52
53 explode s
54 set md [XGetVisMaterial D s_4]
55 if { [string trimright $md] != "EMPTY" } { puts "Error: EMPTY material is expected for last group" }