Unimpressive snow program (no media) (DBPro but should work in DBC)

Author

Message

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 17th Feb 2005 19:10

Link

Howdie everyone. This is a pretty poor program to be honest, it has next to no interactivity, it's not a game and it's not much use in any situation I can think of, but it does look quite cool. MaxS is the number of snow particles, avgS# is the average speed of them, svar# is the maximum deviation from the average speed, avga# is the average angle of the snow and avar# is the maximum deviation from the average angle.

Press [ SPACE ] once to see how infinitely better my cunning greyscale snow is than pure white, and again to see how frankly mad multicoloured snow would be.

Coming in V1.1!!!

- snow that builds up at the bottom of the screen

If it doesn't work, tell me. I can't promise to fix it, but I can promise that if you complain enough I'll kill your hamster. If the snow falls too fast/slow, change avgs# and svar#.

maxs=600:avgs#=4:svar#=3:avga#=150:avar#=35
cls 0:hide mouse:sync on:ink rgb(255,255,255),0:dim s#(maxs,8)
for n=1 to maxs:while s#(n,3)>360:s#(n,3)=s#(n,3)-360:endwhile
   s#(n,1)=rnd(640):s#(n,2)=rnd(480):s#(n,3)=rnd(2*avar#)+avga#-avar#:s#(n,4)=rnd(2*svar#)+avgs#-svar#
   if s#(n,3)>=90 and s#(n,3)<=180:s#(n,5)=s#(n,4)*cos(s#(n,3)-90):s#(n,6)=s#(n,4)*sin(s#(n,3)-90):endif
   if s#(n,3)<=270 and s#(n,3)>=180:s#(n,5)=(0-s#(n,4))*sin(s#(n,3)-180):s#(n,6)=s#(n,4)*cos(s#(n,3)-180):endif
   if s#(n,3)<=90 and s#(n,3)>=0:s#(n,5)=s#(n,4)*sin(s#(n,3)):s#(n,6)=(0-s#(n,4))*cos(s#(n,3)):endif
   if s#(n,3)<=360 and s#(n,3)>=270:s#(n,5)=(0-s#(n,4))*sin(360-s#(n,3)):s#(n,6)=(0-s#(n,4))*cos(360-s#(n,3)):endif
   c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:col=1
next n
do:gosub refreshs:sync:cls
if escapekey()=1:exit:endif:if spacekey()=1
if col=1 and space=0:col=2:space=1:c=rgb(255,255,255):for n=1 to maxs:s#(n,7)=c:next n:endif
if col=2 and space=0:col=3:space=1:for n=1 to maxs:c=rgb(rnd(255),rnd(255),rnd(255)):s#(n,7)=c:next n:endif
if col=3 and space=0:col=1:space=1:for n=1 to maxs:c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:next n
endif:else:space=0:endif:loop:end
refreshs::
for n=1 to maxs:s#(n,1)=s#(n,1)+s#(n,5):s#(n,2)=s#(n,2)+s#(n,6):
if s#(n,2)>480 :s#(n,2)=0:s#(n,1)=rnd(640):endif:if s#(n,1)<0 :s#(n,1)=640:endif:if s#(n,1)>640:s#(n,1)=0:endif:if s#(n,2)<0 then s#(n,2)=480:
ink s#(n,7),0:dot s#(n,1),s#(n,2):next n:return

+ Code Snippet

maxs=600:avgs#=4:svar#=3:avga#=150:avar#=35
cls 0:hide mouse:sync on:ink rgb(255,255,255),0:dim s#(maxs,8)
for n=1 to maxs:while s#(n,3)>360:s#(n,3)=s#(n,3)-360:endwhile
   s#(n,1)=rnd(640):s#(n,2)=rnd(480):s#(n,3)=rnd(2*avar#)+avga#-avar#:s#(n,4)=rnd(2*svar#)+avgs#-svar#
   if s#(n,3)>=90 and s#(n,3)<=180:s#(n,5)=s#(n,4)*cos(s#(n,3)-90):s#(n,6)=s#(n,4)*sin(s#(n,3)-90):endif
   if s#(n,3)<=270 and s#(n,3)>=180:s#(n,5)=(0-s#(n,4))*sin(s#(n,3)-180):s#(n,6)=s#(n,4)*cos(s#(n,3)-180):endif
   if s#(n,3)<=90 and s#(n,3)>=0:s#(n,5)=s#(n,4)*sin(s#(n,3)):s#(n,6)=(0-s#(n,4))*cos(s#(n,3)):endif
   if s#(n,3)<=360 and s#(n,3)>=270:s#(n,5)=(0-s#(n,4))*sin(360-s#(n,3)):s#(n,6)=(0-s#(n,4))*cos(360-s#(n,3)):endif
   c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:col=1
