tests/bugs/modalg_7/bug28596_2

   1 puts "========"
   2 puts "OCC28596"
   3 puts "========"
   4 puts ""
   5 ##################
   6 # Erroneous fillet
   7 ##################
   8
   9 restore [locate_data_file bug28596_fil.brep] f
  10
  11 explode f e
  12 fillet result f 0.04 f_4
  13
  14 checkshape result
  15
  16 set Log [bopcheck result]
  17 if {[regexp "This shape seems to be OK" ${Log}] != 1} {
  18     puts "Error: Erroneous fillet"
  19 }
  20
  21 vinit
  22 vdisplay result
  23 vviewparams -scale 702.276 -proj -0.67842 -0.368345 -0.635663 -up -0.730989 0.424987 0.533892 -at 0.191139 0.100954 0.167229 -eye -4.57791 -2.48838 -4.30125
  24
  25 checkview -screenshot -3d -path ${imagedir}/${test_image}-w.png
  26
  27 vsetdispmode 1
  28 vselect 100 100
  29 checkview -screenshot -3d -path ${imagedir}/${test_image}-s.png