|
Post by eyfenna on Jul 3, 2017 11:46:00 GMT -6
thanks to your example nOOb I got an idea for another project. big thanks totally forgot about the method you chose.
|
|
|
Post by n00b on Jul 3, 2017 16:40:14 GMT -6
eyfenna I have fixed the issue with floodfill and I will be posting it today. I found some issues with the editor on windows that I also want to fix real quick before I post a new download. Thanks for your patience.
|
|
|
Post by johnno56 on Jul 18, 2019 6:05:38 GMT -6
Hey guys,
I 'finally' got around to fixing "Golden Waves". Instead of using floodfill I actually worked out how to utilise the PolyFill() command correctly. Runs much better... imho... lol
'
' Converted from Basic256
'
WindowOpen(0,"Golden Waves",0,0,600,500,0)
CanvasOpen(0,600,500,0,0,600,500,0)
Window(0)
darkred = rgb(64,0,0)
darkgreen = rgb(0,64,0)
darkblue = rgb(0,0,64)
dim wave1x[4]
dim wave1y[4]
dim wave2x[4]
dim wave2y[4]
dim wave3x[4]
dim wave3y[4]
for t=1 to 60 step 0.3
ClearCanvas()
setColor(darkblue)
rectFill(0,0,600,600)
For y1 = 0 to 24
For x1 = 0 to 24
x = (12 * (24 - x1)) + (12 * y1)
y = (0-6 * (24 - x1)) + (6 * y1) + 300
d = ((10 - x1)^2 + (10 - y1)^2)^0.5
h = 60 * sin(x1 / 4 + t) + 65
if t > 10 and t < 20 then
h = 60*sin(y1 / 4 + t) + 65
end if
if t > 20 and t < 30 then
h = 60 * sin((x1 - y1) / 4 + t) + 65
end if
if t > 30 and t < 40 then
h = 30 * sin(x1 / 2 + t) + 30 * sin(y1 / 2 + t) + 65
end if
if t > 40 and t < 50 then
h = 60 * sin((x1 + y1) / 4 + t) + 65
end if
if t > 50 and t < 60 then
h = 60 * sin(d * 0.3 + t) + 65
end if
setColor(rgb(100+h,100+h,h))
wave1x[0] = x
wave1y[0] = y - h
wave1x[1] = x + 10
wave1y[1] = y + 5 - h
wave1x[2] = x + 20
wave1y[2] = y - h
wave1x[3] = x + 10
wave1y[3] = y - 5 - h
polyFill(4,wave1x,wave1y) ' TOP
setColor(rgb(60,60,0))
wave2x[0] = x
wave2y[0] = y - h
wave2x[1] = x + 10
wave2y[1] = y + 5 - h
wave2x[2] = x + 10
wave2y[2] = y
wave2x[3] = x
wave2y[3] = y - 5
polyFill(4,wave2x,wave2y) ' FRONT-LEFT
setColor(rgb(150,150,0))
wave3x[0] = x + 10
wave3y[0] = y + 5 - h
wave3x[1] = x + 10
wave3y[1] = y
wave3x[2] = x + 20
wave3y[2] = y - 5
wave3x[3] = x + 20
wave3y[3] = y - h
polyFill(4,wave3x,wave3y) ' FRONT-RIGHT
if key(27) then
end
end if
next
next
update()
wait(40)
next
waitkey() Let me know what you think.... Also... Have a go at choosing - manually - one of the three background colours....
J
|
|
|
Post by tbird on Jul 18, 2019 7:25:51 GMT -6
That is pretty cool, as usual, another awesome conversion. Mesmerizing
|
|