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

27 lines
556 B
Plaintext

puts "=========="
puts "OCC21821"
puts "=========="
puts ""
############################################################
# Section of face by plane is not built due to small edges
############################################################
restore [locate_data_file bug21821_plane_tailtop.brep] a
plane p 28.85 0 0 1 0 0
mkface f p -10 10 -10 10
bsection result a f
smallview
clear
display result
display f
display a
fit
checkprops result -l 2.95277
checkshape result
checksection result
checkview -screenshot -2d -path ${imagedir}/${test_image}.png