[occt.git] / tests / de_mesh / obj_write / ship_boat

puts "========"
puts "0029303: Data Exchange - add RWObj_CafWriter tool for wavefront OBJ file"
puts "Write textured boat OBJ model into OBJ file"
puts "========"

pload XDE OCAF MODELING VISUALIZATION
Close D  -silent
Close D1 -silent
ReadObj D1 [locate_data_file ship_boat.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 158 -compound 2
checktrinfo s -tri 27297 -nod 40496

vclear
vinit View1
XDisplay -dispMode 1 D
vaxo
vfit
vdump ${imagedir}/${casename}.png
Commit	Line	Data
1b6b8afc	1	puts "========"
	2	puts "0029303: Data Exchange - add RWObj_CafWriter tool for wavefront OBJ file"
	3	puts "Write textured boat OBJ model into OBJ file"
	4	puts "========"
	5
	6	pload XDE OCAF MODELING VISUALIZATION
	7	Close D -silent
	8	Close D1 -silent
	9	ReadObj D1 [locate_data_file ship_boat.obj]
	10
	11	set aTmpObjBase "${imagedir}/${casename}_tmp"
	12	set aTmpObj "${aTmpObjBase}.obj"
	13	lappend occ_tmp_files $aTmpObj
	14	lappend occ_tmp_files "${aTmpObjBase}.mtl"
	15	lappend occ_tmp_files "${aTmpObjBase}_textures"
	16
	17	WriteObj D1 "$aTmpObj"
	18
	19	ReadObj D "$aTmpObj"
	20	XGetOneShape s D
	21	checknbshapes s -face 158 -compound 2
	22	checktrinfo s -tri 27297 -nod 40496
	23
	24	vclear
	25	vinit View1
	26	XDisplay -dispMode 1 D
	27	vaxo
	28	vfit
	29	vdump ${imagedir}/${casename}.png