5 #######################################################################
6 # Incorrect PCurve construction
7 #######################################################################
9 restore [locate_data_file bug25084_c.draw] c
10 restore [locate_data_file bug25084_s10.draw] s
14 regexp {The length cx is +([0-9.+eE]+)} [length cx] full cx_length
16 set good_length 4.6201952691345385
17 checkreal "length of cp1" ${cx_length} ${good_length} 0.01 0.01
20 view 1 -2D- 728 20 400 400