Motion Blur Test

[coconParticipant]

Just trying this one to see how it looks.

 

Monkey

#Import "<mojo>" Using mojo.. Using std.geom Using std.random Using std.graphics Class BlurEffect Field Image:Image Field Canvas:Canvas Field ClearColor:Color Method New(width:Int, height:Int) Self.Image = New Image(width, height, TextureFlags.Dynamic) Self.Canvas = New Canvas(Self.Image) Self.ClearColor = New Color(0.1, 0.1, 0.1, 0.2) End End Class PositionLimit Field Limit1:Float, Limit2:Float Field UpdatedLimit:Byte Field NewValue:Float Method New(l1:Float, l2:Float) Limit1 = l1 Limit2 = l2 End Method Apply(value:Float) UpdatedLimit = 0 If value < Limit1 NewValue = Limit1 UpdatedLimit = 1 Elseif value > Limit2 NewValue = Limit2 UpdatedLimit = 2 End End End Class MyWindow Extends Window Field effect:BlurEffect Field objectPosition:Vec2f, objectSpeed:Vec2f Field limitX:PositionLimit, limitY:PositionLimit Method New() objectPosition = New Vec2f(Width / 2, Height / 2) objectSpeed.X = Rnd(-5.0, 5.0) objectSpeed.Y = Rnd(-5.0, 5.0) limitX = New PositionLimit(50, Width - 50) limitY = New PositionLimit(50, Height - 50) effect = New BlurEffect(Width, Height) End Method OnRender(canvas:Canvas) Override limitX.Apply(objectPosition.X) limitY.Apply(objectPosition.Y) If limitX.UpdatedLimit <> 0 objectPosition.X = limitX.NewValue If limitX.UpdatedLimit = 1 Then objectSpeed.X = Rnd(1, 5) If limitX.UpdatedLimit = 2 Then objectSpeed.X = Rnd(-1, -5) End If limitY.UpdatedLimit <> 0 If limitY.UpdatedLimit = 1 Then objectSpeed.Y = Rnd(1, 5) If limitY.UpdatedLimit = 2 Then objectSpeed.Y = Rnd(-1, -5) End objectPosition += objectSpeed ' draw the object to image effect.Canvas.Color = effect.ClearColor effect.Canvas.DrawRect(0, 0, Width, Height) effect.Canvas.Color = Color.White effect.Canvas.DrawRect(objectPosition.X - 50, objectPosition.Y - 50, 100, 100) effect.Canvas.Flush() ' draw the image to screen canvas.DrawImage(effect.Image, 0, 0) App.RequestRender() End End Function Main() New AppInstance New MyWindow App.Run() 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

#Import "<mojo>"   Using mojo.. Using std.geom Using std.random Using std.graphics   Class BlurEffect Field Image:Image Field Canvas:Canvas Field ClearColor:Color   Method New(width:Int, height:Int) Self.Image = New Image(width, height, TextureFlags.Dynamic) Self.Canvas = New Canvas(Self.Image) Self.ClearColor = New Color(0.1, 0.1, 0.1, 0.2) End End   Class PositionLimit Field Limit1:Float, Limit2:Float Field UpdatedLimit:Byte Field NewValue:Float Method New(l1:Float, l2:Float) Limit1 = l1 Limit2 = l2 End Method Apply(value:Float) UpdatedLimit = 0 If value < Limit1 NewValue = Limit1 UpdatedLimit = 1 Elseif value > Limit2 NewValue = Limit2 UpdatedLimit = 2 End End End   Class MyWindow Extends Window Field effect:BlurEffect Field objectPosition:Vec2f, objectSpeed:Vec2f Field limitX:PositionLimit, limitY:PositionLimit   Method New() objectPosition = New Vec2f(Width / 2, Height / 2)   objectSpeed.X = Rnd(-5.0, 5.0) objectSpeed.Y = Rnd(-5.0, 5.0) limitX = New PositionLimit(50, Width - 50) limitY = New PositionLimit(50, Height - 50) effect = New BlurEffect(Width, Height) End   Method OnRender(canvas:Canvas) Override limitX.Apply(objectPosition.X) limitY.Apply(objectPosition.Y)   If limitX.UpdatedLimit <> 0 objectPosition.X = limitX.NewValue If limitX.UpdatedLimit = 1 Then objectSpeed.X = Rnd(1, 5) If limitX.UpdatedLimit = 2 Then objectSpeed.X = Rnd(-1, -5) End If limitY.UpdatedLimit <> 0 If limitY.UpdatedLimit = 1 Then objectSpeed.Y = Rnd(1, 5) If limitY.UpdatedLimit = 2 Then objectSpeed.Y = Rnd(-1, -5) End objectPosition += objectSpeed ' draw the object to image effect.Canvas.Color = effect.ClearColor effect.Canvas.DrawRect(0, 0, Width, Height) effect.Canvas.Color = Color.White effect.Canvas.DrawRect(objectPosition.X - 50, objectPosition.Y - 50, 100, 100) effect.Canvas.Flush() ' draw the image to screen canvas.DrawImage(effect.Image, 0, 0) App.RequestRender() End End   Function Main() New AppInstance New MyWindow App.Run() End

