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 |
10 | |
11 | pload XDE OCAF MODELING VISUALIZATION |
12 | |
13 | restore [locate_data_file bug27821_nullsurf.brep] s |
14 | explode s F |
15 | |
16 | NewDocument D BinXCAF |
17 | XAddShape D s |
18 | XSetColor D s_1 1 0 0 |
19 | XShow D |
20 | vaxo |
21 | vfit |
22 | vrotate 3 0 0 |
23 | vsetdispmode 1 |
24 | vdump $anImgDoc1 |
25 | |
26 | StoreTriangulation 1 |
27 | SaveAs D test.xbf |
28 | Close D |
29 | |
30 | XOpen test.xbf D |
31 | XShow D |
32 | vsetdispmode 1 |
33 | vaxo |
34 | vfit |
35 | vrotate 3 0 0 |
36 | vdump $anImgDoc2 |
37 | |
38 | set aDiffRes [diffimage $anImgDoc2 $anImgDoc1 0.0 0 0 $anImgDiff] |
39 | if {$aDiffRes != 0} { |
40 | puts "Error: document has changed after Save/Read" |
41 | } |