[EthernautParticipant]

Works now!

From now on, remember to set “camera.View = Self” from the main window for it to work properly.

[EthernautParticipant]

This will render stretched…

Monkey

Namespace plane #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" '#Import "source/PlaneControl" '#Import "textures/" '#Import "assets/" '#Import "render/plane_Oc.png" '#Import "models/plane.glb" Using std.. Using mojo.. Using mojo3d.. Class MyWindow Extends Window Field _res :Vec2i Field _scene:Scene Field _camera:Camera Field _light:Light ' Field _fog:FogEffect Field _water:Model Field _plane:Model Field _pivot:Model 'Needs to be a Model instead of Entity otherwise the plane isn't rendered! Field _camTarget:Entity Field test:Model Method New() Super.New( "Toy Plane", 1280, 480, WindowFlags.Resizable | WindowFlags.HighDPI ) _res = New Vec2i( Width, Height ) Print _res Layout = "letterbox" _scene=Scene.GetCurrent() _scene.SkyTexture=Texture.Load( "asset::miramar-skybox.jpg",TextureFlags.FilterMipmap|TextureFlags.Cubemap ) _scene.EnvTexture = _scene.SkyTexture _scene.FogColor = New Color(0.69, 0.78, 0.82, 0.3 ) _scene.FogFar = 5000 _scene.FogNear = 1 'create light _light=New Light _light.Rotate( 45, 45, 0 ) _light.CastsShadow = True 'create water material ' Local waterMaterial:=New WaterMaterial ' ' waterMaterial.ScaleTextureMatrix( 200,200 ) ' waterMaterial.ColorFactor=New Color( 0.05, 0.25, 0.3 ) ' waterMaterial.Roughness=0 ' ' waterMaterial.NormalTextures=New Texture[]( ' Texture.Load( "asset::water_normal0.png",TextureFlags.WrapST | TextureFlags.FilterMipmap ), ' Texture.Load( "asset::water_normal1.png",TextureFlags.WrapST | TextureFlags.FilterMipmap ) ) ' ' waterMaterial.Velocities=New Vec2f[]( ' New Vec2f( .01,.03 ), ' New Vec2f( .02,.05 ) ) 'create water ' _water=Model.CreateBox( New Boxf( -10000,-1,-10000,10000,0,10000 ),1,1,1,waterMaterial ) 'create bloom ' Local _bloom := New BloomEffect( 2 ) ' _scene.AddPostEffect( _bloom ) 'create main pivot ' _pivot = New Model 'create airplane ' _plane = Model.LoadBoned( "asset::plane_combined.glb" ) ' _plane.Animator.Animate( 0 ) ' _plane.Parent = _pivot ' _plane.Position = New Vec3f ' Local mat := Cast<PbrMaterial>( _plane.Materi ) ' Local mat := New PbrMaterial( Color.LightGrey, 0.1, 0.1, True ) ' Local tex := Texture.Load( "asset::plane_Oc.png", TextureFlags.FilterMipmap ) ' mat.OcclusionTexture = tex ' Print _plane.Materials.Length ' Print ( _plane.Material? "true" Else "False" ) ' _plane.Material = mat 'create camera target _camTarget = New Entity( _plane ) ' _camTarget = Model.CreateSphere( 0.25, 12, 12, New PbrMaterial( Color.Red ) ) _camTarget.Parent = _plane _camTarget.Position = New Vec3f( 0, 0, 10 ) 'create camera _camera=New Camera( _pivot ) _camera.Near=.1 _camera.Far=10000 ' _camera.FOV = 60 _camera.Move( 0,3,-12 ) Print _camera.Aspect 'Control component ' Local control := _pivot.AddComponent<PlaneControl>() ' control.plane = _plane ' control.camera = _camera ' control.target = _camTarget ' _pivot.Position = New Vec3f( 0, 6, 0 ) Local ball := Model.CreateSphere( 2, 24, 24, New PbrMaterial( Color.Red, 0.1, 0.25 ) ) ball.Move( 0, 4, 0) End Method OnRender( canvas:Canvas ) Override RequestRender() ' _water.Position=New Vec3f( Round(_camera.Position.x/2000)*2000,0,Round(_camera.Position.z/2000)*2000 ) _camera.WorldPointAt( _camTarget.Position ) ' _scene.Update() _camera.Render( canvas ) canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) End ' Method OnMeasure:Vec2i() Override Return _res End End Function Main() New AppInstance New MyWindow App.Run() End Class Entity Extension Method WorldPointAt( target:Vec3f,up:Vec3f=New Vec3f( 0,1,0 ) ) Local k:=(target-Position).Normalize() Local i:=up.Cross( k ).Normalize() Local j:=k.Cross( i ) Basis=New Mat3f( i,j,k ) 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 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160

