Koch Curve Examples

RCCP1[s_]:=Module[{a,k,n,t,x0,y0},
k=RandomInteger[{3,6}]; n=RandomInteger[{3,15}];

x0=Random[]; y0=Random[];
a=RandomInteger[{10,170}];t=RandomInteger[{2,4}];
Graphics[{Table[{Hue[2*i/n],Thickness[.1^t],
GeometricTransformation[KochCurve[

k,{0,a \[Degree],-a \[Degree],
-a \[Degree],a \[Degree]}]/.Line->BSplineCurve,
RotationTransform[i*Pi/n,{.5,0}]]},{i,2n}],

Text[{a,k,n},{0,-.7}],Text[{t,x0,y0},{.9,.7}]},
ImageSize->s,Background->RGBColor["silver"]]]
{RCCP1[400],RCCP1[400]}