tests/bugs/vis/buc60688

   1 puts "==========="
   2 puts "BUC60688"
   3 puts "==========="
   4 puts "=================================="
   5 puts "It takes visual check for this BUG"
   6 puts "=================================="
   7
   8 vinit
   9 vertex v_1 .003 .0 .0
  10 vertex v_2 .003 .0 .003
  11 vertex v_3 .0 .0 .003
  12 vertex v_4 .0 .0 .0
  13 edge e_1 v_1 v_2
  14 edge e_2 v_2 v_3
  15 edge e_3 v_3 v_4
  16 edge e_4 v_4 v_1
  17 wire w_1 e_1 e_2 e_3 e_4
  18 mkplane r w_1
  19 vdisplay r
  20 vfit
  21 vselect 120 22
  22
  23 puts "WARNING : The rectangular MUST be highlighted !"
  24 puts ""
  25
  26 set x_coord 88
  27 set y_coord 272
  28
  29 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  30
  31 if {$stat != 1} {
  32    puts "Error : The rectangular is NOT highlighted."
  33 }
  34
  35 set only_screen 1