puts "============" puts "OCC24633" puts "============" puts "" ####################################################################### # Incorrect projection of a curve on a surface ####################################################################### restore [locate_data_file bug24633_comp_50.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