mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
24 lines
514 B
Plaintext
Executable File
24 lines
514 B
Plaintext
Executable File
|
|
puts "================"
|
|
puts "OCC140"
|
|
puts "================"
|
|
puts ""
|
|
#########################################################
|
|
## Fillet is created incorrectly on attached shape.
|
|
#########################################################
|
|
|
|
restore [locate_data_file shading_137.brep] s
|
|
puts [checkshape s]
|
|
|
|
dset SCALE1 5
|
|
tscale s 0 0 0 SCALE1
|
|
explode s e
|
|
blend sh s 4.5*SCALE1 s_4 4.5*SCALE1 s_5 4.5*SCALE1 s_1
|
|
explode sh so
|
|
|
|
renamevar sh_1 result
|
|
fsameparameter result
|
|
|
|
set square 3.65424e+06
|
|
set 2dviewer 0
|