Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / 2D Background drawer(DBC) - No media

Author

Message

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 16th Jul 2005 06:51

Try this out..

`setup
sync on
sync rate 0
cls rgb(0,0,255)

`coordinates
x#=0
y#=240

`variables
v#=0
c#=0
c2#=rnd(5)

`colors
r=0
g=128
b=0
mg#=255

`background color
bkb=0
bky=0

`main loop
do

`sky
inc bkb
inc bky
if bkb>255 then bkb=255
ink rgb(0,0,bkb),backgd
line 0,bky,639,bky

`draw landscape
if bky>300
dec mg#,0.2
if mg#<0 then mg#=0
inc c2#,rnd(10)
inc c#,tan(c2#)
v#=wrapvalue(v#+sin(c#))
ink rgb(0,255,0),0
box 0,300,639,479
inc x#
y#=sin(v#)*50+200
ink rgb(r,int(mg#),b),0
box x#-1,y#-1,x#+1,y#+150
ink rgb(250,250,250),0
sn#=wrapvalue(sn#-2.0)
snow#=cos(sn#)*5
box x#-1,y#-1,x#+1,230+snow#
endif

`end loop
sync
loop

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Ooska

20

Years of Service

User Offline

Joined: 29th Aug 2004

Location:

Posted: 29th Aug 2005 05:51

Cool. (very helpful input, eh?)

Weird = Unique. Unique = Human.
Im human.

Back to top

Profile PM

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 31st Aug 2005 00:09

well it would be a cool screensaver

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 31st Aug 2005 00:51

And for the toatally wacky people like me (I tweaked it around) :

`setup
sync on
sync rate 0
cls rgb(0,0,255)

`coordinates
x#=0
y#=240

`variables
v#=0
c#=0
c2#=rnd(5)

`colors
r=0
g=128
b=0
mg#=255

`background color
bkb=0
bky=0

`main loop
do

`sky
inc bkb
inc bky
if bkb>255 then bkb=255
ink rgb(0,0,bkb),backgd
line 0,bky,639,bky

`draw landscape
if bky>300
dec mg#,0.2
if mg#<0 then mg#=0
inc c2#,rnd(10)
inc c#,tan(c2#)
v#=wrapvalue(v#+sin(c#))
ink rgb(0,255,0),0
box 0,300,639,479
inc x#
y#=sin(v#)*50+200
ink rgb(r,int(mg#),b),0
box x#-1,y#-1,x#+1,y#+150
ink rgb(250,250,250),0
sn#=wrapvalue(sn#-2.0)
snow#=cos(sn#)*5
box x#-1,y#-1,x#+1,230+snow#
endif

`end loop
sync
loop

-Xeno

Back to top

Profile PM Email Website

Back to top

Login to post a reply

Server time is: 2025-05-16 19:28:50
Your offset time is: 2025-05-16 19:28:50