Multiple loops at the same time (fast and slow)

[coconParticipant]

This is one simple approach to have multiple loops in the game at the same time for drawing or updating operations. The basic idea is that not everything should be updated at the same time, some components need to be slow and others fast. For example casual AI decisions can run on 10 fps, animation update at 24, graphics rendering at 60 fps.

Apart from updating different modules, there can be other usages, where simply treated as a list of timers. For example if the application runs some sort of validation functions every one second, saves automatically every 10 seconds.

Perhaps the code might not be of a big deal, but the concept is a good idea, to avoid brute force updates and manage them in an organized different way.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MultiLoop Field Loops := New Map<String, LoopDetails> Class LoopDetails Field Frequency:Double Field Time:Double Field Callback:Void() End Method Add(name:String, fps:Int, callback:Void()) Local details := New LoopDetails details.Time = Now() details.Frequency = 1.0 / fps Print(details.Frequency) details.Callback = callback Loops.Add(name, details) End Method Update() For Local loop := Eachin Loops.Values If Now() > loop.Time + loop.Frequency loop.Callback() loop.Time = Now() End Next End End Class MyApp Extends Window Field item1:Item, item2:Item, item3:Item Field loops := New MultiLoop Method New() Super.New("Monkey 2 Application", 800, 800) item1 = New Item item2 = New Item item3 = New Item item1.Color = New Color(0.8, 0.0, 0.0) item2.Color = New Color(0.0, 0.8, 0.0) item3.Color = New Color(0.0, 0.0, 0.8) loops.Add("Slow Red", 1, Lambda() item1.UpdateRandom() End) loops.Add("Medium Green", 10, Lambda() item2.UpdateRandom() End) loops.Add("Fast Blue", 60, Lambda() item3.UpdateFalling() End) End Method OnRender(canvas:Canvas) Override App.RequestRender() loops.Update() canvas.Color = item1.Color canvas.DrawCircle(item1.Position.X, item1.Position.Y, 20) canvas.Color = item2.Color canvas.DrawCircle(item2.Position.X, item2.Position.Y, 20) canvas.Color = item3.Color canvas.DrawCircle(item3.Position.X, item3.Position.Y, 20) canvas.Flush() End End Function Main() New AppInstance New MyApp App.Run() End Class Item Field Position := New Vec2f Field Color:Color Method UpdateRandom() Position.X = Rnd(0, App.ActiveWindow.Width) Position.Y = Rnd(0, App.ActiveWindow.Height) End Method UpdateFalling() Position.Y += 20 If Position.Y > App.ActiveWindow.Height + 10 Position.X = Rnd(0, App.ActiveWindow.Width) Position.Y = -10 End 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 102

#Import "<std>" #Import "<mojo>" Using std.. Using mojo..   Class MultiLoop Field Loops := New Map<String, LoopDetails> Class LoopDetails Field Frequency:Double Field Time:Double Field Callback:Void() End Method Add(name:String, fps:Int, callback:Void()) Local details := New LoopDetails details.Time = Now() details.Frequency = 1.0 / fps Print(details.Frequency) details.Callback = callback Loops.Add(name, details) End Method Update() For Local loop := Eachin Loops.Values If Now() > loop.Time + loop.Frequency loop.Callback() loop.Time = Now() End Next End End   Class MyApp Extends Window Field item1:Item, item2:Item, item3:Item   Field loops := New MultiLoop Method New() Super.New("Monkey 2 Application", 800, 800) item1 = New Item item2 = New Item item3 = New Item item1.Color = New Color(0.8, 0.0, 0.0) item2.Color = New Color(0.0, 0.8, 0.0) item3.Color = New Color(0.0, 0.0, 0.8) loops.Add("Slow Red",     1, Lambda() item1.UpdateRandom() End) loops.Add("Medium Green", 10, Lambda() item2.UpdateRandom() End) loops.Add("Fast Blue",    60, Lambda() item3.UpdateFalling() End) End Method OnRender(canvas:Canvas) Override App.RequestRender() loops.Update() canvas.Color = item1.Color canvas.DrawCircle(item1.Position.X, item1.Position.Y, 20) canvas.Color = item2.Color canvas.DrawCircle(item2.Position.X, item2.Position.Y, 20) canvas.Color = item3.Color canvas.DrawCircle(item3.Position.X, item3.Position.Y, 20)         canvas.Flush() End End Function Main() New AppInstance New MyApp App.Run() End   Class Item Field Position := New Vec2f Field Color:Color Method UpdateRandom() Position.X = Rnd(0, App.ActiveWindow.Width) Position.Y = Rnd(0, App.ActiveWindow.Height) End Method UpdateFalling() Position.Y += 20 If Position.Y > App.ActiveWindow.Height + 10 Position.X = Rnd(0, App.ActiveWindow.Width) Position.Y = -10 End End End

[Author]

Posts