Geometry pointOnLine Fails

[Thomas D. Dean]

I have a failure with pointOnLine, using the line and point option.

The document allows the arguments to be a line and a point or a line and 
a distance.

The function definition only seems to handle the line and distance option.

I think the definition should be something like

function point = pointOnLine(lin, pos)
  ang = lineAngle(lin);
  if  size(pos) == [1,2]
    point = [lin(:,1)+pos(1,1).*cos(ang), lin(:,2)+pos(1,2).*sin(ang)];
  elseif size(pos) == [1,1]
    point = [lin(:,1) + pos .* cos(ang), lin(:,2) + pos .* sin(ang)];
  else
    error('pointOnLine(line,d), arg d must be a point or a scalar');
  endif
endfunction;

Tom Dean