mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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
38 lines
933 B
Plaintext
Executable File
38 lines
933 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC333"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################
|
|
## Superimposed curves during intersection two surfaces
|
|
#######################################################
|
|
|
|
pload QAcommands
|
|
|
|
restore [locate_data_file OCC333a.draw] s12
|
|
############### checkshape su12 # is not a topological shape
|
|
restore [locate_data_file OCC333b.draw] s11
|
|
############### checkshape su11 # is not a topological shape
|
|
intersect result s12 s11
|
|
explode result e
|
|
clknots result_3
|
|
clknots result_13
|
|
|
|
mkedge e_1 result_3
|
|
mkedge e_2 result_13
|
|
|
|
set status [OCC333 e_1 e_2]
|
|
if {[llength ${status}] < 1} {
|
|
puts "OCC333 ERROR"
|
|
} else {
|
|
regexp {([-0-9.+eE]+)} ${status} full code
|
|
if { ${code} == 3 || ${code} == 2} {
|
|
puts "OCC333 OK : Intersection command works properly"
|
|
} else {
|
|
puts "Faulty OCC333 : Intersection was made WRONGLY"
|
|
}
|
|
}
|
|
|
|
donly i_3 i_13
|
|
|
|
set 2dviewer 0
|