Oxygen Basic

Programming => Example Code => Topic started by: Peter on December 19, 2015, 06:37:57 AM

Title: Rotating snow & Rings
Post by: Peter on December 19, 2015, 06:37:57 AM

Hello,
Air Signum.  :(

Code: [Select]

include "asm.inc"
window 640,480,1
setframes (80)

float i, a, c
sys r = rand(128,255)
sys g = rand(128,255)
sys b = rand(128,255)
sys u, v, w

Sub DrawCenter(sys x, y, ra)
    color r, g, b
    fillcircle x, y, ra
End Sub

while key(27)=0
cls 0,0,0
for i=0 to 360 
    x=sin(i+a)*100+330
    y=cos(i-a)*100+250
    DrawCenter x+sin(a*i), y+cos(a*i), 6
    x=sin(i+a)*100+330
    y=cos(i+0)*100+250
    DrawCenter x+sin(a*i), y+cos(a*i), 6

    x=sin(i+a)*100+110
    y=cos(i*i)*100+110
    u=r: v=g: w=b
    r=255: g=255: b=255
    DrawCenter x+sin(a*i), y+cos(a*i), 4
    r=u: g=v: b=w
next

a +=.03
if a >=360 then a=-a
c +=.1
if c >=1 then
   c = 0
   r = rnd(192)+64
   g = rnd(192)+64
   b = rnd(192)+64
end if
text 340,8,24,"Air Signum"
sync()
wend
winEnd

.

Title: Re: Rotating snow & Rings
Post by: Mike Lobanovsky on December 19, 2015, 06:45:23 PM

Cool! :)