tests/bugs/modalg_7/bug29496

   1 puts "========"
   2 puts "OCC29496"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # No intersection curve between faces if starting points are given
   7 #################################################
   8
   9 restore [locate_data_file bug29488_shapes.brep] s
  10 explode s shell
  11 set i 1
  12
  13 explode s_2 f; copy s_2_27 f1
  14 explode s_6 f; copy s_6_20 f2
  15 bsection r$i f1 f2
  16 checknbshapes r$i -vertex 2 -edge 1
  17 checkprops r$i -l 2.14991
  18
  19 incr i
  20
  21 explode s_2 f; copy s_2_27 f1
  22 explode s_7 f; copy s_7_8 f2
  23 bsection r$i f1 f2
  24 checknbshapes r$i -vertex 2 -edge 1
  25 checkprops r$i -l 2.15901
  26
  27 incr i
  28
  29 explode s_3 f; copy s_3_27 f1
  30 explode s_7 f; copy s_7_8 f2
  31 bsection r$i f1 f2
  32 checknbshapes r$i -vertex 2 -edge 1
  33 checkprops r$i -l 2.15901
  34
  35 incr i
  36
  37 explode s_3 f; copy s_3_27 f1
  38 explode s_6 f; copy s_6_16 f2
  39 bsection r$i f1 f2
  40 checknbshapes r$i -vertex 2 -edge 1
  41 checkprops r$i -l 2.14991
  42
  43 incr i
  44
  45 explode s_2 f; copy s_2_26 f1
  46 explode s_7 f; copy s_7_2 f2
  47 bsection r$i f1 f2
  48 checknbshapes r$i -vertex 2 -edge 1
  49 checkprops r$i -l 2.22733
  50
  51 incr i
  52
  53 explode s_3 f; copy s_3_26 f1
  54 explode s_7 f; copy s_7_2 f2
  55 bsection r$i f1 f2
  56 checknbshapes r$i -vertex 2 -edge 1
  57 checkprops r$i -l 2.22733