tests/bugs/modalg_7/bug27648

   1 puts "========"
   2 puts "OCC27648"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Regression vs 6.7.1: General Fuse operation fails to fuse the solids
   7 #################################################
   8
   9 restore [locate_data_file bug27648_simple.brep] s
  10 explode s
  11 bsection r s_1 s_2
  12 explode s_2 f
  13
  14 # find section edge belonging to the face s_2_3
  15 foreach e [explode r e] {
  16   if {[catch {mk2dcurve c2d $e s_2_3}] == 0} {
  17     break
  18   }
  19 }
  20
  21 mkcurve c $e
  22
  23 # in a loop, check that curve has increased Z value along its length
  24 bounds c u1 u2
  25 set delta [dval (u2-u1)/1000.0]
  26 cvalue c 0 xp yp zp
  27 for {set p [dval u1] } {$p <= [dval u2] } {set p [expr $p + $delta]} {
  28   cvalue c $p x y z
  29   if {[dval z] < [dval zp]} {
  30     puts "Error on parameter $p"
  31   }
  32   copy z zp
  33 }