mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-06 08:47:11 +08:00
20 lines
300 B
Plaintext
Executable File
20 lines
300 B
Plaintext
Executable File
|
|
puts "========================"
|
|
puts "BUC60801"
|
|
puts "========================"
|
|
|
|
box b -10 -10 -10 30 40 40
|
|
box a1 -20 0 -20 20 20 100
|
|
box a2 0 20 -20 50 20 100
|
|
box c -20 -20 20 100 100 100
|
|
bcut r1 b a1
|
|
bcut r2 r1 a2
|
|
bcut r3 r2 c
|
|
checkshape r3
|
|
|
|
renamevar r3 result
|
|
|
|
set square 6400
|
|
set 2dviewer 0
|
|
|