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_5/bug24037_2
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

26 lines
695 B
Plaintext
Executable File

puts "================"
puts "OCC24037"
puts "================"
puts ""
#######################################################################
# Wrong result done by General Fuse algorithm
#######################################################################
restore [locate_data_file bug24037_coude_sain.brep] b1
restore [locate_data_file bug24037_plans_bloc.brep] b2
explode b1 so
copy b1_1 b1
explode b2 f
copy b2_3 b2
don b1 b2
bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbuild result
checknbshapes result -t -vertex 16 -edge 24 -wire 13 -face 12 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 70
checkview -display result -3d -path ${imagedir}/${test_image}.png