slaPcd -   
 SYNOPSYS 
 void  slaPcd(disco, x, y)
 PARAMETERS 
-   double  disco 
-  
-   double *x 
-  
-   double *y 
-  
 DESCRIPTION 
  Apply pincushion/barrel distortion to a tangent-plane [x,y].
 Given
     disco    double      pincushion/barrel distortion coefficient
     x,y      double      tangent-plane coordinates
 Returned
     *x,*y    double      distorted coordinates
 Notes
   1)  The distortion is of the form rp = r*(1 + c*r2), where r is
       the radial distance from the tangent point, c is the disco
       argument, and rp is the radial distance in the presence of
       the distortion.
   2)  For pincushion distortion, c is +ve;
       For barrel distortion, c is -ve.
   3)  For x,y in units of one projection radius (in the case of
       a photographic plate, the focal length), the following
 disco values apply
           geometry          disco
           astrograph         0.0
           schmidt           -0.3333
           AAT pf doublet  +147.069
           AAT pf triplet  +178.585
           AAT f/8          +21.20
           JKT f/8          +13.32
    4)  There is a companion routine, slaUnpcd, which performs
        an approximately inverse operation.
  P.T.Wallace   Starlink   15 July 1993
 SEE ALSO