Sorry your browser is not supported!

Some snow type particles made using 5 different sized images for testing how they look. Wasteful use of resources as is but good for testing simple particle images. First one is just snow falling. Made for 1920 x 1080 so it may look way to small on smaller screens.


rem snowday

SetDisplayAspect( 1.66 )
ap=1





rem images

LoadImage( 1, "/image01.png", ap )
LoadImage( 2, "/image02.png", ap )
LoadImage( 3, "/image03.png", ap )
LoadImage( 4, "/image04.png", ap )
LoadImage( 5, "/image05.png", ap )



rem sprites



rem for i = 1 to 5
rem CreateSprite( i, i )
rem SetSpriteScale( i, .25, .25 )
rem SetSpritePosition( i, i*10, 20 )
rem next i
rem for i = 1 to 5
rem SetSpritePosition( i, i*20, 20 )
rem next i



rem party
for i = 1 to 5
CreateParticles( i, 50, 50 )
SetParticlesImage( i, i )
SetParticlesVisible( i, 1 )
next i





for i = 1 to 5
SetParticlesPosition( i, 50, 50 )
SetParticlesAngle( i, 270 )
rem SetParticlesAngleRad( i, 2*PI )
SetParticlesColorInterpolation( i,1 )
AddParticlesColorKeyFrame( i, 3, 250, 250, 250, 50 )
AddParticlesColorKeyFrame( i, 2, 250, 250, 250, 100 )
AddParticlesColorKeyFrame( i, 1, 250, 250, 250, 150 )
SetParticlesDepth( i, 1000 )
SetParticlesDirection( i, 6*i, 6*i )
SetParticlesFrequency( i, 10 )
SetParticlesLife( i, 1500 )
SetParticlesMax( i, -1 )
SetParticlesSize( i, .2 )
SetParticlesStartZone( i, 50, 100,-50, -100 )
SetParticlesVelocityRange( i, .1, .4 )

next i

do
Sync()
rem
loop