[PixelPaladinParticipant]

I often compile and test stuff via command line and whenever I use timers this error appears. While the main window has been closed some part of the program is still running so that I have to close it manually via Ctrl+C. I am not sure whether this bug only appears on Linux.

[PixelPaladinParticipant]

For shadows on your image you need a normal map. When your image is named “bg.png” the name of the normal map must be “bg_NORMALS.png” (and “bg_SPECULAR.png” for the specular map).

For objects to have longer shadows there is an example called “renderdemo” which uses shadow casters. To be honest I never used them and implemented my own shaders instead. This approach is a bit more complicated but gives you much more control at the same time.

[PixelPaladinParticipant]

Okay, it seems like your code works in Cerberus-X when you replace “monkey://data/bg.png” by “cerberus://data/bg.png”.

[PixelPaladinParticipant]

Well, it was your code. I just did some changes so that I can read it better myself

I think changing the path should be enough to make it work.

[PixelPaladinParticipant]

sure, here it is:

Monkey

Strict Import mojo2 Function Main:Int() New X Return 0 End Class X Extends App Field canvas:Canvas Field img:Image Method OnCreate:Int() SetUpdateRate(60) SetDeviceWindow(320, 240, 2|4) canvas = New Canvas img = Image.Load("bg.png", 0, 0, Image.Filter) canvas.SetAmbientLight(0.2, 0.2, 0.2) Return 0 End Method OnUpdate:Int() If KeyHit(KEY_ESCAPE) Then OnClose() Return 0 End Method OnRender:Int() canvas.Clear canvas.SetLightType(0, 1) canvas.SetLightColor(0, 0.5, 0.5, 0.5) canvas.SetLightPosition(0, MouseX(), MouseY(), -50) canvas.SetLightRange(0, 200) For Local y:Int = 0 Until 480 Step 128 For Local x:Int = 0 Until 640 Step 128 canvas.DrawImage(img, x, y) Next Next canvas.Flush() Return 0 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

Strict   Import mojo2 Function Main:Int() New X Return 0 End   Class X Extends App Field canvas:Canvas Field img:Image Method OnCreate:Int() SetUpdateRate(60) SetDeviceWindow(320, 240, 2|4) canvas = New Canvas img = Image.Load("bg.png", 0, 0, Image.Filter) canvas.SetAmbientLight(0.2, 0.2, 0.2) Return 0 End Method OnUpdate:Int() If KeyHit(KEY_ESCAPE) Then OnClose() Return 0 End Method OnRender:Int() canvas.Clear canvas.SetLightType(0, 1) canvas.SetLightColor(0, 0.5, 0.5, 0.5) canvas.SetLightPosition(0, MouseX(), MouseY(), -50) canvas.SetLightRange(0, 200) For Local y:Int = 0 Until 480 Step 128 For Local x:Int = 0 Until 640 Step 128 canvas.DrawImage(img, x, y) Next Next canvas.Flush() Return 0 End End

[PixelPaladinParticipant]

