2 puts "0029296: Data Exchange - implement import of mesh data from files in OBJ format"
3 puts "Reading small generated file."
6 set material_mtl {newmtl ObjMat1
14 set minimal_ascii_obj {mtllib A1_material.mtl
35 # Ascii MTL file, CRLF
36 set fd [open ${imagedir}/${casename}_material.mtl w]
37 fconfigure $fd -translation crlf
38 puts $fd $material_mtl
42 puts "#======================================================================"
43 puts "# Ascii file, CRLF"
44 puts "#======================================================================"
45 set fd [open ${imagedir}/${casename}_one_ascii_dos.obj w]
46 fconfigure $fd -translation crlf
47 puts $fd $minimal_ascii_obj
49 readobj mcrlf ${imagedir}/${casename}_one_ascii_dos.obj -singleFace
50 checknbshapes mcrlf -face 1
51 checktrinfo mcrlf -tri 16 -nod 10
54 puts "#======================================================================"
55 puts "# Ascii file with single facet, LF"
56 puts "#======================================================================"
57 set fd [open ${imagedir}/${casename}_one_ascii_unix.obj w]
58 fconfigure $fd -translation lf
59 puts $fd $minimal_ascii_obj
61 readobj mlf ${imagedir}/${casename}_one_ascii_unix.obj -singleFace
62 checknbshapes mlf -face 1
63 checktrinfo mlf -tri 16 -nod 10
67 vdisplay -dispMode 1 mlf
70 vdump ${imagedir}/${casename}_raw.png
72 # read OBJ into document
73 ReadObj D ${imagedir}/${casename}_one_ascii_unix.obj