1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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
|
