tests/bugs/moddata_3/bug24138

   1 puts "================"
   2 puts "OCC24138"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Exception during projection of the point on the face
   7 #######################################################################
   8
   9 ellipse w 0 0 0 10 5
  10 mkedge w w
  11 wire w w
  12 mkplane w w
  13 prism s w 2 0 30
  14 explode s f
  15 copy s_1 f
  16 point p 0.753071156928785 4.98580193823337 0
  17
  18 set proj_fp [projponf f p -t]
  19 regexp {proj dist = ([-0-9.+eE]+)} ${proj_fp} full dist
  20 regexp {uvproj = ([-0-9.+eE]+) ([-0-9.+eE]+)} ${proj_fp} full uproj vproj
  21 regexp {pproj = ([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)} ${proj_fp} full proj1 proj2
  22
  23 puts "dist=${dist}"
  24 puts "uproj=${uproj}"
  25 puts "vproj=${vproj}"
  26 puts "proj1=${proj1}"
  27 puts "proj2=${proj2}"
  28
  29 set CMP_TOL [checkmaxtol f]
  30
  31 puts "CMP_TOL=${CMP_TOL}"
  32
  33 set good_dist 9.16061678111512e-10
  34 set good_uproj 1.4954178490327235
  35 set good_vproj -2.3095450102606156e-12
  36 set good_proj1 0.75307115689421944
  37 set good_proj2 4.9858019373179632
  38
  39 if { [expr abs(${dist} - ${good_dist}) ] > ${CMP_TOL} } {
  40    puts "Error: invalid dist"
  41 }
  42 if { [expr abs(${uproj} - ${good_uproj}) ] > ${CMP_TOL} } {
  43    puts "Error: invalid uproj"
  44 }
  45 if { [expr abs(${vproj} - ${good_vproj}) ] > ${CMP_TOL} } {
  46    puts "Error: invalid vproj"
  47 }
  48 if { [expr abs(${proj1} - ${good_proj1}) ] > ${CMP_TOL} } {
  49    puts "Error: invalid proj1"
  50 }
  51 if { [expr abs(${proj2} - ${good_proj2}) ] > ${CMP_TOL} } {
  52    puts "Error: invalid proj2"
  53 }