tests/bugs/modalg_5/bug24650

   1 puts "==========="
   2 puts "OCC24650"
   3 puts "==========="
   4 puts ""
   5 ##############################################################
   6 # Wrong intersection curves obtained for a surface of revolution and a plane.
   7 ##############################################################
   8
   9 restore [locate_data_file bug24650_fz1365.brep] b1
  10 restore [locate_data_file bug24650_fz2495.brep] b2
  11
  12 mksurface sb1 b1
  13 mksurface sb2 b2
  14 trimu sb1tu sb1 0.242 0.291
  15
  16 set N [intersect i sb1tu sb2]
  17
  18 if { [llength ${N}] != 1} {
  19    puts "Error : Wrong intersection curves"
  20 } else {
  21    set info1 [dump i]
  22    set type_of_curve "BSplineCurve"
  23    if { [regexp ${type_of_curve} ${info1}] != 1 } {
  24       puts "Error : Wrong type of intersection curve"
  25    } else {
  26       puts "OK : Good type of intersection curve"
  27    }
  28 }
  29
  30 smallview
  31 donly i
  32 fit
  33 set only_screen_axo 1
  34