mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
28 lines
407 B
Plaintext
28 lines
407 B
Plaintext
plane pl 0 0 0 0 0 1
|
|
mkface fa pl -1 1 -1 1
|
|
|
|
dset azval 20
|
|
dset dipval 80
|
|
dset radval 0.5
|
|
|
|
dset az azval*pi/180
|
|
dset dip dipval*pi/180
|
|
dset dx sin(dip)*sin(az)
|
|
dset dy sin(dip)*cos(az)
|
|
dset dz cos(dip)
|
|
|
|
dset ux cos(az)
|
|
dset uy sin(az)
|
|
dset uz 0
|
|
|
|
circle circ 0.5 0.5 0 dx dy dz ux uy uz radval
|
|
plane pl2 0.5 0.5 0 dx dy dz
|
|
|
|
mkedge edg circ
|
|
wire wir edg
|
|
mkface fb pl2 wir
|
|
|
|
bsection result fa fb
|
|
|
|
set length 1
|