0028107: Visualization - provide a flexible interface to set custom hatch styles
[occt.git] / tests / bugs / vis / bug27805
1 puts "============"
2 puts "CR27805"
3 puts "AIS_InteractiveContext::FitSelected() is broken for global selection"
4 puts "============"
5 puts ""
6
7 set anImgFitAll $imagedir/${casename}_fitall.png
8 set anImgFitSel $imagedir/${casename}_fitsel.png
9 set anImgDiff   $imagedir/${casename}_diff.png
10
11 pload MODELING VISUALIZATION
12 box b 1 2 3
13 vclear
14 vinit View1
15 vaxo
16 vdisplay -dispMode 1 b
17 vfit
18 vselect 200 200
19 vdump $anImgFitAll
20 vfit -selected
21 vdump $anImgFitSel
22
23 set aDiffRes [diffimage $anImgFitSel $anImgFitAll 0.0 0 0 $anImgDiff]
24 if {$aDiffRes != 0} {
25   puts "Error: FitSelected() does not match FitAll() for single object"
26 }