1 puts "================"
3 puts "================"
5 ##############################################################
6 # Point->Curve Projection/Extrema fails.
8 ##############################################################
13 set exp_y 16.8949999999593
14 set exp_z 0.534684851975074
16 restore [locate_data_file bug27059.brep] aC
22 set info1 [proj curve 12.699999 16.8949999999593 0.534684851975074]
24 if {![regexp {ext_1} $info1]} {
25 puts "Error: No extrema found in case 1"
28 checklength ext_1 -l 1.0e-6
32 set info2 [proj curve 12.700001 16.8949999999593 0.534684851975074]
34 if {![regexp {ext_1} $info2]} {
35 puts "Error: No extrema found in case 2"
38 checklength ext_1 -l 1.0e-6
42 set info3 [proj curve 12.700000 16.8949999999593 0.534684851975074]
43 if {![regexp {ext_1} $info3]} {
44 puts "Error: No extrema found in case 3"
47 set case3Info [dump ext_1]
48 regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $case3Info full x y z
49 checkreal "case 3 coord X" $x $exp_x $absTol $relTol
50 checkreal "case 3 coord Y" $y $exp_y $absTol $relTol
51 checkreal "case 3 coord Z" $z $exp_z $absTol $relTol