mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
23 lines
586 B
Plaintext
23 lines
586 B
Plaintext
restore [locate_data_file cylindre.rle] cyl
|
|
restore [locate_data_file contour.rle] cont
|
|
mkplane cont cont
|
|
nexplode cyl F
|
|
|
|
puts "*"
|
|
#puts "TODO OCC22810 All:Faulty .*"
|
|
puts "TODO OCC22810 ALL:Faulty shapes in variables faulty_1 to faulty_3"
|
|
puts "TODO OCC22810 ALL:Error : The square of result shape is"
|
|
ttranslate cont 0 0 -100
|
|
|
|
#
|
|
# flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
|
|
#
|
|
mksurface surf cyl_3
|
|
mkface face surf
|
|
featprism cyl cont cont 0 1 0 0 1
|
|
if { [catch { featperform prism result face face } ] != 0 } {
|
|
puts "Error in featperform"
|
|
}
|
|
|
|
set square 0
|