tests/lowalgos/intss/bug25952_2

   1 puts "========"
   2 puts "0025952: Wrong intersection curve"
   3 puts "========"
   4 puts ""
   5 pload QAcommands
   6 puts "TODO OCC25952 ALL: Error: The curve res_1 is possible to have a bend at parameter"
   7
   8 set aGoodNbCurves 1
   9
  10 restore [locate_data_file bug25952_shape.brep] q
  11 explode q
  12 copy q_1 b1
  13 copy q_2 b2
  14
  15 mksurface s1 b1
  16 mksurface s2 b2
  17
  18 trimv s2t s2 0.24999939999991502 1
  19
  20 intersect res s1 s2t
  21
  22 set che [whatis res]
  23 set ind [string first "3d curve" $che]
  24 if {${ind} >= 0} {
  25   #Only variable "res" exists
  26   renamevar res res_1
  27 }
  28
  29 set ic 1
  30 set AllowRepeat 1
  31 while { $AllowRepeat != 0 } {
  32   set che [whatis res_$ic]
  33   set ind [string first "3d curve" $che]
  34   if {${ind} < 0} {
  35     set AllowRepeat 0
  36   } else {
  37     lappend CurvesList res_$ic
  38     QACheckBends res_$ic
  39     incr ic
  40   }
  41 }
  42
  43 set ic [expr $ic - 1]
  44
  45 if { $ic != $aGoodNbCurves } {
  46   puts "Error: $aGoodNbCurves curves is expected but $ic ones are found"
  47 } else {
  48   CheckIntersectionResult s1 s2 $CurvesList 100 2.0e-7 2.0e-7
  49 }
  50
  51
  52 smallview
  53 don res_*
  54 fit
  55
  56 checkview -screenshot -2d -path ${imagedir}/${test_image}.png