next n
do:gosub refreshs:sync:cls
if escapekey()=1:exit:endif:if spacekey()=1
if col=1 and space=0:col=2:space=1:c=rgb(255,255,255):for n=1 to maxs:s#(n,7)=c:next n:endif
if col=2 and space=0:col=3:space=1:for n=1 to maxs:c=rgb(rnd(255),rnd(255),rnd(255)):s#(n,7)=c:next n:endif
if col=3 and space=0:col=1:space=1:for n=1 to maxs:c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:next n
endif:else:space=0:endif:loop:end
refreshs::
for n=1 to maxs:s#(n,1)=s#(n,1)+s#(n,5):s#(n,2)=s#(n,2)+s#(n,6):
if s#(n,2)>480 :s#(n,2)=0:s#(n,1)=rnd(640):endif:if s#(n,1)<0 :s#(n,1)=640:endif:if s#(n,1)>640:s#(n,1)=0:endif:if s#(n,2)<0 then s#(n,2)=480:
ink s#(n,7),0:dot s#(n,1),s#(n,2):next n:return

Yes, sir, but sir is not a rabbit, is sir?

Back to top

Profile PM

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 17th Feb 2005 21:14

Link

This is a somewhat streamlined version. I got rid of three lines of unecessary trigonometry by taking angles the standard way (anti clockwise from the positive x direction) instead of clockwise from the positive y direction as I had been before. Also it can cope with negative angles now.

maxs=600:avgs#=4:svar#=3:avga#=300:avar#=30
cls 0:hide mouse:sync on:ink rgb(255,255,255),0:dim s#(maxs,8)
for n=1 to maxs:while s#(n,3)>360:s#(n,3)=s#(n,3)-360:endwhile:while s#(n,3)<0:s#(n,3)=s#(n,3)+360:endwhile
   s#(n,1)=rnd(640):s#(n,2)=rnd(480):s#(n,3)=rnd(2*avar#)+avga#-avar#:s#(n,4)=rnd(2*svar#)+avgs#-svar#
   s#(n,5)=s#(n,4)*cos(s#(n,3)):s#(n,6)=0-s#(n,4)*sin(s#(n,3))
   c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:col=1
next n
do:gosub refreshs:sync:cls
if escapekey()=1:exit:endif:if spacekey()=1
if col=1 and s=0:col=2:s=1:c=rgb(255,255,255):for n=1 to maxs:s#(n,7)=c:next n:endif
if col=2 and s=0:col=3:s=1:for n=1 to maxs:c=rgb(rnd(255),rnd(255),rnd(255)):s#(n,7)=c:next n:endif
if col=3 and s=0:col=1:s=1:for n=1 to maxs:c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:next n
endif:else:s=0:endif:loop:end
refreshs::
for n=1 to maxs:s#(n,1)=s#(n,1)+s#(n,5):s#(n,2)=s#(n,2)+s#(n,6):
if s#(n,2)>480 :s#(n,2)=0:s#(n,1)=rnd(640):endif:if s#(n,1)<0 :s#(n,1)=640:endif:if s#(n,1)>640:s#(n,1)=0:endif:if s#(n,2)<0 then s#(n,2)=480:
ink s#(n,7),0:dot s#(n,1),s#(n,2):next n:return

+ Code Snippet

maxs=600:avgs#=4:svar#=3:avga#=300:avar#=30
cls 0:hide mouse:sync on:ink rgb(255,255,255),0:dim s#(maxs,8)
for n=1 to maxs:while s#(n,3)>360:s#(n,3)=s#(n,3)-360:endwhile:while s#(n,3)<0:s#(n,3)=s#(n,3)+360:endwhile
   s#(n,1)=rnd(640):s#(n,2)=rnd(480):s#(n,3)=rnd(2*avar#)+avga#-avar#:s#(n,4)=rnd(2*svar#)+avgs#-svar#
   s#(n,5)=s#(n,4)*cos(s#(n,3)):s#(n,6)=0-s#(n,4)*sin(s#(n,3))
   c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:col=1
