mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-15 04:04:07 +08:00
21 lines
493 B
Plaintext
21 lines
493 B
Plaintext
puts "========================"
|
|
puts "OCC22614"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# Scaling fails with linear (p-)curves
|
|
#######################################################################
|
|
|
|
cylinder c 50
|
|
|
|
mkface f c 0 5 0 10
|
|
|
|
tscale f 0 0 0 0.001
|
|
|
|
renamevar f result
|
|
|
|
set square 0.0025
|
|
|
|
checknbshapes result -vertex 4 -edge 4 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 10
|
|
set 2dviewer 1
|