Namespace plane   #Import "<std>" #Import "<mojo>" #Import "<mojo3d>"   '#Import "source/PlaneControl"   '#Import "textures/" '#Import "assets/"   '#Import "render/plane_Oc.png" '#Import "models/plane.glb"   Using std.. Using mojo.. Using mojo3d..   Class MyWindow Extends Window Field _res :Vec2i Field _scene:Scene Field _camera:Camera Field _light:Light ' Field _fog:FogEffect Field _water:Model Field _plane:Model Field _pivot:Model 'Needs to be a Model instead of Entity otherwise the plane isn't rendered! Field _camTarget:Entity Field test:Model Method New() Super.New( "Toy Plane", 1280, 480, WindowFlags.Resizable | WindowFlags.HighDPI  ) _res = New Vec2i( Width, Height ) Print _res Layout = "letterbox" _scene=Scene.GetCurrent() _scene.SkyTexture=Texture.Load( "asset::miramar-skybox.jpg",TextureFlags.FilterMipmap|TextureFlags.Cubemap ) _scene.EnvTexture = _scene.SkyTexture _scene.FogColor = New Color(0.69, 0.78, 0.82, 0.3 ) _scene.FogFar = 5000 _scene.FogNear = 1 'create light _light=New Light _light.Rotate( 45, 45, 0 ) _light.CastsShadow = True 'create water material ' Local waterMaterial:=New WaterMaterial ' ' waterMaterial.ScaleTextureMatrix( 200,200 ) ' waterMaterial.ColorFactor=New Color( 0.05, 0.25, 0.3 ) ' waterMaterial.Roughness=0 ' ' waterMaterial.NormalTextures=New Texture[]( ' Texture.Load( "asset::water_normal0.png",TextureFlags.WrapST | TextureFlags.FilterMipmap ), ' Texture.Load( "asset::water_normal1.png",TextureFlags.WrapST | TextureFlags.FilterMipmap ) ) ' ' waterMaterial.Velocities=New Vec2f[]( ' New Vec2f( .01,.03 ), ' New Vec2f( .02,.05 ) ) 'create water ' _water=Model.CreateBox( New Boxf( -10000,-1,-10000,10000,0,10000 ),1,1,1,waterMaterial ) 'create bloom ' Local _bloom := New BloomEffect( 2 ) ' _scene.AddPostEffect( _bloom ) 'create main pivot ' _pivot = New Model 'create airplane ' _plane = Model.LoadBoned( "asset::plane_combined.glb" ) ' _plane.Animator.Animate( 0 ) ' _plane.Parent = _pivot ' _plane.Position = New Vec3f ' Local mat := Cast<PbrMaterial>( _plane.Materi ) ' Local mat := New PbrMaterial( Color.LightGrey, 0.1, 0.1, True ) ' Local tex := Texture.Load( "asset::plane_Oc.png", TextureFlags.FilterMipmap ) ' mat.OcclusionTexture = tex ' Print _plane.Materials.Length ' Print ( _plane.Material? "true" Else "False" ) ' _plane.Material = mat 'create camera target _camTarget = New Entity( _plane ) ' _camTarget = Model.CreateSphere( 0.25, 12, 12, New PbrMaterial( Color.Red ) ) _camTarget.Parent = _plane _camTarget.Position = New Vec3f( 0, 0, 10 )   'create camera _camera=New Camera( _pivot ) _camera.Near=.1 _camera.Far=10000 ' _camera.FOV = 60 _camera.Move( 0,3,-12 ) Print _camera.Aspect 'Control component ' Local control := _pivot.AddComponent<PlaneControl>() ' control.plane = _plane ' control.camera = _camera ' control.target = _camTarget   ' _pivot.Position = New Vec3f( 0, 6, 0 ) Local ball := Model.CreateSphere( 2, 24, 24, New PbrMaterial( Color.Red, 0.1, 0.25 ) ) ball.Move( 0, 4, 0) End Method OnRender( canvas:Canvas ) Override RequestRender() ' _water.Position=New Vec3f( Round(_camera.Position.x/2000)*2000,0,Round(_camera.Position.z/2000)*2000 )   _camera.WorldPointAt( _camTarget.Position ) ' _scene.Update() _camera.Render( canvas )   canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) End ' Method OnMeasure:Vec2i() Override Return _res End End   Function Main() New AppInstance New MyWindow App.Run() End     Class Entity Extension Method WorldPointAt( target:Vec3f,up:Vec3f=New Vec3f( 0,1,0 ) ) Local k:=(target-Position).Normalize() Local i:=up.Cross( k ).Normalize() Local j:=k.Cross( i ) Basis=New Mat3f( i,j,k ) End   End

