0030700: Visualization, TKOpenGl - support PBR Metallic-Roughness shading model
[occt.git] / tests / de_mesh / obj_read / multiline
1 puts "========"
2 puts "0030899: Data Exchange, RWObj_Reader - reading multiline file with more than one line separator leads to memory corruption"
3 puts "========"
4
5 # define a long line
6 set aDummy "dummy"
7 for {set i 0} {$i < 49} {incr i} { set aDummy "${aDummy}dummy" }
8
9 set ml_obj {
10 v 0 0 0
11 v 2 0 0
12 v 2 1 0
13 v 1 2 0
14 v 0 1 0
15 v 0 0 2
16 v 2 0 2
17 v 2 1 2
18 v 1 2 2
19 v 0 1 2\
20 __DUMMY__\
21 __DUMMY__
22 f 5 4 3 2 1
23 f 7 8 \
24 __SPLIT__ 9 10 6
25 f 10 9 4 5
26 f 9 8 3 4
27 f 6 10 5 1
28 f 2 3 8 7
29 f 1 2 7 6}
30
31 regsub -all {__DUMMY__} $ml_obj "\\\n${aDummy}" ml_obj
32 regsub -all {__SPLIT__} $ml_obj "\\\n" ml_obj
33
34 set fd [open ${imagedir}/${casename}.obj w]
35 fconfigure $fd -translation lf
36 puts $fd $ml_obj
37 close $fd
38
39 ReadObj D ${imagedir}/${casename}.obj
40 XGetOneShape s D
41 checknbshapes s -face 1 -compound 1
42 checktrinfo s -tri 16 -nod 10