Simple mojo3d view culler

[Mark SiblyKeymaster]

Simple view culling logic – soon to be added to engine.

Monkey

Namespace myapp3d #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Function TransformBox:Boxf( box:Boxf,matrix:AffineMat4f ) Local r:Boxf=Boxf.EmptyBounds For Local i:=0 Until 8 r|=matrix * box.Corner( i ) Next Return r End Function GetClipPlanes:Planef[]( p:Mat4f ) Return New Planef[]( New Planef( p.i.w+p.i.x, p.j.w+p.j.x, p.k.w+p.k.x, p.t.w+p.t.x ).Normalize(), New Planef( p.i.w-p.i.x, p.j.w-p.j.x, p.k.w-p.k.x, p.t.w-p.t.x ).Normalize(), New Planef( p.i.w+p.i.y, p.j.w+p.j.y, p.k.w+p.k.y, p.t.w+p.t.y ).Normalize(), New Planef( p.i.w-p.i.y, p.j.w-p.j.y, p.k.w-p.k.y, p.t.w-p.t.y ).Normalize(), New Planef( p.i.w+p.i.z, p.j.w+p.j.z, p.k.w+p.k.z, p.t.w+p.t.z ).Normalize(), New Planef( p.i.w-p.i.z, p.j.w-p.j.z, p.k.w-p.k.z, p.t.w-p.t.z ).Normalize() ) End 'Simple conservative approach, just check all box corners are outside one plane. ' Function CheckVisible:Bool( box:Boxf,planes:Planef[] ) For Local p:=Eachin planes Local allbehind:=True For Local i:=0 Until 8 If p.Distance( box.Corner( i ) )<0 Continue allbehind=False Exit Next If allbehind Return False Next Return True End Function CheckVisible:Bool( model:Model,camera:Camera ) 'model space->view space matrix Local modelView:=-camera.Matrix * model.Matrix 'view space clip planes Local clipPlanes:=GetClipPlanes( camera.ProjectionMatrix ) 'view space mesh bounds Local bounds:=TransformBox( model.Mesh.Bounds,modelView ) 'check! Return CheckVisible( bounds,clipPlanes ) End Class MyWindow Extends Window Field _scene:Scene Field _camera:Camera Field _light:Light Field _ground:Model Field _donut:Model Method New( title:String="Simple mojo3d app",width:Int=640,height:Int=480,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) 'create (current) scene ' _scene=New Scene _scene.ShadowAlpha=.75 'create camera ' _camera=New Camera( Self ) _camera.AddComponent<FlyBehaviour>() _camera.Move( 0,10,-5 ) 'create light ' _light=New Light _light.RotateX( 90 ) _light.CastsShadow=True 'create ground ' Local groundBox:=New Boxf( -50,-1,-50,50,0,50 ) Local groundMaterial:=New PbrMaterial( Color.Green,0,1 ) _ground=Model.CreateBox( groundBox,1,1,1,groundMaterial ) _ground.CastsShadow=False 'create dount ' Local donutMaterial:=New PbrMaterial( Color.Brown ) _donut=Model.CreateTorus( 2,.5,48,24,donutMaterial ) _donut.Move( 0,10,0 ) End Method OnRender( canvas:Canvas ) Override 'check if in view? _donut.Visible=CheckVisible( _donut,_camera ) RequestRender() _donut.Rotate( .2,.4,.6 ) _scene.Update() _camera.Render( canvas ) canvas.DrawText( "Visible="+_donut.Visible+", FPS="+App.FPS,0,0 ) 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 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

