R:=0.5+Random[]/2; S:=RandomReal[NormalDistribution[0,1]];
Manipulate[Graphics[
{Table[{RGBColor[R,R,1],Dynamic[Disk[p1+{S,S},Evaluate[Random[]]]]},{k,100}],
{RGBColor[1,0,0],Thickness[0.002],Locator[Dynamic[p1],ImageSize->40]},
{RGBColor[1,0,0],FontSize->60,Text["AbstractArt",{0,1.8}]}},
PlotRange->{{-2,2},{-2,2}},Background->RGBColor[0,0,0],ImageSize->{600,600}],
{{p1,{0,0}},{-2,-2},{2,2},ControlType->None}]