%  sierp3f(N) displays the N'th step in the generation of the fractal
%  known as the Sierpinski butthead, using color interpolation.
%  sierp3f(0) displays the string "f**k"; sierp3f(1) displays four
%  other strings left when you try to ignore the original one; etc.
%
%  sierp3f interpolates the colors of the strings between the four
%  vertices.  The vertices are colored white, red, green and blue.
%
%  This function should not be used by or next to people with low
%  tolerance for colorful profanity.
%
%  See also sierp3, sierp3c.



% "sierp3f.m" is screwed up in the head.


function [] = sierp3f(n)

%%% calculate coordinates of the vertices
x = [0, 1, 1/2,       1/2      ];
y = [0, 0, sqrt(3)/2, sqrt(3)/6];
z = [0, 0, 0,         sqrt(2/3)];

%%% set window parameters
clf;
view(viewmtx(45,-7,35));
set(gca,'Visible','off');
colormap([]);

%%% call the "helper" procedure and select the color map
sierpiterf(x,y,z,n,[1,0,0,1],[0,1,0,1],[0,0,1,1]);