Namespace myapp3d   #Import "<std>" #Import "<mojo>" #Import "<mojo3d>"   Using std.. Using mojo.. Using mojo3d..   Function TransformBox:Boxf( box:Boxf,matrix:AffineMat4f ) Local r:Boxf=Boxf.EmptyBounds For Local i:=0 Until 8 r|=matrix * box.Corner( i ) Next Return r End   Function GetClipPlanes:Planef[]( p:Mat4f ) Return New Planef[]( New Planef( p.i.w+p.i.x, p.j.w+p.j.x, p.k.w+p.k.x, p.t.w+p.t.x ).Normalize(), New Planef( p.i.w-p.i.x, p.j.w-p.j.x, p.k.w-p.k.x, p.t.w-p.t.x ).Normalize(), New Planef( p.i.w+p.i.y, p.j.w+p.j.y, p.k.w+p.k.y, p.t.w+p.t.y ).Normalize(), New Planef( p.i.w-p.i.y, p.j.w-p.j.y, p.k.w-p.k.y, p.t.w-p.t.y ).Normalize(), New Planef( p.i.w+p.i.z, p.j.w+p.j.z, p.k.w+p.k.z, p.t.w+p.t.z ).Normalize(), New Planef( p.i.w-p.i.z, p.j.w-p.j.z, p.k.w-p.k.z, p.t.w-p.t.z ).Normalize() ) End   'Simple conservative approach, just check all box corners are outside one plane. ' Function CheckVisible:Bool( box:Boxf,planes:Planef[] ) For Local p:=Eachin planes Local allbehind:=True For Local i:=0 Until 8 If p.Distance( box.Corner( i ) )<0 Continue allbehind=False Exit Next If allbehind Return False Next Return True End   Function CheckVisible:Bool( model:Model,camera:Camera )   'model space->view space matrix Local modelView:=-camera.Matrix * model.Matrix 'view space clip planes Local clipPlanes:=GetClipPlanes( camera.ProjectionMatrix ) 'view space mesh bounds Local bounds:=TransformBox( model.Mesh.Bounds,modelView ) 'check! Return CheckVisible( bounds,clipPlanes ) End   Class MyWindow Extends Window Field _scene:Scene Field _camera:Camera Field _light:Light Field _ground:Model Field _donut:Model Method New( title:String="Simple mojo3d app",width:Int=640,height:Int=480,flags:WindowFlags=WindowFlags.Resizable )   Super.New( title,width,height,flags ) 'create (current) scene ' _scene=New Scene _scene.ShadowAlpha=.75 'create camera ' _camera=New Camera( Self ) _camera.AddComponent<FlyBehaviour>() _camera.Move( 0,10,-5 ) 'create light ' _light=New Light _light.RotateX( 90 ) _light.CastsShadow=True 'create ground ' Local groundBox:=New Boxf( -50,-1,-50,50,0,50 ) Local groundMaterial:=New PbrMaterial( Color.Green,0,1 ) _ground=Model.CreateBox( groundBox,1,1,1,groundMaterial ) _ground.CastsShadow=False 'create dount ' Local donutMaterial:=New PbrMaterial( Color.Brown ) _donut=Model.CreateTorus( 2,.5,48,24,donutMaterial ) _donut.Move( 0,10,0 ) End Method OnRender( canvas:Canvas ) Override 'check if in view? _donut.Visible=CheckVisible( _donut,_camera ) RequestRender() _donut.Rotate( .2,.4,.6 )   _scene.Update() _camera.Render( canvas )   canvas.DrawText( "Visible="+_donut.Visible+", FPS="+App.FPS,0,0 ) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[AmonParticipant]

I get a similar error to the one I got with pyro.

/untitled1.monkey2 [25] : Error : Can’t find overload for ‘new’ with argument types (monkey.types.Float,monkey.types.Float,monkey.types.Float,monkey.types.Float)

[DruggedBunnyParticipant]

Yeah, same here, doesn’t like the first New Planef. (Latest dev.)

[rskgamesParticipant]

Edited the code as follows and was able to run the code

Monkey

Return New Planef[]( New Planef( New Vec3<Float>(p.i.w+p.i.x, p.j.w+p.j.x, p.k.w+p.k.x), p.t.w+p.t.x ), New Planef( New Vec3<Float>(p.i.w-p.i.x, p.j.w-p.j.x, p.k.w-p.k.x), p.t.w-p.t.x ), New Planef( New Vec3<Float>(p.i.w+p.i.y, p.j.w+p.j.y, p.k.w+p.k.y), p.t.w+p.t.y ), New Planef( New Vec3<Float>(p.i.w-p.i.y, p.j.w-p.j.y, p.k.w-p.k.y), p.t.w-p.t.y ), New Planef( New Vec3<Float>(p.i.w+p.i.z, p.j.w+p.j.z, p.k.w+p.k.z), p.t.w+p.t.z ), New Planef( New Vec3<Float>(p.i.w-p.i.z, p.j.w-p.j.z, p.k.w-p.k.z), p.t.w-p.t.z ))

1 2 3 4 5 6 7

Return New Planef[]( New Planef( New Vec3<Float>(p.i.w+p.i.x, p.j.w+p.j.x, p.k.w+p.k.x), p.t.w+p.t.x ), New Planef( New Vec3<Float>(p.i.w-p.i.x, p.j.w-p.j.x, p.k.w-p.k.x), p.t.w-p.t.x ), New Planef( New Vec3<Float>(p.i.w+p.i.y, p.j.w+p.j.y, p.k.w+p.k.y), p.t.w+p.t.y ), New Planef( New Vec3<Float>(p.i.w-p.i.y, p.j.w-p.j.y, p.k.w-p.k.y), p.t.w-p.t.y ), New Planef( New Vec3<Float>(p.i.w+p.i.z, p.j.w+p.j.z, p.k.w+p.k.z), p.t.w+p.t.z ), New Planef( New Vec3<Float>(p.i.w-p.i.z, p.j.w-p.j.z, p.k.w-p.k.z), p.t.w-p.t.z ))

Object inside frustum                                                                                             Object outside frustum

[Mark SiblyKeymaster]

Develop branch should be updated now.

Note: if git starts giving you weird errors http messages on windows when you ‘git push’, install this:

https://github.com/Microsoft/Git-Credential-Manager-for-Windows/releases/tag/v1.14.0

Modern software is rubbish…

[Author]

Posts