mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-16 10:08:36 +03:00
18 lines
410 B
Plaintext
18 lines
410 B
Plaintext
restore [locate_data_file cylindre.rle] cyl
|
|
restore [locate_data_file contour.rle] cont
|
|
mkplane cont cont
|
|
nexplode cyl F
|
|
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 82351.1
|