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" }