%###########################################################
% Warthog-2021 using Octave
% Pere Casellas
% Verion 20211101
% GNU GPL 3.0
%##########################################################

pkg load geometry;

f=figure(1,'Name','Warthog');

disp (f);
%hold on;

x1=0;
y1=0;
lw=1;
lc1='red';
lc2='green';
lc3='blue';

F=1050; % Max number of segments
s=10;  % Segments length

% Main loop
for N=1:F;

war=(N**3)/F;
waf=war-fix(war);
alpha=2*pi*waf;

x2=x1+s*cos(alpha);
y2=y1+s*sin(alpha);

if (N <= F/3);
line([x1 x2],[y1 y2],'linewidth',lw,'color',lc1);
endif;
if (N > F/3 & N <= 2*F/3);
line([x1 x2],[y1 y2],'linewidth',lw,'color',lc2);
endif;
if (N > 2*F/3);
line([x1 x2],[y1 y2],'linewidth',lw,'color',lc3);
endif;

x1=x2;
y1=y2;

endfor;

set(1, "papersize", [400, 200]);


%grid on;
%axis ([0 0 200 200], 'equal');
axis ('equal');
axis off;

print (1,'Meugrafic.png','-dpng');
%print (1,'Meugrafic.dxf','-ddxf');
%print (1,'Meugrafic.tex','-dpslatex');


#hold off;
w = waitforbuttonpress;