f1fb0901 |
1 | puts "========" |
2 | puts "OCC27835" |
3 | puts "BinXCAF - handle correctly faces with NULL surface within BinTools_ShapeSet" |
4 | puts "========" |
5 | puts "" |
6 | |
7 | set anImgDoc1 $imagedir/${casename}_doc1.png |
8 | set anImgDoc2 $imagedir/${casename}_doc2.png |
9 | set anImgDiff $imagedir/${casename}_diff.png |
8c787b5f |
10 | set aTestFile $imagedir/${casename}.xbf |
f1fb0901 |
11 | |
12 | pload XDE OCAF MODELING VISUALIZATION |
13 | |
14 | restore [locate_data_file bug27821_nullsurf.brep] s |
15 | explode s F |
16 | |
17 | NewDocument D BinXCAF |
18 | XAddShape D s |
19 | XSetColor D s_1 1 0 0 |
8c787b5f |
20 | vclear |
21 | vinit View1 |
f1fb0901 |
22 | vaxo |
8c787b5f |
23 | XDisplay -dispMode 1 D |
f1fb0901 |
24 | vfit |
25 | vrotate 3 0 0 |
f1fb0901 |
26 | vdump $anImgDoc1 |
27 | |
8c787b5f |
28 | file delete $aTestFile |
f1fb0901 |
29 | StoreTriangulation 1 |
8c787b5f |
30 | SaveAs D $aTestFile |
f1fb0901 |
31 | Close D |
32 | |
8c787b5f |
33 | XOpen $aTestFile D |
34 | file delete $aTestFile |
35 | vclear |
36 | XDisplay -dispMode 1 D |
f1fb0901 |
37 | vaxo |
38 | vfit |
39 | vrotate 3 0 0 |
40 | vdump $anImgDoc2 |
41 | |
42 | set aDiffRes [diffimage $anImgDoc2 $anImgDoc1 0.0 0 0 $anImgDiff] |
8c787b5f |
43 | if {$aDiffRes != 0} { puts "Error: document has changed after Save/Read" } |