07-04-2009, 04:58 AM
|
#8
|
|
Developer
My Mood:
Join Date: Dec 2007
Location: B.F.
Posts: 308
|
Pretty Nice, Art, I tried it.
I have been working on the same topic, in Lua. I found the whole script on my laptop.
Code:
depth,x0,y0,x1,y1 = 32,-1,-1,1,1
--x0 = -0.65
--y0 = -0.7
--x1 = -0.5
--y1 = -0.6
collist = {}
for i=0,depth do
b = math.floor(i / depth * 1024)
if b > 255 then
b = 255
end
g = math.floor((i - depth / 3) / depth * 1024)
if g > 255 then
g = 255
end
if g < 0 then
g = 0
end
r = math.floor((i - depth / 3 * 2) / depth * 1024)
if r > 255 then
r = 255
end
if r < 0 then
r = 0
end
collist[i] = Color.new(r, g, b)
end
collist[depth-1] = Color.new(0, 0, 0)
-- Drawing Fractal
w,h=480,272
render = Image.createEmpty(480,272)
deltax = x1 - x0
deltay = y1 - y0
for y=0,h-1 do
for x=0,w-1 do
r = 0; n = 0; b = x / w * deltax + x0; e = y / h * deltay + y0; i = 0
while i < depth-1 and r * r < 4 do
d = r; r = r * r - n * n + b; n = 2 * d * n + e; i = i + 1
end
render:pixel(x, y, collist[i])
end
screen:blit(0, 0, render)
screen.waitVblankStart()
screen.flip()
end
while true do
screen.waitVblankStart()
screen:flip()
end
And result:
__________________
00:00: Windows is loading...Come back tomorrow.
01:00 : Booting done.Not yet errors encountered...
01:10: Fatal error.Windows has been detected on logical drive
01:22: Keyboard Locked, try everything.
01:42 : Mouse Device Pilot not found, or uninstalled.Press Left-Bouton to continue.
01:50 : Ending User session.Do you want to play another game ?
01:59: Not enough memory.Only 508'312'583 bytes available.
02:00 : System is shutting Down.
|
|
|
