function S=pine(A)
%Pine example from Barnsley pg.95 (IFS w/ condsensation).  -JJL
if nargin==0,A=[0 0]';end
[M,N]=size(A);
if M~=2,error('Incorrect data format'),end;
b1=repmat([.25,0]',1,N);
y1=.75*A+b1;
y2=0:.01:1;xz=zeros(size(y2));
x=[y1(1,:),xz];y=[y1(2,:),y2];
plot(x,y,'.')
if nargout>0,S=[x;y];end
