mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-15 05:28:47 +08: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
|