screensaver - GameCreators Forum

Author

Message

JamesBlond

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Germany

Posted: 18th Oct 2002 00:05

Link

Yesterday I somehow managed to write this nice little program...

+ Code Snippet

sync on : sync rate 0 : hide mouse

do

ox=320+sin(sin(b#)*sin(b#)*a#)*sin(sin(b#)*sin(b#)*a#-r#)*250
oy=240+cos(sin(b#)*sin(b#)*a#)*sin(r#-sin(b#)*sin(b#)*a#)*150

cls

`ink rgb(255,255,255),0 : print screen fps()

for i=1 to 50
 for p=1 to 40

 x=ox+sin(sin(b#)*a#)*i+sin(wrapvalue(cos(b#)*(a#+p*11.5-i*2)))*(60+sin(r#)*i*5+50*sin(wrapvalue(r#+p*4+i*4)))
 y=oy+sin(sin(b#)*a#)*i+cos(wrapvalue(cos(b#)*(a#+p*11.5-i*2)))*(60+sin(r#)*i*5+50*sin(wrapvalue(r#+p*4+i*4)))
 ink rgb(155+sin(wrapvalue(a#+p*7+i*2))*100,155+sin(wrapvalue(a#+r#+p*5+i*2))*100,155+sin(wrapvalue(r#+p*4+i*2))*100),0
 dot x,y

 next p
next i

sync

a#=wrapvalue(a#+0.7)
r#=wrapvalue(r#+1.1)
b#=wrapvalue(b#+0.35)

if mousemovey()0 or mousemovex()0 then exit

loop

Back to top

Profile PM

JamesBlond

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Germany

Posted: 18th Oct 2002 00:11

Link

Something went wrong with the code, it's supposed to be:
if mousemovey()<>0 or mousemovex()<>0 then exit

Back to top

Profile PM

Revolution

21

Years of Service

User Offline

Joined: 27th Dec 2002

Location:

Posted: 11th Jan 2003 19:59

Link

Looks very nice

Back to top

Profile PM

Attreid

21

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 11th Jan 2003 23:01

Link

wow, it's more beautiful than the window's screen savers

I'm following John, but I'm not john.
Lol, it is funnier in french

Back to top

Profile PM Email

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 14th Jan 2003 12:44

Link

ooo thats real purty.
Did you decide on the effect you wanted then sat down and worked out the trigonometry.
Or was it trial and error.
Or a healthy mixture of the two.

Back to top

Profile PM Email Website

JamesBlond

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Germany

Posted: 16th Jan 2003 21:15

Link

Glad you like it.
Basicaly I started out small, with a simple rotating circle of dots and then added more and more to the formulas. There was of course some trial and error in it as well.

Smile and be happy, things could be worse!
So I smiled and was happy, and things got worse...

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / screensaver