tests/bugs/caf/bug31050

   1 puts "============"
   2 puts "0031050: Data Exchange - XmlXCAF persistence stores triangulation-only Faces without any geometry"
   3 puts "============"
   4
   5 set anImgDoc1 $imagedir/${casename}_doc1.png
   6 set anImgDoc2 $imagedir/${casename}_doc2.png
   7 set anImgDiff $imagedir/${casename}_diff.png
   8 set aTestFile $imagedir/${casename}.xml
   9
  10 pload XDE OCAF MODELING VISUALIZATION
  11
  12 restore [locate_data_file bug27821_nullsurf.brep] s
  13 explode s F
  14
  15 NewDocument D XmlXCAF
  16 XAddShape D s
  17 XSetColor D s_1 1 0 0
  18 vclear
  19 vinit View1
  20 vaxo
  21 XDisplay -dispMode 1 D
  22 vfit
  23 vrotate 3 0 0
  24 vdump $anImgDoc1
  25
  26 file delete $aTestFile
  27 StoreTriangulation 1
  28 SaveAs D $aTestFile
  29 Close D
  30
  31 XOpen $aTestFile D
  32 file delete $aTestFile
  33 vclear
  34 XDisplay -dispMode 1 D
  35 vdump $anImgDoc2
  36
  37 set aDiffRes [diffimage $anImgDoc2 $anImgDoc1 0.0 0 0 $anImgDiff]
  38 if {$aDiffRes != 0} { puts "Error: document has changed after Save/Read" }