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 set delta 0.001
  25 cvalue c 0 xp yp zp
  26 for {set p 0} {$p <= 1} {set p [expr $p + $delta]} {
  27   cvalue c $p x y z
  28   if {[dval z] < [dval zp]} {
  29     puts "Error on parameter $p"
  30   }
  31   copy z zp
  32 }