mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
18 lines
361 B
Plaintext
18 lines
361 B
Plaintext
# Original bug : ger50084
|
|
# Date : 15 Sept 98
|
|
|
|
restore [locate_data_file CTO900_ger50084c.rle] base
|
|
updatetolerance base
|
|
restore [locate_data_file ger50084_face.rle] wire
|
|
|
|
## contour est un wire -> on en fait une face
|
|
mkplane cont wire
|
|
|
|
explode base face
|
|
copy base_7 funtil
|
|
|
|
featprism base cont cont 0 0 1 1 1
|
|
featperform prism result funtil
|
|
|
|
set square 1146.7
|