version 6.30 0 Fractal 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Fractal,"Fractal","",220,220,220)@ End Sub @EndOfDesignText@'ksa2003@hotbox.ru 'www.basic4ppc.zinevich.ru ' Sub Globals 'Fractal x=0 y=0 Dim v(4,6) v()=Array((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)) End Sub Sub App_Start Fractal.Show Fractal.DrawString("Fractal",12,10,10,10,30,cGreen) For i=1 To 10000 'quality: 10000-70000 r=Rnd(0,100)/100 If r>=0 AND r<0.01 Then c=0 If r>=0.01 AND r<0.8 Then c=1 If r>=0.8 AND r<0.9 Then c=2 If r>=0.9 AND r<=1 Then c=3 x1=(v(c,0)*x)+(v(c,1)*y)+v(c,4) y1=(v(c,2)*x)+(v(c,3)*y)+v(c,5) x=x1 y=y1 Fractal.Line(x*23+100,235-y*23,x*23+100+1,235-y*23+1,cGreen) Next End Sub