%===============================
% [] = molegenerator()
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% NFT = easy money !!!
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% LAEFL - 20/02/2022 - 22:22
%===============================

function [] = molegenerator()

pkg load image;

tab = 'molegenerator.png';
tab = double(imread(tab))/255;
img = ones(700,700,3);

bk = tab(1:700,:,:);
bk = reshape(bk,[700,700,6,3]);
yk = tab(701:1400,:,2);
yk = reshape(yk,[700,700,6,1]);
sk = tab(1401:2100,1:1400,1);
sk = reshape(sk, [700,700,2,1] );
tk = tab(1401:2100,1401:4200,1);
tk = reshape(tk,[700,700,4,1]);
cf = tab(2101:2800,1:700,1);
ct = tab(2101:2800,701:1400,1);
cn = tab(2801:3500,1401:2100,1);
cb = tab(2801:3500,2801:3500,1);
cv = tab(2101:2800,3501:4200,1);
ch = tab(2101:2800,1401:2100,1);
co = tab(2101:2800,2801:3500,1);
cr = tab(2101:2800,2101:2800,1);
cg = tab(2801:3500,2101:2800,1);
cp = tab(2801:3500,701:1400,1);
cq = tab(2801:3500,1:700,1);

ht = mod(0.6+0.55*rand(1),1);
st = 0.25+0.5*rand(1);
vt = 0.1+0.3*rand(1);
hv = 0.5+0.1*rand(1);
sv = 0.1+0.4*rand(1);
vv = 0.75+0.2*rand(1);
hn = mod(0.8+0.25*rand(1),1);
sn = 0.5+0.4*rand(1);
vn = 0.4+0.2*rand(1);
hg = hn;
sg = 0.8*sn;
vg = (3*vn+1)/4;
hf = rand(1);
sf = rand(1);
vf = (2-vt)/2;
ho = mod(0.5+hf+0.1*rand(1),1);
so = 1-sf;
vo = 1-vf;
hh = ho;
sh = so/2;
vh = (1+vo)/2;
hr = mod(hf+0.1*hf,1);
sr = 1-sh;
vr = vh/2;
hb = mod(ht+1+0.1*rand(1),1);
sb = (1+rand(1))/2;
vb = 1-vt;
hp = mod(hh+0.2*rand(1),1);
sp = sh;
vp = vh;
hq = hp;
sq = so;
vq = vo;

np = double(rand(1) > 0.5);
ng = double(rand(1) > 0.5);
nt = tk(:,:,1+ng+2*np);

c = hsv2rgb([hf,sf,vf]);
img(:,:,1) = (1-cf).*img(:,:,1)+c(1)*cf;
img(:,:,2) = (1-cf).*img(:,:,2)+c(2)*cf;
img(:,:,3) = (1-cf).*img(:,:,3)+c(3)*cf;
c = hsv2rgb([ht,st,vt]);
img(:,:,1) = (1-ct).*img(:,:,1)+c(1)*ct;
img(:,:,2) = (1-ct).*img(:,:,2)+c(2)*ct;
img(:,:,3) = (1-ct).*img(:,:,3)+c(3)*ct;
c = hsv2rgb([hn,sn,vn]);
img(:,:,1) = (1-cn).*img(:,:,1)+c(1)*cn;
img(:,:,2) = (1-cn).*img(:,:,2)+c(2)*cn;
img(:,:,3) = (1-cn).*img(:,:,3)+c(3)*cn;
c = hsv2rgb([hv,sv,vv]);
img(:,:,1) = (1-cv).*img(:,:,1)+c(1)*cv;
img(:,:,2) = (1-cv).*img(:,:,2)+c(2)*cv;
img(:,:,3) = (1-cv).*img(:,:,3)+c(3)*cv;
c = hsv2rgb([hb,sb,vb]);
img(:,:,1) = (1-cb).*img(:,:,1)+c(1)*cb;
img(:,:,2) = (1-cb).*img(:,:,2)+c(2)*cb;
img(:,:,3) = (1-cb).*img(:,:,3)+c(3)*cb;
c = hsv2rgb([ho,so,vo]);
img(:,:,1) = (1-co).*img(:,:,1)+c(1)*co;
img(:,:,2) = (1-co).*img(:,:,2)+c(2)*co;
img(:,:,3) = (1-co).*img(:,:,3)+c(3)*co;
c = hsv2rgb([hh,sh,vh]);
img(:,:,1) = (1-ch).*img(:,:,1)+c(1)*ch;
img(:,:,2) = (1-ch).*img(:,:,2)+c(2)*ch;
img(:,:,3) = (1-ch).*img(:,:,3)+c(3)*ch;
c = hsv2rgb([hr,sr,vr]);
img(:,:,1) = (1-cr).*img(:,:,1)+c(1)*cr;
img(:,:,2) = (1-cr).*img(:,:,2)+c(2)*cr;
img(:,:,3) = (1-cr).*img(:,:,3)+c(3)*cr;

if np == 1
c = hsv2rgb([hp,sp,vp]);
img(:,:,1) = (1-cp).*img(:,:,1)+c(1)*cp;
img(:,:,2) = (1-cp).*img(:,:,2)+c(2)*cp;
img(:,:,3) = (1-cp).*img(:,:,3)+c(3)*cp;
c = hsv2rgb([hq,sq,vq]);
img(:,:,1) = (1-cq).*img(:,:,1)+c(1)*cq;
img(:,:,2) = (1-cq).*img(:,:,2)+c(2)*cq;
img(:,:,3) = (1-cq).*img(:,:,3)+c(3)*cq;
endif
if ng == 1
c = hsv2rgb([hg,sg,vg]);
img(:,:,1) = (1-cg).*img(:,:,1)+c(1)*cg;
img(:,:,2) = (1-cg).*img(:,:,2)+c(2)*cg;
img(:,:,3) = (1-cg).*img(:,:,3)+c(3)*cg;
endif

ny = yk(:,:,round(5.9*rand(1)-0.45+1));
ns = sk(:,:,round(1.9*rand(1)-0.45+1));

img(:,:,1) = img(:,:,1).*nt.*ny.*ns;
img(:,:,2) = img(:,:,2).*nt.*ny.*ns;
img(:,:,3) = img(:,:,3).*nt.*ny.*ns;

bb = round(5.9*rand(1)-0.45+1);
nb = reshape(bk(:,:,bb,:),[700,700,3,1]);
mb = max(nb(:,:,2),nb(:,:,3));
img(:,:,1) = mb.*img(:,:,1)+(1-mb).*nb(:,:,1);
img(:,:,2) = mb.*img(:,:,2)+(1-mb).*nb(:,:,2);
img(:,:,3) = mb.*img(:,:,3)+(1-mb).*nb(:,:,3);
if bb == 5
img(:,:,2) = mb.*img(:,:,2)+(1-mb).*nb(:,:,1);
img(:,:,3) = mb.*img(:,:,3)+(1-mb).*nb(:,:,1);
endif

for k = 1:3
img(:,:,k) = imerode(img(:,:,k),ones(3));
img(:,:,k) = imdilate(img(:,:,k),ones(3));
endfor

t = img;
for k = 1:7
t = imfilter(t,ones(7)/49,'replicate');
endfor

img = 2*(img-t)+t;
img = (img(1:2:end,:,:)+img(2:2:end,:,:))/2;
img = (img(:,1:2:end,:)+img(:,2:2:end,:))/2;
img = (img(1:2:end,:,:)+img(2:2:end,:,:))/2;
img = (img(:,1:2:end,:)+img(:,2:2:end,:))/2;

imwrite(uint8(255*img),'mr_mole.png');

endfunction