mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
21 lines
561 B
Plaintext
21 lines
561 B
Plaintext
puts "TODO ?OCC12345 ALL: Error : The feat grid is not valid. The area is 0."
|
|
puts "TODO ?OCC12345 ALL: Error : The area of the resulting shape is 0"
|
|
|
|
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
|