mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
22 lines
453 B
Plaintext
Executable File
22 lines
453 B
Plaintext
Executable File
|
|
puts "========================"
|
|
puts " OCC259 "
|
|
puts "========================"
|
|
puts ""
|
|
######################################################
|
|
##Inequality behaviour of checkshape -top on SunOS and IRIX.
|
|
######################################################
|
|
|
|
pcylinder b1 1 2
|
|
|
|
dset r sqrt(2)/2
|
|
box b2 -r -r 0 2*r 2*r 2
|
|
trotate b2 0 0 0 0 0 1 135
|
|
|
|
bfuse result b2 b1
|
|
puts [checkshape -top result]
|
|
|
|
set check_square 1
|
|
set square 18.8496
|
|
set 2dviewer 0
|