у меня по красивее будет :)
Код:
Graphics 640,480,16,2
SetBuffer BackBuffer()
x_min# = -3.2
x_max# = 3.2
Const step_x# = 0.01
y_min# = -2.4
y_max# = 2.4
Const step_y# = 0.01
zoom# = 100
or_x = 320
or_y = 240
time_start = MilliSecs()
Cls
LockBuffer BackBuffer()
For x# = x_min To x_max Step step_x
For y# = y_min To y_max Step step_y
op#=0
oq#=0
p#=0
q#=0
itr=0
While ( op+oq<4 And itr < 96)
p = p*q*2 + y
q = op-oq + x
op = p*p
oq = q*q
itr = itr + 1
Wend
x_draw# = x*zoom+or_x
y_draw# = y*zoom+or_y
WritePixelFast x_draw,y_draw,IntColor(op Shl 2,itr Shl 1,itr,255),BackBuffer()
Next
AppTitle x#
Next
UnlockBuffer BackBuffer()
Flip
AppTitle MilliSecs()-time_start
WaitKey
End
Function IntColor(R,G,B,A=255)
Return A Shl 24 Or R Shl 16 Or G Shl 8 Or B Shl 0
End Function
|
