tests/bugs/moddata_3/bug25737_2

   1 puts "============"
   2 puts "CR25737"
   3 puts "============"
   4 puts ""
   5 ###################################################################################
   6 # GCPnts_TangentialDeflection does not produce points to approximate a knee
   7 ###################################################################################
   8
   9 restore [locate_data_file bug25737_face3535.brep] a
  10
  11 explode a e
  12 mkcurve c a_1
  13
  14 smallview
  15 donly a_1
  16 fit
  17
  18 set deflection 1.
  19 set angular_deflection 0.349
  20 set info [crvtpoints r c ${deflection} ${angular_deflection}]
  21
  22 set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
  23 set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
  24
  25 regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i
  26
  27 #-1
  28 set min_Nb 7
  29 if { ${Nb} < ${min_Nb} } {
  30     puts "Error : bad value of Nb points=${Nb}"
  31 }
  32
  33 #-2
  34 if { ${dmax} > ${deflection} } {
  35     puts "Error : bad value of deflection=${dmax}"
  36 }
  37
  38 checkview -screenshot -2d -path ${imagedir}/${test_image}.png