tests/bugs/modalg/bug322

   1 puts "================"
   2 puts "OCC322"
   3 puts "================"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 restore [locate_data_file OCC322.brep] a
   9 puts [checkshape a]
  10
  11 sewing result a
  12
  13 vinit
  14 vdisplay result
  15 vfit
  16
  17 set Yellow_R 1
  18 set Yellow_G 1
  19 set Yellow_B 0
  20
  21 set x1 204
  22 set y1 297
  23
  24 set x2 251
  25 set y2 232
  26
  27 QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
  28 QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B
  29
  30 set square 20000
  31 set only_screen 1
  32