67f4d717c355b9d80860f8a1295d5faa1bdefddc
[occt.git] / tests / bugs / vis / bug23654_MarkersRecompute
1 puts "========"
2 puts "OCC23654 Markers recompute"
3 puts "========"
4
5 # reflects Aspect_TypeOfMarker enumeration
6 set 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
23 # custom marker
24 set aCustom1 [locate_data_file images/marker_box1.png]
25 set aCustom2 [locate_data_file images/marker_box2.png]
26 set aCustom3 [locate_data_file images/marker_dot.png]
27
28 # draw box in advance which should fit all our markers
29 box b -8 -8 0 16 16 2
30
31 vcaps -sprites
32 set aV "Driver1/Viewer1/View1"
33 vinit name=$aV l=32 t=32 w=512 h=512
34 vactivate $aV
35 vclear
36
37 vbottom
38 vdisplay b
39 vfit
40 verase b
41
42 vfont add [locate_data_file DejaVuSans.ttf] SansFont
43
44 for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } {
45   set aRow [expr $aMarkerType - 7]
46   set aCol 5
47   set aName [lindex $aMarkerTypeNames $aMarkerType]
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
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
53     set aCol [expr $aCol - 1]
54     vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom3
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
63 set anImage1 $imagedir/${casename}_1.png
64 set anImage2 $imagedir/${casename}_2.png
65
66 vdump $anImage1
67
68 vclose $aV 1
69
70 vinit name=$aV l=32 t=32 w=512 h=512
71 vactivate $aV
72 vbottom
73 vdisplay b
74 vfit
75 verase b
76
77 vdump $anImage2