mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-25 12:55:50 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
43 lines
911 B
Plaintext
Executable File
43 lines
911 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC659"
|
|
puts "================"
|
|
puts ""
|
|
#############################################
|
|
## Units are not taken into account while translating IGES surfaces
|
|
#############################################
|
|
|
|
param read.surfacecurve.mode -2
|
|
|
|
if [catch { igesbrep [locate_data_file D44-11325-6.igs] a 6425 } res] {
|
|
puts "Faulty OCC659 first: here is reading problem"
|
|
}
|
|
|
|
renamevar a_1 a1
|
|
|
|
param read.surfacecurve.mode -3
|
|
|
|
if [catch { igesbrep . a 6425 } res] {
|
|
puts "Faulty OCC659 second: here is reading problem"
|
|
}
|
|
|
|
renamevar a_1 a2
|
|
|
|
set size1 [ bounding a1 ]
|
|
set size2 [ bounding a2 ]
|
|
|
|
set x1_a1 [ lindex $size1 0 ]
|
|
set x2_a1 [ lindex $size1 3 ]
|
|
|
|
set x1_a2 [ lindex $size2 0 ]
|
|
set x2_a2 [ lindex $size2 3 ]
|
|
|
|
set dim2 [ expr $x2_a2 - $x1_a2 ]
|
|
set dim1 [ expr $x2_a1 - $x1_a1 ]
|
|
|
|
set siz [expr ${dim1} / ${dim2}]
|
|
if { $siz > 25} {
|
|
puts "Faulty OCC659"
|
|
} else {
|
|
puts " OCC659 OK"
|
|
}
|