mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
26 lines
609 B
Plaintext
Executable File
26 lines
609 B
Plaintext
Executable File
puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang"
|
|
puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"
|
|
|
|
puts "================"
|
|
puts "OCC140"
|
|
puts "================"
|
|
puts ""
|
|
#########################################################
|
|
## Fillet is created incorrectly on attached shape.
|
|
#########################################################
|
|
|
|
restore [locate_data_file shading_137.brep] s
|
|
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
|