mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
28 lines
580 B
Plaintext
28 lines
580 B
Plaintext
puts "============"
|
|
puts "OCC24633"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Incorrect projection of a curve on a surface
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug24633_comp_49.brep] a
|
|
|
|
explode a
|
|
mkcurve c a_1
|
|
mksurface s a_2
|
|
pcurve a_2
|
|
|
|
project prj c s
|
|
|
|
set prj_length [lindex [length prj] end]
|
|
|
|
set good_length 7.2662499016218058
|
|
checkreal "prj_length" ${prj_length} ${good_length} 0.01 0.01
|
|
|
|
#v2d2
|
|
view 1 -2D- 728 20 400 400
|
|
|
|
2dfit
|
|
set only_screen_axo 1
|