mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
15 lines
348 B
Plaintext
15 lines
348 B
Plaintext
#D5----------------------------------------------
|
|
puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_4"
|
|
|
|
plane pt 0 0 0 1 0 0
|
|
ptorus pt pt 15 15
|
|
profile pf o -8 -12 15 l 5 c 2 90 l 20 c 2 90 \
|
|
l 5
|
|
polyline pl 0 0 15 0 0 45
|
|
pipe p2 pl pf
|
|
bfuse f pt p2
|
|
nexplode f f
|
|
depouille result f 0 0 1 f_6 5 0 0 44 0 0 1
|
|
|
|
set square 13239.6
|