Setvirtualresolution(640,480)
ResetTimer()
//Create and display a Backdrop
For x=0 to 1024 Step 10
DrawLine(0,0,x,600,Random(0,255),Random(0,255),Random(0,255))
Update(0)
Render()
Next x
GetImage(1,0,0,640,480)
CreateSprite(1,1)
id = CreateParticles(150,150)
SetParticlesSize(id,2.0)
SetParticlesLife(id,5)
FixParticlesToScreen(id,1)
//FixParticlesToScreen(id,0)
//Move the screen viewport to see the effect on the Particle Emitter.
Repeat
For s=1 to 10 step 2
SetViewOffset(0,s)
Sleep(500)
Sync()
Next s
Sync()
Until Timer()>16
End
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
Setvirtualresolution(640,480) ResetTimer() //Create and display a Backdrop For x=0 to 1024 Step 10 DrawLine(0,0,x,600,Random(0,255),Random(0,255),Random(0,255)) Update(0) Render() Next x GetImage(1,0,0,640,480) CreateSprite(1,1) id = CreateParticles(150,150) SetParticlesSize(id,2.0) SetParticlesLife(id,5) FixParticlesToScreen(id,1) //FixParticlesToScreen(id,0) //Move the screen viewport to see the effect on the Particle Emitter. Repeat For s=1 to 10 step 2 SetViewOffset(0,s) Sleep(500) Sync() Next s Sync() Until Timer()>16 End