1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
2014-07-24 13:32:20 +04:00

33 lines
888 B
Plaintext

puts "============"
puts "OCC25095"
puts "============"
puts ""
#######################################################################
# Wrong result obtained by projection algorithm
#######################################################################
restore [locate_data_file bug25095_fz639.brep] b1
restore [locate_data_file bug25095_fz5075.brep] b2
mksurface s1 b1
bopcurves b1 b2
trim ct1 c_1 0.79929107016766299 7.0824763773472492
trim ct2 c_1 0.79929107016766343 7.0824763773472501
project cp1 ct1 s1
project cp2 ct2 s1
regexp {The length cp1 is +([0-9.+eE]+)} [length cp1] full length1
regexp {The length cp2 is +([0-9.+eE]+)} [length cp2] full length2
set good_length 7.2783309522
checkreal "length of cp1" ${length1} ${good_length} 0.01 0.01
checkreal "length of cp2" ${length2} ${good_length} 0.01 0.01
#v2d2
view 1 -2D- 728 20 400 400
2dfit
set only_screen_axo 1