tests/bugs/moddata_2/bug593

   1 puts "TODO OCC12345 ALL: Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
   2
   3 puts "========================"
   4 puts " OCC593 "
   5 puts "========================"
   6 puts ""
   7 #############################################################
   8 ## Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect
   9 #############################################################
  10
  11 restore [locate_data_file OCC593.brep] ff48
  12
  13 set tolerance [maxtolerance ff48]
  14 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
  15
  16 vertex vv -19.561252535222 17.89876466186 71.408126285268
  17 distmini dd vv ff48
  18 regexp {([-0-9.+eE]+)$} [dump dd_val] full ddval
  19
  20 mksurface gs ff48
  21
  22 proj gs -19.561252535222 17.89876466186 71.408126285268
  23
  24 set pp1 [lindex [dump ext_1] 9]
  25 set pp2 [lindex [dump ext_1] 10]
  26
  27 set err [expr abs ([expr $pp2 - $pp1])]
  28 puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance]
  29 puts [format "MaxDistance = %s" $err]
  30 if { $err < $MaxFaceTolerance } {
  31     puts  "OCC593 (case 1) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly"
  32 } else {
  33     puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
  34 }
  35 copy ext_1 oldext_1
  36
  37 puts ""
  38 puts "***** Another example: *****"
  39
  40 svalue gs 0.56 0.4 x y z
  41 point p x y z
  42 proj gs x y z
  43
  44 set p1 [lindex [dump ext_1] 9]
  45 set p2 [lindex [dump ext_1] 10]
  46
  47 set err1 [expr abs ([expr $p2 - $p1])]
  48 puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance]
  49 puts [format "MaxDistance = %s" $err1]
  50 if { $err1 < $MaxFaceTolerance } {
  51     puts  "OCC593 (case 2) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly"
  52 } else {
  53     puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
  54 }