fernjpeg.m

来自「exm for Experiments with MATLAB (by Clev」· M 代码 · 共 14 行

% FERNJPEG   Create a full screen .jpg file of the fern.

bg = [0 0 85];      % Dark blue background
fg = [255 255 255]; % White dots
sz = get(0,'screensize');
rand('state',0)
X = finitefern(500000,sz(4),sz(3));
d = fg - bg;
R = uint8(bg(1) + d(1)*X);
G = uint8(bg(2) + d(2)*X);
B = uint8(bg(3) + d(3)*X);
F = cat(3,R,G,B);
imwrite(F,'myfern.jpg','jpg');