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

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

XNewDoc D1
XSetLengthUnit D1 cm
ReadObj D1 [locate_data_file "P-51 Mustang.obj"] -nocreatedoc -unit 1
XGetOneShape s1 D1
set aLProps1 [uplevel #0 sprops $s1]

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"

XNewDoc D
XSetLengthUnit D cm
ReadObj D "$aTmpObj" -nocreatedoc -unit 1
XGetOneShape s D
set aLProps2 [uplevel #0 sprops $s]
checknbshapes s -face 14 -compound 1
checktrinfo s -tri 4309 -nod 4727

regexp {Mass\s:\s*([0-9\.]+)} $aLProps1 dummy anArea1
regexp {Mass\s:\s*([0-9\.]+)} $aLProps2 dummy anArea2
if {abs($anArea1 - $anArea2) > 1e-8 * $anArea1} {
  puts "Error: invalid area $anArea1 instead of $anArea2"
}

vclear
vinit View1
XDisplay -dispMode 1 D
vaxo
vfit
vdump ${imagedir}/${casename}.png
Commit	Line	Data
	1	puts "========"
	2	puts "0029303: Data Exchange - add RWObj_CafWriter tool for wavefront OBJ file"
	3	puts "Write textured plane OBJ model into OBJ file"
	4	puts "========"
	5
	6	pload XDE OCAF MODELING VISUALIZATION
	7	Close D -silent
	8	Close D1 -silent
	9
	10	XNewDoc D1
	11	XSetLengthUnit D1 cm
	12	ReadObj D1 [locate_data_file "P-51 Mustang.obj"] -nocreatedoc -unit 1
	13	XGetOneShape s1 D1
	14	set aLProps1 [uplevel #0 sprops $s1]
	15
	16	set aTmpObjBase "${imagedir}/${casename}_tmp"
	17	set aTmpObj "${aTmpObjBase}.obj"
	18	lappend occ_tmp_files $aTmpObj
	19	lappend occ_tmp_files "${aTmpObjBase}.mtl"
	20	lappend occ_tmp_files "${aTmpObjBase}_textures"
	21
	22	WriteObj D1 "$aTmpObj"
	23
	24	XNewDoc D
	25	XSetLengthUnit D cm
	26	ReadObj D "$aTmpObj" -nocreatedoc -unit 1
	27	XGetOneShape s D
	28	set aLProps2 [uplevel #0 sprops $s]
	29	checknbshapes s -face 14 -compound 1
	30	checktrinfo s -tri 4309 -nod 4727
	31
	32	regexp {Mass\s:\s*([0-9\.]+)} $aLProps1 dummy anArea1
	33	regexp {Mass\s:\s*([0-9\.]+)} $aLProps2 dummy anArea2
	34	if {abs($anArea1 - $anArea2) > 1e-8 * $anArea1} {
	35	puts "Error: invalid area $anArea1 instead of $anArea2"
	36	}
	37
	38	vclear
	39	vinit View1
	40	XDisplay -dispMode 1 D
	41	vaxo
	42	vfit
	43	vdump ${imagedir}/${casename}.png