this is a cool particle thing i did using the same principals of rotation ages ago
sync on
sync rate 30
color backdrop rgb(0,0,0)
cls rgb(50,10,10)
get image 2,0,0,2,2
cls rgb(10,10,50)
get image 3,0,0,2,2
make particles 2,2,20,20
set particle life 2,100
set particle floor 2,0
set particle gravity 2,-0.75
rotate particles 2,180,0,45
set particle speed 2,0.02
make particles 3,3,20,20
set particle life 3,100
set particle floor 3,0
set particle gravity 3,-0.75
rotate particles 3,0,0,45
set particle speed 3,0.02
for y=4 to 10
make particles y,3,20,20
set particle life y,75
set particle floor y,0
set particle gravity y,0
rotate particles y,90,60*y,45
set particle speed y,0.02
next y
for y=11 to 16
make particles y,2,20,20
set particle life y,75
set particle floor y,0
set particle gravity y,0
rotate particles y,90,60*y+30,45
set particle speed y,0.02
next y
x2#=particles position x(2)
y2#=particles position y(2)
z2#=particles position z(2)
do
inc i#,1
i#= wrapvalue(i#)
position camera x2#,y2#,z2#
xrotate camera i#
move camera -1000
set cursor 0,0
print screen fps()
sync
loop
http://www.larinar.tk
AMD athlon thoroughbred 2200, 512Mb ram, 40Gb HD, ati saphire radeon 9600 atlantis w/128mb ddr ram, good creative-labs soundcard, cd-rw + dvd drives.
