Post by Deleted on Jun 29, 2017 0:05:57 GMT -6
Here is a little fractal that was originally written in DarkBasicPro - not by me... lol (I don't drink...)
Converted to sdlbasic (just to see if I could) then to rcbasic (because I could)
It may not 'acually' cure a hangover, but by the looks of it, it may help you throw up what was causing it... LOL
Enjoy... (or not... lol)
J
Converted to sdlbasic (just to see if I could) then to rcbasic (because I could)
It may not 'acually' cure a hangover, but by the looks of it, it may help you throw up what was causing it... LOL
WindowOpen(0,"Fractal 1",0,0,640,480,0)
Window(0)
CanvasOpen(0,640,480,0,0,640,480,0)
Canvas(0)
'rem ***** main source file *****
clearcanvas()
for y= 0 to 480
for x= 0 to 640
a=0
c=0
s=x/100-3
t=y/80-3
n=0
do
n = n + 1
h=s*s
k=t*t
c=s*(h-3*k)+0.5
a=t*(3*h-k)
t=a
s=c
if n=16 or abs(c)>9 or abs(a)>9 then
exit do
end if
loop
if abs(c)<9 or abs(a)<9 then
if n=1 then
setColor(rgb(255,255,255))
end if
if n=2 then
setColor(rgb(255,255,0))
end if
if n=3 then
setColor(rgb(255,0,255))
end if
if n=4 then
setColor(rgb(0,255,255))
end if
if n=5 then
setColor(rgb(255,0,0))
end if
if n=6 then
setColor(rgb(0,255,0))
end if
if n=7 then
setColor(rgb(0,0,255))
end if
if n=8 then
setColor(rgb(255,200,0))
end if
if n=9 then
setColor(rgb(0,255,200))
end if
pset(x,y)
end if
next
update()
next
waitkey()Enjoy... (or not... lol)
J