For me it works with Cerberus-X when I change the path to just “bg.png” (instead of “monkey://data/bg.png”) with the following file structure:

FILE app.cxs ← main application DIR app.data FILE bg.png ← color texture FILE bg_NORMALS.png ← the notmal map FILE bg_SPECULAR.png ← specular map

1 2 3 4 5

FILE app.cxs                  ← main application DIR  app.data         FILE bg.png           ← color texture         FILE bg_NORMALS.png   ← the notmal map         FILE bg_SPECULAR.png  ← specular map

[PixelPaladinParticipant]

Wow – that was fast!

I already tried it and it works like a charm:

Monkey

#Import "<std>" #Import "<zlib>" Function Main:Void() ' generate some random data Local originalData := New std.memory.DataBuffer(8000) For Local i:UInt = 0 Until originalData.Length originalData.PokeUByte(i, std.random.Rnd(5)) End ' get max compressed length (this can be more than original data size) Local maxCompressedLen := zlib.compressBound(originalData.Length) ' create buffer for compressed data Local compressedData:std.memory.DataBuffer = New std.memory.DataBuffer(maxCompressedLen) ' compress data Local compressedLen:ULong = maxCompressedLen If zlib.compress( compressedData.Data, Cast<zlib.z_uLong Ptr>(Varptr(compressedLen)), originalData.Data, originalData.Length ) <> zlib.Z_OK Then Print( "Compressing: Something went wrong!" ) Return End Print("Compressed data length: "+compressedLen+" Byte") ' create buffer for uncompressed data Local uncompressedData := New std.memory.DataBuffer(originalData.Length) ' uncompress data Local uncompressedLen:ULong = originalData.Length If zlib.uncompress(uncompressedData.Data, Cast<zlib.z_uLong Ptr>(Varptr(uncompressedLen)), compressedData.Data, compressedData.Length) <> zlib.Z_OK Then Print("Uncompressing: Something went wrong") Return End ' success! Print("Uncompressed all data successfully!") 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

#Import "<std>" #Import "<zlib>"   Function Main:Void() ' generate some random data Local originalData := New std.memory.DataBuffer(8000) For Local i:UInt = 0 Until originalData.Length originalData.PokeUByte(i, std.random.Rnd(5)) End ' get max compressed length (this can be more than original data size) Local maxCompressedLen := zlib.compressBound(originalData.Length) ' create buffer for compressed data Local compressedData:std.memory.DataBuffer = New std.memory.DataBuffer(maxCompressedLen) ' compress data Local compressedLen:ULong = maxCompressedLen If zlib.compress( compressedData.Data,                   Cast<zlib.z_uLong Ptr>(Varptr(compressedLen)),                   originalData.Data,                   originalData.Length ) <> zlib.Z_OK Then Print( "Compressing: Something went wrong!" ) Return End Print("Compressed data length: "+compressedLen+" Byte") ' create buffer for uncompressed data Local uncompressedData := New std.memory.DataBuffer(originalData.Length) ' uncompress data Local uncompressedLen:ULong = originalData.Length If zlib.uncompress(uncompressedData.Data,                    Cast<zlib.z_uLong Ptr>(Varptr(uncompressedLen)),                    compressedData.Data,                    compressedData.Length) <> zlib.Z_OK Then Print("Uncompressing: Something went wrong") Return End ' success! Print("Uncompressed all data successfully!") End

[PixelPaladinParticipant]

I uploaded the crt module and my video module (which uses monkeys theora module) to GitHub:

crt module:
https://github.com/PixelPaladin/mx2-crt

simplevideo module:
https://github.com/PixelPaladin/mx2-simplevideo

Both are licensed under the MIT license (I hope that is okay).

[PixelPaladinParticipant]

Okay, now everything should work out of the box with the current version of mojo. I also added a small example application where you can play around with some parameters. All parameters can now be changed on the fly (brightness, contrast, gamma … even the virtual resolution).

https://www.dropbox.com/s/pvv6l8hqwsth2vm/crt.zip?dl=0

[PixelPaladinParticipant]

Everything should be okay. My code works now (will upload it when it is ready). My mistake was that I used an old makefile which used an older version of mx2cc. Some variable names in the shaders are now different.

By the way – I am really happy with the way mojo handles shaders now.

[PixelPaladinParticipant]

@therevills: no, sorry. I updated my monkey2 to the newest version and now my code crashes, too. I will try to fix that. Seems like the shader stuff has changed a lot in the last months …

[PixelPaladinParticipant]

Any pointers on how exactly I’d make it happen?

The idea behind the multi pass approach is to blur in one direction first (let’s say in x direction) and in the next pass blur in the other direction (y). This reduces running time from O(n²) to O(n). In mojo you could render into different images using multiple canvases (I am not sure how efficient this is – maybe there is a better solution to this). To get a soft blur a gauss kernel is often used. It can be statically included into the shader as an array or it can be passed to the shader as a texture. However I cannot figure out how pass stuff to the shader in monkey2’s mojo (everything I tried just crashed my program).

I didn’t get that part. Can’t you pass values using methods like Image.Material.SetFloat?

That was what I thought – but I have no idea how to do this. Is there any documentation or a tutorial to this? Let’s say I have a uniform float foo in my shader. What do I need to do to set the value of foo in my monkey source?

Edit: I figured out, how it works … fixing everything right now.

[PixelPaladinParticipant]

So you used a single-pass approach. Multi-pass would be faster, but if you get 60 fps on Intel graphics it should be absolutely okay (I wanted to implement it but I was too lazy )

Somehow my biggest problem with monkey2’s mojo is that I cannot pass values to shaders. I really don’t like that. The only possibility to pass values to a shader seems to be encoding them into a hidden area of the source image … which seems odd to me.

[PixelPaladinParticipant]

@ethernaut: That looks nice! I like the glow effect. How did you implement it?

I changed some parameters. The image is now less distorted (but in the corners some pixels are not visible anymore). It is now also possible to set the intensity for rgb splitting (the vertical lines) as well as the intensity of the scan lines (the horizontal lines):

Monkey

New GraphicsCRT(width:UInt, height:UInt, rgbSplitIntensity:Float=0.5, scanlineIntensity:Float=0.1))

