tests/bugs/vis/bug402

   1 puts "========"
   2 puts "OCC402"
   3 puts "========"
   4
   5 v2dinit
   6
   7 set IndexMarker 1
   8 set TypeOfDetection 0
   9 set X 10
  10 set Y 10
  11 set Width 3
  12 set Height 3
  13 set Angle 0
  14
  15 for {set i 1} {${i} <= 14} {incr i} {
  16      OCC402 ${IndexMarker} ${TypeOfDetection} ${X} ${Y} ${Width} ${Height} ${Angle}
  17      incr X 10
  18      incr Y 10
  19      incr IndexMarker 1
  20 }
  21
  22 puts "There are 14 markers in the viewer"
  23 puts "Visual checking is required !!!!"
  24
  25 set only_screen2d 1