tests/bugs/modalg_1/buc60532_2

   1 puts "=========="
   2 puts "BUC60532"
   3 puts "=========="
   4
   5 restore [locate_data_file buc60532a.brep] p
   6 checkshape p
   7
   8 restore [locate_data_file buc60532b.brep] t1
   9 checkshape t1
  10
  11 restore [locate_data_file buc60532c.brep] t2
  12 checkshape t2
  13
  14 # create halfspace
  15 #vertex v 20 20 0
  16 halfspace h1 t1 20 20 0
  17 halfspace h2 t2 20 20 0
  18
  19 # first cut
  20 bcut res1 p h1
  21
  22 explode res1 e
  23 mkcurve cu11 res1_1
  24 mkcurve cu12 res1_2
  25 mkcurve cu13 res1_3
  26 mkcurve cu14 res1_4
  27 mkcurve cu15 res1_5
  28
  29 checkshape res1
  30 puts [computetolerance res1]
  31
  32 # second cut
  33 bcut res2 res1 h2
  34 tcopy res2 res
  35 checkshape res2
  36
  37 explode res2 e
  38 mkcurve cu21 res2_1
  39 mkcurve cu22 res2_2
  40 mkcurve cu23 res2_3
  41 mkcurve cu24 res2_4
  42
  43 explode res2 face
  44
  45 puts [computetolerance res2]
  46
  47 renamevar res2 result
  48
  49 checkprops result -s 78.8852
  50 checkshape result
  51 checkview -display result -2d -path ${imagedir}/${test_image}.png