transforms = {
AffineTransform[{{0., 0.}, {0., 0.16}}],
AffineTransform[{{{0.85, 0.04}, {-0.04, 0.85}}, {0., 1.6}}],
AffineTransform[{{{0.20, -0.26}, {0.23, 0.22}}, {0., 1.6}}],
AffineTransform[{{{-0.15, 0.28}, {0.26, 0.24}}, {0., 0.44}}]
};
p = {0.01, 0.85, 0.07, 0.07};
step[{x_, y_}] := RandomChoice[p -> transforms][{x, y}]
Graphics[
{
Darker[Green], Point[NestList[step, {0, 0}, 10^4]],
Red, Disk[#, 0.05] & /@ NestList[step, {0, 0}, 10^2],
Yellow, Disk[#, 0.05] & /@ NestList[step, {0, 0}, 10^2],