tests/bugs/modalg_2/bug322

   1 puts "================"
   2 puts "OCC322"
   3 puts "================"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 restore [locate_data_file OCC322.brep] a
   9 checkshape a
  10
  11 sewing result a
  12
  13 vinit
  14 vdisplay result
  15 vfit
  16
  17 set x_coord 204
  18 set y_coord 297
  19
  20 checkcolor $x_coord $y_coord 1 1 0
  21
  22 set x_coord 251
  23 set y_coord 232
  24
  25 checkcolor $x_coord $y_coord 1 1 0
  26
  27 checkmaxtol result -ref 1.0001007808605688e-007
  28 checknbshapes result -shell 1
  29 checkfreebounds result 6
  30
  31 checkprops result -s 20000
  32 checkshape result
  33 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  34