mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-02 17:46:22 +03:00
1a75fcddae
Correct adjusting pcurves on periodic surfaces: take the middle point as a reference point.
14 lines
346 B
Plaintext
14 lines
346 B
Plaintext
#D4----------------------------------------------
|
|
puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to"
|
|
|
|
plane pt 0 0 0 1 0 0
|
|
ptorus pt pt 15 12
|
|
profile pf o -5 .5 15 l 10 c 2 90 l 5 d -1 0 \
|
|
l 14 d 0 -1 l 5 c 2 90
|
|
prism pr pf 0 0 25
|
|
bfuse f pt pr
|
|
nexplode f f
|
|
depouille result f 0 0 1 f_4 5 0 0 40 0 0 1
|
|
|
|
checkprops result -s 9447.73
|