[EthernautParticipant]

The GL shading language itself is not that hard, you can learn most of what you need by reading this and doing the exercises directly in the web page: https://thebookofshaders.com

The difficult part for me was understanding how it connects to Monkey2 and Mojo, and it took a lot of trial an error. That’s why I put together those examples, so that people trying the same would find it easier.

However, those are all 2D. I still haven’t successfully made a 3D material with its own shader, although I haven’t tried recently.

[EthernautParticipant]

Yay, looks great!
Oh no, Windows only!

Will check later… booting up Windows will take forever since I haven’t used it in months and it will try to update…

[EthernautParticipant]

Updated!
The shader is kinda heavy, though. May not run at 60fps at high resolutions. Dialing the blur samples down speeds things up.

https://github.com/DoctorWhoof/Mojo-Shader-Tests

Attachments:

1. 

   Screen-Shot-2018-01-20-at-9.15.01-PM.png
   

2. 

   Screen-Shot-2018-01-21-at-2.05.50-AM.png
   

[EthernautParticipant]

This doesn’t directly answer your question, but may help:
https://github.com/DoctorWhoof/Mojo-Shader-Tests

To do what you want, just create an image canvas with the associated shader, then draw to that canvas, flush it and draw that image into the “main” canvas.

If I have time later I can make a little example.
Cheers!

[EthernautParticipant]

working on lighting/transparency right now

Yay!

[EthernautParticipant]

Oh, and the best way to “inspect” mojo classes, in my opinion, is from within Ted2Go!

You can go to the “docs” tab, move it to the side dock (yes you can dock it!) and start typing the class you want, with the namespace in it, like “mojo3d.mesh” (capitalization doesn’t seem to matter) and hit enter. Every time you hit enter, a similar result will be shown.

Hitting F1 twice with the cursor in a keyword also works. Not always, though. Typing the namespace seems more consistent.

Cheers.

[EthernautParticipant]

Actually, you can remove the “If( ( Abs(s0.X) / camera.Viewport.Width ) < 2.0 )And ( ( Abs(s0.Y) / camera.Viewport.Height ) < 2.0 )” lines…

