mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
21 lines
428 B
Plaintext
Executable File
21 lines
428 B
Plaintext
Executable File
|
|
puts "========================"
|
|
puts " OCC422 "
|
|
puts "(case 2)"
|
|
puts "========================"
|
|
puts ""
|
|
|
|
plane ps 10 -3 0 1 0 0 0 .2 1
|
|
psphere ps ps 20
|
|
profile pf o 5 1 5 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 30
|
|
bfuse f ps pr
|
|
nexplode f f
|
|
|
|
depouille result f 0 0 1 f_4 4 0 0 30 0 0 1
|
|
|
|
checkprops result -s 5719.09
|
|
checkshape result
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|