mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
28 lines
588 B
Plaintext
28 lines
588 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 grid cannot be built."
|
|
|
|
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
|