1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "============"
puts "OCC25084"
puts "============"
puts ""
#######################################################################
# Incorrect PCurve construction
#######################################################################
restore [locate_data_file bug25084_c.draw] c
restore [locate_data_file bug25084_s10.draw] s
project cx c s
regexp {The length cx is +([0-9.+eE]+)} [length cx] full cx_length
set good_length 4.6201952691345385
checkreal "length of cp1" ${cx_length} ${good_length} 0.01 0.01
#v2d2
view 1 -2D- 728 20 400 400
2dfit
set only_screen_axo 1
|
