mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
30 lines
709 B
Plaintext
30 lines
709 B
Plaintext
puts "========"
|
|
puts "0029303: Data Exchange - add RWObj_CafWriter tool for wavefront OBJ file"
|
|
puts "Write textured plane OBJ model into OBJ file"
|
|
puts "========"
|
|
|
|
pload XDE OCAF MODELING VISUALIZATION
|
|
Close D -silent
|
|
Close D1 -silent
|
|
ReadObj D1 [locate_data_file "P-51 Mustang.obj"]
|
|
|
|
set aTmpObjBase "${imagedir}/${casename}_tmp"
|
|
set aTmpObj "${aTmpObjBase}.obj"
|
|
lappend occ_tmp_files $aTmpObj
|
|
lappend occ_tmp_files "${aTmpObjBase}.mtl"
|
|
lappend occ_tmp_files "${aTmpObjBase}_textures"
|
|
|
|
WriteObj D1 "$aTmpObj"
|
|
|
|
ReadObj D "$aTmpObj"
|
|
XGetOneShape s D
|
|
checknbshapes s -face 14 -compound 1
|
|
checktrinfo s -tri 4309 -nod 4727
|
|
|
|
vclear
|
|
vinit View1
|
|
XDisplay -dispMode 1 D
|
|
vaxo
|
|
vfit
|
|
vdump ${imagedir}/${casename}.png
|