mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
56 lines
1.3 KiB
Plaintext
Executable File
56 lines
1.3 KiB
Plaintext
Executable File
puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
|
|
puts "TODO ?OCC11111 ALL: Exception"
|
|
puts "TODO ?OCC11111 ALL: An exception was caught"
|
|
puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
|
|
puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
|
|
|
|
puts "============"
|
|
puts "OCC8842"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Errors in Offset Shape algorithm working with bspline and surface of revolution
|
|
#######################################################################
|
|
|
|
set BugNumber OCC8842
|
|
|
|
if {[info commands testreadiges] == ""} {pload XSDRAW}
|
|
|
|
proc myoffset {result sh val tan} {
|
|
if {$tan == 1} {
|
|
offsetparameter 1e-7 p i
|
|
} else {
|
|
offsetparameter 1e-7 p a
|
|
}
|
|
uplevel offsetload $sh $val
|
|
uplevel offsetperform $result
|
|
}
|
|
|
|
testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4
|
|
|
|
DT_ShapeDivide cyl2 a4
|
|
|
|
# join type Intersection
|
|
puts "***** offsetting with join type Intersection"
|
|
puts " cylinder_Ideas - 5"
|
|
|
|
if [catch { myoffset result cyl2 -5 1 } catch_result] {
|
|
puts "${BugNumber}: Faulty (1)"
|
|
} else {
|
|
|
|
set square 3542.24
|
|
set nb_v_good 60
|
|
set nb_e_good 90
|
|
set nb_w_good 42
|
|
set nb_f_good 40
|
|
set nb_sh_good 5
|
|
set nb_sol_good 5
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 1
|
|
set nb_shape_good 243
|
|
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|