but this is a sun particles demo, or a giant red star, show the storms inside the sun,

the script from http://www.ogre3d.org/tikiwiki/tiki-ind ... ExampleSun
but change it a little, copy it to a file like sun.particle
Code: Select all
particle_system Space/Sun
{
material Examples/Flare
particle_width 10
particle_height 10
cull_each false
quota 100
billboard_type point
// Area emitter
emitter Ellipsoid
{
angle 30
emission_rate 30
time_to_live_min 2
time_to_live_max 10
direction 0 1 0
velocity 0.001
colour 0.15 0.1 0.0
width 5
height 5
depth 5
}
// Fader
affector ColourFader
{
red -0.010
green -0.025
blue -0.025
}
}
Code: Select all
Enumeration
#CAMERA
#mainwin
#particle
#particle_mat
EndEnumeration
Global ss.f
ExamineDesktops()
OpenWindow(#mainwin, 0, 0, DesktopWidth(0), DesktopHeight(0), "particles _ sun", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
;Initialize environment
InitEngine3D()
InitSprite()
InitKeyboard()
OpenWindowedScreen(WindowID(#mainwin), 0, 0, DesktopWidth(0), DesktopHeight(0)-5, 0, 0, 0)
SetFrameRate(60)
Add3DArchive(".", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Packs/skybox.zip", #PB_3DArchive_Zip)
Parse3DScripts()
;SkyDome("clouds.jpg", 80)
;SkyBox("stevecube.jpg")
CreateLight(0,RGB(255,255,255),0,40,10)
AmbientColor(RGB(100,100,100))
CreateCamera(#CAMERA, 0, 0, 400, 400)
MoveCamera(#CAMERA, 0, 4, 9)
CameraLookAt(#CAMERA, 0, 2, 0)
LoadTexture(#particle_mat, "flare.png")
CreateMaterial(#particle_mat, TextureID(#particle_mat))
DisableMaterialLighting(#particle_mat, 1)
MaterialBlendingMode(#particle_mat, #PB_Material_Add)
GetScriptParticleEmitter(#particle, "Space/Sun")
MoveParticleEmitter(#particle, 1,0.3,-10)
ParticleMaterial(#particle, MaterialID(#particle_mat))
;Main loop
Repeat
Event = WindowEvent()
TimeSinceLastFrame = RenderWorld()
FlipBuffers()
ExamineKeyboard()
If KeyboardReleased(#PB_Key_Z)
ParticleColorRange(#particle, RGB(0,22,222), RGB(0,0,255))
EndIf
Until KeyboardReleased(#PB_Key_Escape) Or Event = #PB_Event_CloseWindow

