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