tests/bugs/modalg_7/bug31043

   1 puts "============="
   2 puts "0031043: GCPnts_TangentialDeflection generates points which number is inconsistent with MinimumOfPoints parameter"
   3 puts "============="
   4
   5 restore [locate_data_file bug28500_shape_mesh_artifact.brep] result
   6
   7 tclean result
   8 explode result f
   9 explode result_7 e
  10
  11 mkcurve c result_7_1
  12
  13 set log [crvtpoints r c 0.01 1.57 1]
  14 regexp {Nb points : ([0-9]+)} $log full pnts
  15
  16 if { $pnts < 2 } {
  17   puts "Error : Incorrect number of points $pnts"
  18 }
  19
  20
  21 set log [crvtpoints r c 0.01 1.57 2]
  22 regexp {Nb points : ([0-9]+)} $log full pnts
  23
  24 if { $pnts < 2 } {
  25   puts "Error : Incorrect number of points $pnts"
  26 }
  27
  28 set log [crvtpoints r c 0.01 1.57 3]
  29 regexp {Nb points : ([0-9]+)} $log full pnts
  30
  31 if { $pnts < 3 } {
  32   puts "Error : Incorrect number of points $pnts"
  33 }
  34
  35 set log [crvtpoints r c 0.01 1.57 4]
  36 regexp {Nb points : ([0-9]+)} $log full pnts
  37
  38 if { $pnts < 4 } {
  39   puts "Error : Incorrect number of points $pnts"
  40 }
  41
  42 set log [crvtpoints r c 0.01 1.57 5]
  43 regexp {Nb points : ([0-9]+)} $log full pnts
  44
  45 if { $pnts < 5 } {
  46   puts "Error : Incorrect number of points $pnts"
  47 }
  48
  49 set log [crvtpoints r c 0.01 1.57 6]
  50 regexp {Nb points : ([0-9]+)} $log full pnts
  51
  52 if { $pnts < 6 } {
  53   puts "Error : Incorrect number of points $pnts"
  54 }