tests/bugs/vis/bug154_2

   1 puts "========"
   2 puts "OCC154"
   3 puts "========"
   4 puts ""
   5 #####################################################
   6 ##puts "Checking of function V2DERASE "
   7 ##puts "(visual checking for this case is desirable)"
   8 #####################################################
   9
  10 v2dinit
  11
  12 box b 1 1 1
  13 v2ddisplay b
  14 box b1 10 10 10 1 1 1
  15 v2ddisplay b1
  16 v2dfit
  17
  18 v2derase b1
  19
  20 set x_coord 370
  21 set y_coord 37
  22 set color2d 1
  23
  24 checkcolor $x_coord $y_coord 0 0 0
  25
  26 if { $stat != 1 } {
  27     puts "Object was not erased"
  28 }
  29
  30 set only_screen2d 1
  31
  32