mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
23 lines
604 B
Plaintext
23 lines
604 B
Plaintext
puts "========================"
|
|
puts "OCC22614"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# Scaling fails with linear (p-)curves
|
|
#######################################################################
|
|
|
|
pcylinder p 10 50
|
|
|
|
explode p f
|
|
|
|
# p_1 is a cylindrical face
|
|
tscale p_1 0 0 0 0.001
|
|
|
|
renamevar p_1 result
|
|
|
|
checkprops result -s 0.00314159
|
|
checkshape result
|
|
|
|
checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 7
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|