1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/modalg_2/bug5805_43
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

59 lines
1.5 KiB
Plaintext
Executable File

puts "TODO OCC24862 ALL: Error : is WRONG because number of"
puts "TODO OCC24862 ALL: Error : The area of result shape is"
puts "TODO OCC24682 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "============"
puts "OCC5805"
puts "============"
#######################################################################
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
#######################################################################
set BugNumber OCC5805
set z1 5
set z2 -5
# beziercurve1
beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
mkedge e1 bc1
wire UpCover e1
# beziercurve2
beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
mkedge e2 bc2
wire BottomCover e2
set issolid 1
set isruled 1
if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
puts "Faulty ${BugNumber} : thrusections is wrong"
}
set distance -0.001
catch { OFFSETSHAPE $distance {s_3} $calcul $type }
# Bad result
checkprops result -s 495.635
checkshape result
checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 13
set index [lsearch [whatis s] Closed]
if {$index == -1} {
puts "Faulty ${BugNumber} : s is not Closed shape"
}
set index [lsearch [whatis result] Closed]
if {$index == -1} {
puts "Faulty ${BugNumber} : result is not Closed shape"
}
checkview -display result -2d -path ${imagedir}/${test_image}.png