mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
27 lines
546 B
Plaintext
27 lines
546 B
Plaintext
puts "*"
|
|
puts "TODO OCC22810 ALL: Tcl Exception: No Extreme faces"
|
|
puts "TODO OCC22810 All:TEST INCOMPLETE"
|
|
|
|
box b 1 1 1
|
|
nexplode b f
|
|
profile pp x 0.6 y 0.6 x -0.6 y -0.6
|
|
ttranslate pp 0.2 0.2 1
|
|
featprism b pp b_4 0 0 -1 0 1
|
|
featperformval prism r 0.8
|
|
vertex v1 0.2 0.2 1
|
|
vertex v2 0.8 0.8 1
|
|
vertex v3 0.8 0.8 1.5
|
|
vertex v4 0.2 0.2 1.5
|
|
edge e1 v2 v3
|
|
edge e2 v3 v4
|
|
edge e3 v4 v1
|
|
wire w e1 e2 e3
|
|
|
|
plane pl 0.8 0.8 1 1 -1 0
|
|
featlf r w pl 0.1 0.1 0 0 0 0 1 1
|
|
if { [catch { featperform lf result } ] } {
|
|
puts "Error in featperform"
|
|
}
|
|
|
|
set square 0
|