[coconParticipant]

Now trying some rain effect.

Virtually, any sort of cool effects can be created here.

 

Monkey

#Import "<mojo>" Using mojo.. Using std.collections Using std.geom Using std.graphics Using std.random Class RainEffect Field rain:Vec2f[] Method Generate(width:Int, height:Int) rain = New Vec2f[100] For Local i := 0 Until rain.Length rain[i] = New Vec2f(Rnd(0, width), Rnd(0, height)) Next End Method Update(width:Int, height:Int) For Local i := 0 Until rain.Length rain[i].Y += 10 If rain[i].Y > height + 50 rain[i].Y = -50 rain[i].X = Rnd(0, width) End Next End Method Draw(canvas:Canvas) For Local i := Eachin rain canvas.DrawRect(i.X, i.Y - 25, 2, 50) Next End End Class MyWindow Extends Window Field imgCanvas:Canvas Field imgBuffer:Image Field rain:RainEffect Method New() imgBuffer = New Image(Width, Height, TextureFlags.Dynamic) imgCanvas = New Canvas(imgBuffer) imgCanvas.Color = Color.Black imgCanvas.DrawRect(0, 0, Width, Height) rain = New RainEffect rain.Generate(Width, Height) End Method OnRender(canvas:Canvas) Override imgCanvas.Color = New Color(0.1, 0.1, 0.1, 0.1) imgCanvas.DrawRect(0, 0, Width, Height) imgCanvas.Color = Color.White rain.Update(Width, Height) rain.Draw(imgCanvas) imgCanvas.Flush() canvas.DrawImage(imgBuffer, 0, 0) App.RequestRender() End End Function Main() For Local i := 0 To 1000 Rnd(1, 1000) Next New AppInstance New MyWindow App.Run() 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

#Import "<mojo>" Using mojo.. Using std.collections Using std.geom Using std.graphics Using std.random   Class RainEffect Field rain:Vec2f[] Method Generate(width:Int, height:Int) rain = New Vec2f[100] For Local i := 0 Until rain.Length rain[i] = New Vec2f(Rnd(0, width), Rnd(0, height)) Next End Method Update(width:Int, height:Int) For Local i := 0 Until rain.Length rain[i].Y += 10 If rain[i].Y > height + 50 rain[i].Y = -50 rain[i].X = Rnd(0, width) End Next End Method Draw(canvas:Canvas) For Local i := Eachin rain canvas.DrawRect(i.X, i.Y - 25, 2, 50) Next End End Class MyWindow Extends Window Field imgCanvas:Canvas Field imgBuffer:Image Field rain:RainEffect Method New() imgBuffer = New Image(Width, Height, TextureFlags.Dynamic) imgCanvas = New Canvas(imgBuffer) imgCanvas.Color = Color.Black imgCanvas.DrawRect(0, 0, Width, Height) rain = New RainEffect rain.Generate(Width, Height) End Method OnRender(canvas:Canvas) Override imgCanvas.Color = New Color(0.1, 0.1, 0.1, 0.1) imgCanvas.DrawRect(0, 0, Width, Height) imgCanvas.Color = Color.White rain.Update(Width, Height) rain.Draw(imgCanvas) imgCanvas.Flush() canvas.DrawImage(imgBuffer, 0, 0) App.RequestRender() End End Function Main() For Local i := 0 To 1000 Rnd(1, 1000) Next   New AppInstance New MyWindow App.Run() End

[Author]

Posts