1 puts "TODO OCC27419 ALL: ERROR: OCC27419 is reproduced."
7 ##############################################
8 # Incorrect result of Edge/Face intersection
9 ##############################################
11 restore [locate_data_file bug27419_ef.brep] b
17 # Get intersection of Curve and Surface
20 # Get coordinates of intersection of Curve and Surface
21 set bug_info [string trim [dump i]]
22 set x_Coord [lindex $bug_info 7]
23 set x_Coord [string trim [string range $x_Coord 0 [expr {[string length $x_Coord] - 2}]]]
24 set y_Coord [lindex $bug_info 8]
25 set y_Coord [string trim [string range $y_Coord 0 [expr {[string length $y_Coord] - 2}]]]
26 set z_Coord [lindex $bug_info 9]
28 # Get projection of intersection point to Curve
29 proj c $x_Coord $y_Coord $z_Coord
31 #Get the length of projection
32 set Proj_Len [lindex [string trim [length ext_1]] 4]
34 #Get maximim value of tolerance for the EDGE
35 set MaxTol_Edge [lindex [string trim [tolerance b_1]] 11]
36 set MaxTol_Edge [string trim [string range $MaxTol_Edge [expr {[string first "=" $MaxTol_Edge] + 1}] [expr {[string length $MaxTol_Edge] - 1}]]]
38 # ERROR if MaxTol_Edge < Proj_Len else OK
39 if {$MaxTol_Edge < $Proj_Len} {
40 puts "ERROR: OCC27419 is reproduced. Result of Edge/Face intersection is incorrect."