352ffd73 |
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 | } |