The only reason I have those is because I use coordinates (0,0) at the center of the screen, not at the corner… you can just remove those checks.

Here’s how it looks like when you feed that method all the points in a mesh.
(The render time is usually around a millisecond… I think the screen capture messed it up).

I never got backface culling working, though. Now that I think about it… how would you do that? Hmmm…
Cheers!

[EthernautParticipant]

I started work on a wireframe renderer a while ago, but never finished it.
It used “Camera.ProjectToViewPort( Vec3f )” to work. Haven’t tried it in a while, maybe still works…

Monkey

Class Canvas Extension Method Draw3DLine( camera:Camera, v0:Vec3f, v1:Vec3f, offsetX:Float=0, offsetY:Float=0 ) Local s0 := camera.ProjectToViewport( v0 ) Local s1 := camera.ProjectToViewport( v1 ) If( ( Abs(s0.X) / camera.Viewport.Width ) < 2.0 )And ( ( Abs(s0.Y) / camera.Viewport.Height ) < 2.0 ) If( ( Abs(s1.X) / camera.Viewport.Width ) < 2.0 )And ( ( Abs(s1.Y) / camera.Viewport.Height ) < 2.0 ) If camera.Viewport.Contains( s0 , s1 ) DrawLine( s0.X-offsetX, -s0.Y+offsetY, s1.X-offsetX, -s1.Y+offsetY ) End End End End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Class Canvas Extension Method Draw3DLine( camera:Camera, v0:Vec3f, v1:Vec3f, offsetX:Float=0, offsetY:Float=0  ) Local s0 := camera.ProjectToViewport( v0 ) Local s1 := camera.ProjectToViewport( v1 ) If( ( Abs(s0.X) / camera.Viewport.Width ) < 2.0  )And ( ( Abs(s0.Y) / camera.Viewport.Height ) < 2.0 ) If( ( Abs(s1.X) / camera.Viewport.Width ) < 2.0  )And ( ( Abs(s1.Y) / camera.Viewport.Height ) < 2.0 ) If camera.Viewport.Contains( s0 , s1 ) DrawLine( s0.X-offsetX, -s0.Y+offsetY, s1.X-offsetX, -s1.Y+offsetY ) End End End End   End

[EthernautParticipant]

I get some occasional stutter when using Intel HD graphics card, and super smooth 60fps when using AMD Radeon card. Both on MacOS, 3 year old laptop. (I use this utility to manually switch cards:https://gfx.io).

I get the point of doing a “stress test”, but I think any kind of 2D game can be designed to work really well in Monkey2 in modern hardware. Either way, I don’t think there’s much garbage collection going on in your test, if any. I wonder if something like SDL is doing anything under the hood that could cause the occasional stutter.

[EthernautParticipant]

Can you post an example that’s not smooth on Monkey2 on your hardware?

Everything I test in 2D runs super smooth here (and I’m really picky about this sort of stuff) even on a laptop with crappy Intel HD graphics and MacOS High Sierra.

Cheers.

[EthernautParticipant]

I’d love to be able to simply use GLTF for the entire scene, actually! It seems to allow custom extensions, so I could shove some custom data in there when needed. But writing my own GLTF exporter seems like a lot of work…

Maybe later

P.S. Can you reference other GLTF files from inside a GLTF file? (to reference external models into a scene)

[EthernautParticipant]

Custom node with PbrMaterial editing in Houdini is on!

Now I need to get those exported to Mojo3D materials…

[EthernautParticipant]

You can get an unlit look with the PbrShader by:

– Turning off the EnvTexture (i.e. “_scene.EnvColor = Color.Black”, this will create a black texture for the environment )

– Setting the ambient light to Color.White (“_scene.AmbientLight = Color.White”)

– Making sure the material has 0 Metalness and 1.0 roughness, if you want no specular hilights.

– Don’t add any lights.

This will look like an unlit shader, but it won’t render as fast as one!

[Author]

Posts