mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
15 lines
408 B
Plaintext
Executable File
15 lines
408 B
Plaintext
Executable File
#E6----------------------------------------------
|
|
puts "TODO ?OCC22803 ALL: Faulty shapes in variables faulty_1 to faulty_"
|
|
puts "TODO ?OCC25111 ALL: The area of the resulting shape is"
|
|
|
|
ptorus pt 25 24 90
|
|
profile pr o 20 18 5 p 0 -1 0 1 0 0 l 10 t 0 30 \
|
|
t -7 0
|
|
revol pr pr 18 18 0 0 0 1 360
|
|
bfuse f pt pr
|
|
nexplode f f
|
|
depouille result f 0 0 1 f_5 3 0 0 35 0 0 1 \
|
|
f_6 3 0 0 35 0 0 1
|
|
|
|
set square 10782.8
|