mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +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
55 lines
1.2 KiB
Plaintext
Executable File
55 lines
1.2 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC13395"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Pipe is constructed wrongly on a result of revolution
|
|
#######################################################################
|
|
|
|
# revolution of an edge to obtain half-disk
|
|
line line1 0 0 0 1 0 0
|
|
mkedge edge1 line1 0 10
|
|
revol revol1 edge1 0 0 0 0 1 0 180
|
|
|
|
# spine for pipe
|
|
line line2 0 0 0 0 1 0
|
|
mkedge edge2 line2 0 10
|
|
wire wire_spine edge2
|
|
|
|
# invalid pipe
|
|
pipe result wire_spine revol1
|
|
|
|
set square 828.319
|
|
set good_vertex 6
|
|
set good_edge 9
|
|
set good_wire 5
|
|
set good_face 5
|
|
set explode_v_length [llength [explode result v] ]
|
|
set explode_e_length [llength [explode result e] ]
|
|
set explode_w_length [llength [explode result w] ]
|
|
set explode_f_length [llength [explode result f] ]
|
|
|
|
if { ${explode_v_length} != ${good_vertex} } {
|
|
puts "vertex: Faulty"
|
|
} else {
|
|
puts "vertex: OK"
|
|
}
|
|
if { ${explode_e_length} != ${good_edge} } {
|
|
puts "edge: Faulty"
|
|
} else {
|
|
puts "edge: OK"
|
|
}
|
|
if { ${explode_w_length} != ${good_wire} } {
|
|
puts "wire: Faulty"
|
|
} else {
|
|
puts "wire: OK"
|
|
}
|
|
if { ${explode_f_length} != ${good_face} } {
|
|
puts "face: Faulty"
|
|
} else {
|
|
puts "face: OK"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|