OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
Code

0024231: Test case update for bug 23654

Browse Source 
Test case update
This commit is contained in:
dbv 2013-10-07 12:05:29 +04:00 committed by bugmaster
parent d20d815bbe
commit fc73450dcd
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/bugs/vis/bug23654_MarkersRecompute
View File

@ -20,20 +20,10 @@ set aMarkerTypeNames {
Aspect_TOM_USERDEFINED Aspect_TOM_USERDEFINED
} }
# generate custom marker # custom marker
set aCustom1 $imagedir/${casename}_m1.png set aCustom1 [locate_data_file images/marker_box1.png]
set aCustom2 $imagedir/${casename}_m2.png set aCustom2 [locate_data_file images/marker_box2.png]
box b 1 1 1 set aCustom3 [locate_data_file images/marker_dot.png]
vinit name=Driver1/Viewer1/View1 l=32 t=32 w=512 h=512
vclear
vdisplay b
vaxo
vfit
vdump $aCustom1 rgba 32 32
vsetdispmode b 1
vsetcolor b RED
vrotate 1 0 0
vdump $aCustom2 rgba 32 32
# draw box in advance which should fit all our markers # draw box in advance which should fit all our markers
box b -8 -8 0 16 16 2 box b -8 -8 0 16 16 2
@ -58,6 +48,8 @@ for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } {
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1
set aCol [expr $aCol - 1] set aCol [expr $aCol - 1]
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2
set aCol [expr $aCol - 1]
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom3
} else { } else {
for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } { for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } {
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1