mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
17 lines
364 B
Plaintext
17 lines
364 B
Plaintext
# Original bug : pro7637
|
|
# Date : 16apr97
|
|
|
|
dset SCALE 100
|
|
## Prismed oblong creation (size 200 mm)
|
|
profile f1 c 50*SCALE 180 x -100*SCALE c 50*SCALE 180
|
|
prism p1 f1 0 0 30*SCALE
|
|
|
|
## Box creation (size 300 mm)
|
|
profile f2 x 300*SCALE y 200*SCALE x -300*SCALE
|
|
ttranslate f2 -200*SCALE -50*SCALE 0
|
|
prism p2 f2 0 0 -50*SCALE
|
|
|
|
bfuse result p2 p1
|
|
|
|
set square 1.85425e+09
|