clear all;
atr='';
P='';
n=0;
t=0;
A=[0 0 0];
B=[1 -1 1];
C=[-1 1 1];
D=[-1 -1 -1];
E=[1 1 -1];
clc
namef=input('podaj plik, ktory cie interesuje w ''    :');
f=    input('podaj ksztalt punktu w apostrofie       :'); 
gr=   input('podaj grubosc punktu: 0...1,2...        :');
colr= input('podaj kolor punktu { r g w y b c }      :'); 

[fid,MESSAGE]=fopen(namef);
[y,COUNT]=fscanf(fid,'%f',[3,inf]);

   y=y';
   clf reset
   whitebg('w')
 
    if namef(2)=='a' atr=A;
      elseif namef(2)=='b' atr=B;
      elseif namef(2)=='c' atr=C;
      elseif namef(2)=='d' atr=D;
      elseif namef(2)=='e' atr=E;
    end      
             
    hold on
    colr(2)=f;
    hndl=plot3(y(:,1),y(:,2), y(:,3),colr);
    set(hndl,'LineWidth',gr) 
    set(hndl,'MarkerSize',gr)
    p=[p,'Trajektorie atraktora (',num2str(atr),')'];  
    title(p);  
    plot3(atr(1),atr(2),atr(3),'k+');    
   
  n=str2num(namef(3))

  for i=-n:n;
   for j=-n:n;
    for k=-n:n;
     a=linspace(0,k);
     b=linspace(j,j);
     c=linspace(i,i);
     plot3(a,b,c,'m.');
     plot3(b,a,c,'m.');
     plot3(b,c,a,'m.');
     
    end
   end
  end

k=0;
n=0;
d=30;     % k¹t obrotu

  while (k~=5)
   k=menu('kierunek','w lewo','w prawo','w gore','w dol','wyjscie');
   if (k==2)
    n=n-d;
    view(n,d)
   elseif (k==1)
    n=n+d;
    view(n,d)
   elseif (k==4)
    t=t+d;
    view(n,t)
   elseif (k==3)
    t=t-d;
    view(n,t) 
   end
  end

whitebg
clf 
close    

%--------------------
