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 "OCC25981"
puts "========"
puts ""
#################################################
# Wrong result obtained by projection algorithm.
#################################################
restore [locate_data_file bug25981_cb1_4.draw] c
restore [locate_data_file bug25981_b2f.brep] f
mksurface s f
project x c s
2dcvalue x 0 firstX firstY
set log [dump firstX]
regexp {([-0-9.+eE]+)} ${log} x1
set tol_abs 1.e-7
if {abs($x1) > $tol_abs} {
puts "Error: Bad start position of projected curve"
}
view 1 -2D- 465 20 400 400
2dfit
pcurve f
xwd ${imagedir}/${casename}.png
|
