0024387: Tests - use system-independent fonts in test cases
[occt.git] / tests / bugs / vis / bug23654_MarkersRecompute
CommitLineData
eb4320f2 1puts "========"
2puts "OCC23654 Markers recompute"
3puts "========"
4
5# reflects Aspect_TypeOfMarker enumeration
6set aMarkerTypeNames {
7 Aspect_TOM_POINT
8 Aspect_TOM_PLUS
9 Aspect_TOM_STAR
10 Aspect_TOM_X
11 Aspect_TOM_O
12 Aspect_TOM_O_POINT
13 Aspect_TOM_O_PLUS
14 Aspect_TOM_O_STAR
15 Aspect_TOM_O_X
16 Aspect_TOM_RING1
17 Aspect_TOM_RING2
18 Aspect_TOM_RING3
19 Aspect_TOM_BALL
20 Aspect_TOM_USERDEFINED
21}
22
fc73450d 23# custom marker
24set aCustom1 [locate_data_file images/marker_box1.png]
25set aCustom2 [locate_data_file images/marker_box2.png]
26set aCustom3 [locate_data_file images/marker_dot.png]
eb4320f2 27
28# draw box in advance which should fit all our markers
29box b -8 -8 0 16 16 2
30
8625ef7e 31vcaps -sprites
eb4320f2 32set aV "Driver1/Viewer1/View1"
33vinit name=$aV l=32 t=32 w=512 h=512
34vactivate $aV
35vclear
36
37vbottom
38vdisplay b
39vfit
40verase b
41
6fb1a930 42vfont add [locate_data_file DejaVuSans.ttf] SansFont
43
eb4320f2 44for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } {
45 set aRow [expr $aMarkerType - 7]
46 set aCol 5
47 set aName [lindex $aMarkerTypeNames $aMarkerType]
6fb1a930 48 vdrawtext "$aName" "$aName" -pos 0 [expr $aRow + 0.5] 0 -color 0.5 1.0 1.0 -halign center -valign center -angle 000 -zoom 0 -height 12 -aspect bold -font SansFont
eb4320f2 49 if { $aMarkerType == 13 } {
50 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1
51 set aCol [expr $aCol - 1]
52 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2
fc73450d 53 set aCol [expr $aCol - 1]
54 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom3
eb4320f2 55 } else {
56 for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } {
57 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1
58 set aCol [expr $aCol - 1]
59 }
60 }
61}
62
63set anImage1 $imagedir/${casename}_1.png
64set anImage2 $imagedir/${casename}_2.png
65
66vdump $anImage1
67
68vclose $aV 1
69
70vinit name=$aV l=32 t=32 w=512 h=512
71vactivate $aV
72vbottom
73vdisplay b
74vfit
75verase b
76
77vdump $anImage2