Oxygen Basic

Programming => Example Code => Topic started by: Peter on December 16, 2015, 04:11:00 AM

Title: Christmas Effect
Post by: Peter on December 16, 2015, 04:11:00 AM

Hello,
 >:(

Code: [Select]

include "asm.inc"
window 640,480,1

float a,x=320,y=240,r=800,c

while key(27)=0
cls 0,0,0
for a=0 to 360 step 0.5
   color mod(a,128)+127,mod(a,128)+127,mod(a,128)+127
   lx = sin(rad(a+c))*r
   ly = cos(rad(a+c))*r
   Ellipse x,y,lx,ly
next
c +=.5
if c>=360 then c=-c
redraw
wait 10
wend
winExit


.

Title: Re: Christmas Effect
Post by: Mike Lobanovsky on December 19, 2015, 06:47:36 PM

This is cool too! :)