% function [P] = framepoints()
%
% Returns the 3x25 matrix containing the world points of the calibration
% frame in the Keck Laboratory
%
% Author: Patrick Baker
%
function [P] = framepoints()
  % These are REAL point locations
  P=[[ 0.0000  0.0000  0.0000 1];   % Rod 1 Outer
     [ 0.4803  0.4253  0.3403 1];   % Rod 1 Middle
     [ 0.8257  0.7278  0.5855 1];   % Rod 1 Inner
     [-0.0142  1.9180 -0.0134 1];   % Rod 2 Outer
     [ 0.4749  1.5084  0.3349 1];   % Rod 2 Middle
     [ 0.8242  1.2140  0.5842 1];   % Rod 2 Inner
     [ 2.2367  1.9116 -0.0140 1];   % Rod 3 Outer
     [ 1.7444  1.5063  0.3349 1];   % Rod 3 Middle
     [ 1.3943  1.2138  0.5843 1];   % Rod 3 Inner
     [ 2.2180  0.0000  0.0000 1];   % Rod 4 Outer
     [ 1.7387  0.4266  0.3408 1];   % Rod 4 Middle
     [ 1.3925  0.7280  0.5856 1];   % Rod 4 Inner
     [ 2.2208 -0.0050  1.5765 1];   % Rod 5 Outer
     [ 1.7382  0.4284  1.2361 1];   % Rod 5 Middle
     [ 1.3921  0.7289  0.9893 1];   % Rod 5 Inner
     [ 2.2306  1.9178  1.5904 1];   % Rod 6 Outer
     [ 1.7424  1.5092  1.2400 1];   % Rod 6 Middle
     [ 1.3936  1.2146  0.9902 1];   % Rod 6 Inner
     [-0.0172  1.9145  1.5893 1];   % Rod 7 Outer
     [ 0.4733  1.5086  1.2398 1];   % Rod 7 Middle
     [ 0.8235  1.2145  0.9903 1];   % Rod 7 Inner
     [ 0.0003  0.0000  1.5763 1];   % Rod 8 Outer
     [ 0.4804  0.4254  1.2352 1];   % Rod 8 Middle
     [ 0.8256  0.7275  0.9896 1];   % Rod 8 Inner
     [ 1.1084  1.1261  0.7876 1]]'; % Middle Point