단위 사각형 내부에 랜덤하게 라인을 채움

RandomLines[n_]:=Table[{Hue[i/n],
Line[Table[{#1,#2}&[Random[],Random[]],{2}]]},{i,n}]

l=RandomLines[50];
movie=Table[Graphics[
{Rectangle[{0,0}], Thickness[.015],Take[l,n]},
AspectRatio->Automatic],{n,0,Length[l]}];

Export["d:\dislinpk.gif",Show[#,PlotRange->Table[{0,1},{2}]]&/@movie]//Timing

Show[Graphics[{Rectangle[{0,0}],Thickness[.015],l},AspectRatio->Automatic]]