mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
5bde4773f9
Implementing VRML reader into XCAF document. Updating DE_Wrapper according to VRML Reader.
33 lines
806 B
Plaintext
33 lines
806 B
Plaintext
puts "============"
|
|
puts "0032820: Data Exchange - add VRML reader to XCAF document"
|
|
puts "============"
|
|
puts ""
|
|
|
|
set aFile [locate_data_file OCC22092-sk97.wrl]
|
|
|
|
catch { Close D }
|
|
|
|
loadvrml S_${casename} $aFile
|
|
vinit Driver1/View_${casename}_1/${casename}_1
|
|
vdisplay S_${casename} -dispmode 1
|
|
vfit
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}_1.png
|
|
|
|
XNewDoc D
|
|
ReadVrml D $aFile -nocreatedoc
|
|
vinit Driver1/View_${casename}_2/${casename}_2
|
|
XDisplay D -dispMode 1
|
|
vfit
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}_2.png
|
|
|
|
XGetOneShape S_New D
|
|
checktrinfo S_New -tol_abs_defl 1e-14 -ref [trinfo S_${casename}]
|
|
|
|
set ref_colors "BLACK "
|
|
set new_colors [ XGetAllColors D ]
|
|
if {[ string equal $new_colors $ref_colors ] == 0} {
|
|
puts "Error: Colors have been read incorrectly."
|
|
}
|
|
|
|
Close D
|