(* Fractal Leaf *)


II={{0,0,0,0.16,0,0},{0.85,0.04,-0.04,0.85,0,1.6},{0.2,-0.26,0.23,0.22,0,1.6},{-0.15,0.28,0.26,0.24,0,0.44}};
FF[jj_,xx_]:={II[[jj]][[1]]*xx[[1]]+II[[jj]][[2]]*xx[[2]]+II[[jj]][[5]],II[[jj]][[3]]*xx[[1]]+II[[jj]][[4]]*xx[[2]]+II[[jj]][[6]]};
DD[uu_]:=Which[uu<0.01,1,uu<0.86,2,uu<0.93,3,uu<1.00,4];
n1=60; n2=100;nn=n1*n2;
lambda=Graphics[{RGBColor[0,1,0],Line[{{-2.5,0},{3.0,0},{3.0,10.4},{-2.5,10.4},{-2.5,0}}]}];
ss={1/2,1/2};
orbit={ss};
Do[tt=orbit[[Length[orbit]]];jj=DD[Random[]];uu=FF[jj,tt];orbit=Append[orbit,uu],{mm,nn}];
orbim=Table[Show[lambda,ListPlot[Take[orbit,{1,jj*n2}]],Axes->False],{jj,1,n1}];

ListAnimate[orbim,AnimationRepetitions->3]

Length[orbim]

orbim[[1]]

orbim[[60]]