mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
56 lines
1.3 KiB
Plaintext
Executable File
56 lines
1.3 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
|
|
|
|
checkprops result -s 828.319
|
|
checkshape result
|
|
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"
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
|