mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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
20 lines
372 B
Plaintext
20 lines
372 B
Plaintext
# Original bug : fra60618
|
|
# Date : 23 Mar 98
|
|
|
|
restore [locate_data_file CTO900_fra60618-part.rle] base
|
|
restore [locate_data_file fra60618-tool.rle] wire
|
|
|
|
mkplane cont wire
|
|
|
|
nexplode base face
|
|
copy base_15 funtil
|
|
|
|
## creation de face infinie support
|
|
mksurface p15 base_15
|
|
mkface f15 p15
|
|
|
|
featprism base cont cont 0 0 -1 0 1
|
|
featperform prism result f15
|
|
|
|
set square 16398.2
|