mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
34dd4990ed
Modifications: 1.Test cases 2. locate_data_file from DrawResources/TestCommands.tcl Fix for mesh end Adjusting testing cases for current state of master using new organization of data files
17 lines
340 B
Plaintext
17 lines
340 B
Plaintext
# Original bug : ger50084
|
|
# Date : 15 Sept 98
|
|
|
|
restore [locate_data_file CTO900_ger50084c.rle] 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
|