JOY DIVISION's UNKNOWN PLEASURES Album Cover

on 20 Oct 2021

n=500; % number of column / width of album

b=zeros(1.5*n,1.3*n); % Background area

p=pi*(1:n)/n; % input of sine function

for i=30:-1:1 % number of signal rows

r=zeros(1,n);

% sum sine waves of random magnitudes to create a random signal r

for k=[3:8 20:35]

r=r+rand*((sin(2*k*p)+1)/2);

end

r=floor((7*r+1).*(sin(p).^10)); % convert all values of r to integers because r needs to denote row indexes

% drawing the album cover

for j=1:n

z=r(j)+20*i+60;

b(z:z+3,j+75)=1;

% b(1:r(j)+nS*i+59,j+75)=0;

end

imshow(rot90(b,2));

text(70,710,sprintf('UNKNOWN PLEASURES'),'Color','white','FontSize',17);