tests/bugs/moddata_3/bug24142

   1 puts "================"
   2 puts "OCC24142"
   3 puts "================"
   4 puts ""
   5 #################################################################
   6 ## Wrong section curve
   7 #################################################################
   8
   9 restore [locate_data_file OCC152.brep] sh
  10 explode sh f
  11
  12 mksurface s1 sh_3
  13 mksurface s2 sh_5
  14
  15 trim st1 s1 0 6.28318530717959 0 74.9999999999999
  16 trim st2 s2 0 6.28318530717959 -74.0551172696384 125.944882730362
  17
  18 intersect i st1 st2
  19
  20 dlog reset
  21 dlog on
  22 xdistcs i st2 0 1 10
  23 set log_on [dlog get]
  24
  25 if { [regexp "i is null curve" ${log_on}] != 1 } {
  26    puts "Error : Wrong section curve"
  27 }
  28
  29 set 2dviewer 1