1	New GraphicsCRT(width:UInt, height:UInt, rgbSplitIntensity:Float=0.5, scanlineIntensity:Float=0.1))

Attachments:

1. 

   crt5.jpg
   

[PixelPaladinParticipant]

Okay, I wrote a small crt module.

Get it here:
https://www.dropbox.com/s/pvv6l8hqwsth2vm/crt.zip?dl=0

Some example code:

Monkey

Namespace application #Import "<std>" #Import "<mojo>" #Import "<crt>" #import "assets/" Using std.. Using mojo.. Using crt.. Class AppWindow Extends Window Field crt:GraphicsCRT Field testImage:Image Method New(title:String, width:Int, height:Int) 'Call super class constructor - this just passes the arguments 'up' to the Window class constructor. Super.New(title, width, height, WindowFlags.Resizable) ' initialize crt screen (width, heightn, rgb-split-intensity) crt = New GraphicsCRT(320, 240, 0.75) Layout = "resize" ClearColor = New Color(0.0, 0.2, 0.4) Style.BackgroundColor = Color.Black SwapInterval = 1 End Method OnRender(canvas:Canvas) Override If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() App.RequestRender() ' get crt canvas: Local crtCanvas:Canvas = crt.Canvas ' render some stuff on crt screen: crtCanvas.Clear(Color.Black) crtCanvas.BlendMode = BlendMode.Alpha crtCanvas.Color = Color.White crtCanvas.DrawText("Move Mouse", 5, 5) crtCanvas.BlendMode = BlendMode.Additive crtCanvas.Color = New Color(Float(Mouse.X)/Width, Float(Mouse.Y)/Height, 0.0) crtCanvas.DrawCircle(Float(Width-Mouse.X)*Float(crt.Resolution.x)/Width, Float(Height-Mouse.Y)*Float(crt.Resolution.y)/Height, 50) crtCanvas.Color = New Color(1.0-Float(Mouse.X)/Width, 1.0-Float(Mouse.Y)/Height, 1.0) crtCanvas.DrawCircle(Mouse.X*crt.Resolution.x/Width, Mouse.Y*crt.Resolution.y/Height, 50) ' draw crt screen on canvas: crt.DrawScreen(canvas, 0, 0, Width, Height) End End Function Main() New AppInstance New AppWindow("Test Application", App.DesktopSize.x/2 ,App.DesktopSize.y/2) 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

Namespace application   #Import "<std>" #Import "<mojo>" #Import "<crt>"   #import "assets/"   Using std.. Using mojo.. Using crt..   Class AppWindow Extends Window Field crt:GraphicsCRT Field testImage:Image Method New(title:String, width:Int, height:Int) 'Call super class constructor - this just passes the arguments 'up' to the Window class constructor. Super.New(title, width, height, WindowFlags.Resizable) ' initialize crt screen (width, heightn, rgb-split-intensity) crt = New GraphicsCRT(320, 240, 0.75) Layout = "resize" ClearColor = New Color(0.0, 0.2, 0.4) Style.BackgroundColor = Color.Black SwapInterval = 1 End   Method OnRender(canvas:Canvas) Override If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() App.RequestRender() ' get crt canvas: Local crtCanvas:Canvas = crt.Canvas ' render some stuff on crt screen: crtCanvas.Clear(Color.Black) crtCanvas.BlendMode = BlendMode.Alpha crtCanvas.Color = Color.White crtCanvas.DrawText("Move Mouse", 5, 5) crtCanvas.BlendMode = BlendMode.Additive crtCanvas.Color = New Color(Float(Mouse.X)/Width, Float(Mouse.Y)/Height, 0.0) crtCanvas.DrawCircle(Float(Width-Mouse.X)*Float(crt.Resolution.x)/Width, Float(Height-Mouse.Y)*Float(crt.Resolution.y)/Height, 50) crtCanvas.Color = New Color(1.0-Float(Mouse.X)/Width, 1.0-Float(Mouse.Y)/Height, 1.0) crtCanvas.DrawCircle(Mouse.X*crt.Resolution.x/Width, Mouse.Y*crt.Resolution.y/Height, 50) ' draw crt screen on canvas: crt.DrawScreen(canvas, 0, 0, Width, Height) End End   Function Main() New AppInstance New AppWindow("Test Application", App.DesktopSize.x/2 ,App.DesktopSize.y/2) App.Run() End

(only resolutions between 128×64 and 800×600 are allowed)

Attachments:

1. 

   cgt1.jpg
   

2. 

   crt2.jpg
   

3. 

   crt3.jpg
   

4. 

   crt4.jpg
   

[Author]

Posts