next n
do:gosub refreshs:sync:cls
if escapekey()=1:exit:endif:if spacekey()=1
if col=1 and s=0:col=2:s=1:c=rgb(255,255,255):for n=1 to maxs:s#(n,7)=c:next n:endif
if col=2 and s=0:col=3:s=1:for n=1 to maxs:c=rgb(rnd(255),rnd(255),rnd(255)):s#(n,7)=c:next n:endif
if col=3 and s=0:col=1:s=1:for n=1 to maxs:c#=(255/(2*svar#)*(s#(n,4)-avgs#+svar#)):c=rgb(c#,c#,c#):s#(n,7)=c:next n
endif:else:s=0:endif:loop:end
refreshs::
for n=1 to maxs:s#(n,1)=s#(n,1)+s#(n,5):s#(n,2)=s#(n,2)+s#(n,6):
if s#(n,2)>480 :s#(n,2)=0:s#(n,1)=rnd(640):endif:if s#(n,1)<0 :s#(n,1)=640:endif:if s#(n,1)>640:s#(n,1)=0:endif:if s#(n,2)<0 then s#(n,2)=480:
ink s#(n,7),0:dot s#(n,1),s#(n,2):next n:return

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 17th Feb 2005 21:23

Link

Oops, I meant to delete the while --- endwhile bits as well. Feel free to do this yourself, though the program will work fine with them there, they're unnecessary. Incidentally, does anyone know how long I have to wait before I'm not longer a 'new user' who needs their every post approved? I'd much rather be able to just edit mistakes like this without having to wait for my posts to come through first.

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 22nd Feb 2005 04:53

Link

Way to fast on my system and looked more like zooming past a star scape.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Monsieur Mort

19

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 22nd Feb 2005 05:23

Link

Oooh it annoys me when people don't read the notes with the program. If you want it to slow down, change avgs# and svar# downward.

Here's the latest (code expanded) version, not much different though.

cls 0
hide mouse
sync on
sync rate 30

rem Set some parameters
maxsnow=600.0
avgspeed#=3.0
speedvar#=2.9
avgangle#=240.0
anglevar#=25.0

ink rgb(255,255,255),0

rem snow#(particle number, x/y/direction of travel/speed of travel/x add/y add/c)
dim snow#(maxsnow,8)

rem Fill the snow# array
for n=1 to maxsnow

