18     tfloat cot_phi1 = adjust_value_to_bounds( 1 / tan( alpha3 - alpha1 ) , COT_MAX ) ;
    19     tfloat cot_phi2 = adjust_value_to_bounds( 1 / tan( alpha1 - alpha2 ) , COT_MAX ) ;
    24   tfloat cx1 = L1/4 - L2*cot_phi1/2 ;
    25   tfloat cy1 = L2/2 + L1*cot_phi1/4 ;
    27   tfloat cx2 = -L1/4 + L2*cot_phi2/2 ;
    28   tfloat cy2 =  L2/2 + L1*cot_phi2/4 ;
    30   tfloat N = cx1 * cy2 - cx2 * cy1 ;
    31   tfloat D = (cy2 - cy1)*(cy2 - cy1) + (cx2 - cx1)*(cx2 - cx1) ;
    35   *x = K * ( cy2 - cy1 ) ;
    36   *y = K * ( cx1 - cx2 ) ;
    45     tfloat cot_phi1 = adjust_value_to_bounds( 1 / tan( alpha3 - alpha1 ) , COT_MAX ) ;
    46     tfloat cot_phi2 = adjust_value_to_bounds( 1 / tan( alpha1 - alpha2 ) , COT_MAX ) ;
    48   tfloat L1 = ( x3 - x2 ) / 2 ;
    51   tfloat cx1 = L1 - L2*cot_phi1 ;
    52   tfloat cy1 = L2 + L1*cot_phi1 ;
    54   tfloat cx2 = -L1 + L2*cot_phi2 ;
    55   tfloat cy2 =  L2 + L1*cot_phi2 ;
    57   tfloat N = cx1 * cy2 - cx2 * cy1 ;
    58   tfloat D = (cy2 - cy1)*(cy2 - cy1) + (cx2 - cx1)*(cx2 - cx1) ;
    62   *x = K * ( cy2 - cy1 ) ;
    63   *y = K * ( cx1 - cx2 ) ;
 
double tfloat
Defines the type for float/double.