mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-21 10:13:43 +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
28 lines
583 B
Plaintext
28 lines
583 B
Plaintext
# Original bug : cts21322
|
|
# Date : 16 Sept 98
|
|
|
|
restore [locate_data_file contour.rle] cont
|
|
mkplane cont cont
|
|
|
|
puts "*"
|
|
|
|
puts "TODO OCC22810 ALL:Error in featperform"
|
|
puts "TODO OCC22810 ALL:Error : The feat can not be build"
|
|
|
|
restore [locate_data_file CFE900_cts21gbs.rle] base
|
|
restore [locate_data_file cts21322_face.rle] wire
|
|
|
|
explode base face
|
|
copy base_6 fsketch
|
|
|
|
splitshape cont1 fsketch fsketch wire
|
|
explode cont1
|
|
bcut cont fsketch cont1_1
|
|
|
|
featprism base cont fsketch 1 0 0 0 1
|
|
if { [catch { featperform prism result } ] != 0 } {
|
|
puts "Error in featperform"
|
|
}
|
|
|
|
set square 0
|