tests/bugs/moddata_3/bug24896

   1 puts "================"
   2 puts "OCC24896"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # BRepExtrema is giving wrong intersection point between curve and planar face
   7 #######################################################################
   8
   9 restore [locate_data_file bug24896_face_8.brep] f8
  10 restore [locate_data_file bug24896_compound_line_8.brep] c8
  11
  12 distmini d f8 c8
  13
  14 # 1
  15 regexp {([-0-9.+eE]+)$} [dump d_val] full dist
  16 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [ maxtolerance d ] full toler
  17 set good_dist 0
  18 if { [expr abs( ${dist} - ${good_dist} )] > ${toler} } {
  19     puts "Faulty : the distanse is ${dist}. It is bad value"
  20 }
  21
  22 # 2
  23 # Point 3D : 66.6, -11.8556887483839, 0.3
  24
  25 regexp { +Point 3D : +([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} [ dump d ] full x1 y1 z1
  26 set good_x1 66.6
  27 set good_y1 -11.8556887483839
  28 set good_z1 0.3
  29 if { [expr abs( ${x1} - ${good_x1} )] > ${toler} } {
  30     puts "Faulty : the x coordinate of the point is ${x1}. It is bad value"
  31 }
  32 if { [expr abs( ${y1} - ${good_y1} )] > ${toler} } {
  33     puts "Faulty : the y coordinate of the point is ${y1}. It is bad value"
  34 }
  35 if { [expr abs( ${z1} - ${good_z1} )] > ${toler} } {
  36     puts "Faulty : the z coordinate of the point is ${z1}. It is bad value"
  37 }
  38
  39 # 3
  40 # Point 3D : 66.6, 11.8556887323157, 0.3
  41
  42 regexp { +Point 3D : +([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} [ dump d2 ] full x2 y2 z2
  43 set good_x2 66.6
  44 set good_y2 11.8556887323157
  45 set good_z2 0.3
  46 if { [expr abs( ${x2} - ${good_x2} )] > ${toler} } {
  47     puts "Faulty : the x coordinate of the point is ${x2}. It is bad value"
  48 }
  49 if { [expr abs( ${y2} - ${good_y2} )] > ${toler} } {
  50     puts "Faulty : the y coordinate of the point is ${y2}. It is bad value"
  51 }
  52 if { [expr abs( ${z2} - ${good_z2} )] > ${toler} } {
  53     puts "Faulty : the z coordinate of the point is ${z2}. It is bad value"
  54 }
  55
  56 smallview
  57 fit
  58 set only_screen_axo 1