3D Starfield Example

[therevillsParticipant]

A simple and easy 3D starfield effect in 2D:

Monkey

Namespace starfield #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const VIRTUAL_SIZE := New Vec2i(1920, 1080) Class MyWindow Extends Window Field timer:Timer Field fps:Int = 60 Field starSpeed:Float = .25 Method New() Super.New("3D Starfield", 1920, 1080, WindowFlags.Resizable) Fullscreen = True Layout = "letterbox" timer = New Timer(fps, OnUpdate) Star3D.CreateStars(1000) End Method OnUpdate() Star3D.Update(starSpeed, Window.Width, Window.Height) End Method OnRender(canvas:Canvas) Override App.RequestRender() Star3D.Render(canvas) End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyDown And event.Key = Key.Enter And event.Modifiers & Modifier.Alt Fullscreen = Not Fullscreen End If event.Key = Key.Escape App.Terminate() End End Method OnMeasure:Vec2i() Override Return VIRTUAL_SIZE End End Function Main() New AppInstance New MyWindow App.Run() End Class Star3D Global stack:Stack<Star3D> = New Stack<Star3D> Field pos:Vec4f Field posXY:Vec2f Field color:Color Field size:Float Method New() Init() stack.Add(Self) End Method Init() pos = New Vec4f(Rnd(-3000, 3000), Rnd(-3000, 3000), Rnd(100, 1000), Rnd(0.5, 5)) End Function CreateStars(amount:Int) For Local i:Int = 0 Until amount New Star3D() Next End Method Calculate(width:Float, height:Float) Local x := ((pos.x / pos.z) * 100) + (width * .5) Local y := ((pos.y / pos.z) * 100) + (height * .5) posXY = New Vec2f(x, y) Local col := ((1.0 - (pos.z * .001)) * pos.w) * .2 color = New Color(col, col, col) size = col * 3 End Function Update(speed:Float, width:Float, height:Float) For Local s:Star3D = EachIn stack s.pos.z -= (s.pos.w * speed) s.Calculate(width, height) If (s.posXY.x < 0) Or (s.posXY.x > width) Or (s.posXY.y < 0) Or (s.posXY.y > height ) Or (s.pos.z < 1) s.Init() End Next End Function Render(canvas:Canvas) For Local s:Star3D = Eachin stack canvas.Color = s.color canvas.DrawCircle(s.posXY.x, s.posXY.y, s.size) canvas.Color = Color.White Next End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Namespace starfield   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Const VIRTUAL_SIZE := New Vec2i(1920, 1080)   Class MyWindow Extends Window Field timer:Timer Field fps:Int = 60 Field starSpeed:Float = .25   Method New() Super.New("3D Starfield", 1920, 1080, WindowFlags.Resizable) Fullscreen = True Layout = "letterbox" timer = New Timer(fps, OnUpdate) Star3D.CreateStars(1000) End Method OnUpdate() Star3D.Update(starSpeed, Window.Width, Window.Height) End   Method OnRender(canvas:Canvas) Override App.RequestRender() Star3D.Render(canvas) End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyDown And event.Key = Key.Enter And event.Modifiers & Modifier.Alt Fullscreen = Not Fullscreen End If event.Key = Key.Escape App.Terminate() End End Method OnMeasure:Vec2i() Override Return VIRTUAL_SIZE End End   Function Main() New AppInstance New MyWindow App.Run() End   Class Star3D Global stack:Stack<Star3D> = New Stack<Star3D> Field pos:Vec4f Field posXY:Vec2f Field color:Color Field size:Float Method New() Init() stack.Add(Self) End    Method Init()    pos = New Vec4f(Rnd(-3000, 3000), Rnd(-3000, 3000), Rnd(100, 1000), Rnd(0.5, 5)) End   Function CreateStars(amount:Int) For Local i:Int = 0 Until amount New Star3D() Next End    Method Calculate(width:Float, height:Float) Local x := ((pos.x / pos.z) * 100) + (width * .5) Local y := ((pos.y / pos.z) * 100) + (height * .5) posXY = New Vec2f(x, y) Local col := ((1.0 - (pos.z * .001)) * pos.w) * .2 color = New Color(col, col, col) size = col * 3 End    Function Update(speed:Float, width:Float, height:Float) For Local s:Star3D = EachIn stack s.pos.z -= (s.pos.w * speed) s.Calculate(width, height) If (s.posXY.x < 0) Or (s.posXY.x > width) Or (s.posXY.y < 0) Or (s.posXY.y > height ) Or (s.pos.z < 1) s.Init() End Next End Function Render(canvas:Canvas) For Local s:Star3D = Eachin stack canvas.Color = s.color canvas.DrawCircle(s.posXY.x, s.posXY.y, s.size) canvas.Color = Color.White Next End End

[AmonParticipant]

Cool.

[c0d3r9Participant]

Nice and always helpful to learn the basics of the language.

[PakzParticipant]

Very good! I am learning new things from this also.

[Author]

Posts