1puts "========" 2puts "OCC23706" 3puts "========" 4puts "" 5#################################### 6## Cannot project point on curve 7#################################### 8 9set x 3.0 10set y 3.0 11set z 2.0 12set pp_ch1 1.1738953633378706 13set pp_ch2 2.1611867552406454 14set pp_ch3 3.5000000059308389 15set pp_ch4 5.0399884503606023 16set pp_ch5 5.4804063007678074 17set pp_ch6 6.2485611263687888 18set pp_ch7 6.7381612209715556 19 20restore [locate_data_file bug23706_c12.draw] c 21set info [proj c $x $y $z] 22 23regexp {parameter 1 += +([-0-9.+eE]+)} $info full pp1 24regexp {parameter 2 += +([-0-9.+eE]+)} $info full pp2 25regexp {parameter 3 += +([-0-9.+eE]+)} $info full pp3 26regexp {parameter 4 += +([-0-9.+eE]+)} $info full pp4 27regexp {parameter 5 += +([-0-9.+eE]+)} $info full pp5 28regexp {parameter 6 += +([-0-9.+eE]+)} $info full pp6 29regexp {parameter 7 += +([-0-9.+eE]+)} $info full pp7 30if { $pp1 != $pp_ch1 || 31 $pp2 != $pp_ch2 || 32 $pp3 != $pp_ch3 || 33 $pp4 != $pp_ch4 || 34 $pp5 != $pp_ch5 || 35 $pp6 != $pp_ch6 || 36 $pp7 != $pp_ch7 } { 37 puts "Error : Projection is not correct" 38} else { 39 puts "OK: Projection is correct" 40} 41