snow#(n,1)=rnd(640.0)
   snow#(n,2)=rnd(480.0)
   rem Four lines are required here to make the angle and speed of the snow a decimal rather than an integer
   r#=rnd(20000*anglevar#)
   snow#(n,3)=r#/10000+avgangle#-anglevar#
   r#=rnd(20000*speedvar#)
   snow#(n,4)=r#/10000+avgspeed#-speedvar#
   snow#(n,5)=snow#(n,4)*cos(snow#(n,3))
   snow#(n,6)=0-snow#(n,4)*sin(snow#(n,3))
   rem Make snow grey scale based on speed
   c#=(255.0/(2.0*speedvar#)*(snow#(n,4)-avgspeed#+speedvar#))
   c=rgb(c#,c#,c#)
   snow#(n,7)=c
   col=1

next n

rem MAIN LOOP
do

gosub refreshSnow

if escapekey()=1 then exit

if spacekey()=1
      if col=1 and space=0
         col=2
         space=1
         c=rgb(255,255,255)
         for n=1 to maxsnow
            snow#(n,7)=c
         next n
      endif
      if col=2 and space=0
         col=3
         space=1
         for n=1 to maxsnow
            c=rgb(rnd(255),rnd(255),rnd(255))
            snow#(n,7)=c
         next n
      endif
      if col=3 and space=0
         col=4
         space=1
         c=rgb(rnd(255),rnd(255),rnd(255))
         for n=1 to maxsnow
            snow#(n,7)=c
         next n
      endif
      if col=4 and space=0
         col=1
         space=1
         for n=1 to maxsnow
            c#=(255/(2*speedvar#)*(snow#(n,4)-avgspeed#+speedvar#))
            c=rgb(c#,c#,c#)
            snow#(n,7)=c
         next n
      endif
   else
      space=0
   endif

if returnkey()=1 and enter=0
      avgspeed#=rnd(8)
      speedvar#=rnd(avgspeed#)
      avgangle#=rnd(360)
      anglevar#=rnd(360)
      for n=1 to maxsnow
         snow#(n,3)=rnd(20000*anglevar#)/10000+avgangle#-anglevar#
         snow#(n,4)=rnd(20000*speedvar#)/10000+avgspeed#-speedvar#
         snow#(n,5)=snow#(n,4)*cos(snow#(n,3))
         snow#(n,6)=0-snow#(n,4)*sin(snow#(n,3))
         c#=(255/(2*speedvar#)*(snow#(n,4)-avgspeed#+speedvar#))
         c=rgb(c#,c#,c#)
         snow#(n,7)=c
         col=1
      next n
      enter=1
   else
      enter=0
   endif

sync

cls

loop

end

refreshSnow:

for n=1 to maxsnow

rem Update snow positions
         snow#(n,1)=snow#(n,1)+snow#(n,5)
         snow#(n,2)=snow#(n,2)+snow#(n,6)
         if snow#(n,1)<0 then snow#(n,1)=640:snow#(n,2)=rnd(480)
         if snow#(n,1)>640 then snow#(n,1)=0:snow#(n,2)=rnd(480)
         if snow#(n,2)<0 then snow#(n,2)=480:snow#(n,1)=rnd(640)
         if snow#(n,2)>480 then snow#(n,2)=0:snow#(n,1)=rnd(640)
   rem Draw snow
   ink snow#(n,7),0
   dot snow#(n,1),snow#(n,2)

next n

return

+ Code Snippet

cls 0
hide mouse
sync on
sync rate 30

rem Set some parameters
maxsnow=600.0
avgspeed#=3.0
speedvar#=2.9
avgangle#=240.0
anglevar#=25.0

ink rgb(255,255,255),0

rem snow#(particle number, x/y/direction of travel/speed of travel/x add/y add/c)
dim snow#(maxsnow,8)

rem Fill the snow# array
for n=1 to maxsnow

   snow#(n,1)=rnd(640.0)
   snow#(n,2)=rnd(480.0)
   rem Four lines are required here to make the angle and speed of the snow a decimal rather than an integer
   r#=rnd(20000*anglevar#)
   snow#(n,3)=r#/10000+avgangle#-anglevar#
   r#=rnd(20000*speedvar#)
   snow#(n,4)=r#/10000+avgspeed#-speedvar#
   snow#(n,5)=snow#(n,4)*cos(snow#(n,3))
   snow#(n,6)=0-snow#(n,4)*sin(snow#(n,3))
   rem Make snow grey scale based on speed
   c#=(255.0/(2.0*speedvar#)*(snow#(n,4)-avgspeed#+speedvar#))
   c=rgb(c#,c#,c#)
   snow#(n,7)=c
   col=1

next n


rem MAIN LOOP
do

   gosub refreshSnow

   if escapekey()=1 then exit

   if spacekey()=1
      if col=1 and space=0
         col=2
         space=1
         c=rgb(255,255,255)
         for n=1 to maxsnow
            snow#(n,7)=c
         next n
      endif
      if col=2 and space=0
         col=3
         space=1
         for n=1 to maxsnow
            c=rgb(rnd(255),rnd(255),rnd(255))
            snow#(n,7)=c
         next n
      endif
      if col=3 and space=0
         col=4
         space=1
         c=rgb(rnd(255),rnd(255),rnd(255))
         for n=1 to maxsnow
            snow#(n,7)=c
         next n
      endif
      if col=4 and space=0
         col=1
         space=1
         for n=1 to maxsnow
            c#=(255/(2*speedvar#)*(snow#(n,4)-avgspeed#+speedvar#))
            c=rgb(c#,c#,c#)
            snow#(n,7)=c
         next n
      endif
   else
      space=0
   endif

   if returnkey()=1 and enter=0
      avgspeed#=rnd(8)
      speedvar#=rnd(avgspeed#)
      avgangle#=rnd(360)
      anglevar#=rnd(360)
      for n=1 to maxsnow
         snow#(n,3)=rnd(20000*anglevar#)/10000+avgangle#-anglevar#
         snow#(n,4)=rnd(20000*speedvar#)/10000+avgspeed#-speedvar#
         snow#(n,5)=snow#(n,4)*cos(snow#(n,3))
         snow#(n,6)=0-snow#(n,4)*sin(snow#(n,3))
         c#=(255/(2*speedvar#)*(snow#(n,4)-avgspeed#+speedvar#))
         c=rgb(c#,c#,c#)
         snow#(n,7)=c
         col=1
      next n
      enter=1
   else
      enter=0
   endif

   sync

   cls

loop

end

refreshSnow:

   for n=1 to maxsnow

      rem Update snow positions
         snow#(n,1)=snow#(n,1)+snow#(n,5)
         snow#(n,2)=snow#(n,2)+snow#(n,6)
         if snow#(n,1)<0 then snow#(n,1)=640:snow#(n,2)=rnd(480)
         if snow#(n,1)>640 then snow#(n,1)=0:snow#(n,2)=rnd(480)
         if snow#(n,2)<0 then snow#(n,2)=480:snow#(n,1)=rnd(640)
         if snow#(n,2)>480 then snow#(n,2)=0:snow#(n,1)=rnd(640)
   rem Draw snow
   ink snow#(n,7),0
   dot snow#(n,1),snow#(n,2)

   next n


return

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Unimpressive snow program (no media) (DBPro but should work in DBC)