mojo3d-vr VR Samples

[DruggedBunnyParticipant]

Here’s a basic VR demo for use with the latest Patreon subscriber release (subscribe and drop Mark an email for access!*), or the Github build-it-yourself develop branch. The mojo3d-vr module is a simple wrapper around OpenVR.

* Note that Mark has only included this early version for playing with and doesn’t intend to focus on VR at this time, but it’s still a lot of fun to mess about with.

Should work with at least HTC Vive, Oculus Rift DK2 and CV1, with hand controller support for Vive and CV1.

Monkey

[crayon-5cb9a3bd2315a220159918 inline="true" ] ' Don't copy the 'crayon' line above if it's there -- forum bug! #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<mojo3d-vr>" Using std.. Using mojo.. Using mojo3d.. Global AppName:String = "VR App" Class VRCamera Extends Camera Field pivot:Model ' Give Camera a parent pivot to allow free movement of ' camera while including user's own head movements... Method New () pivot = New Model Parent = pivot End ' Update camera's own local matrix from VRRenderer's headset matrix... Method Update (renderer:VRRenderer) LocalBasis = renderer.HeadMatrix.m LocalPosition = renderer.HeadMatrix.t End End Class VRScene Extends Window ' Core... Field scene:Scene Field light:Light Field renderer:VRRenderer ' VR renderer (duh) Field camera:VRCamera ' Demo stuff... ' Er, camera speed logic is a bit weird/unnecessary... Const CAMERA_SPEED_NORMAL:Float = 0.05 ' Normal camera movement Const CAMERA_SPEED_BOOST:Float = 4.0 ' Camera boost with Shift key Field cam_speed:Float = 1.0 ' Camera forward speed Field headset:Model ' Used to give an in-scene shadow of user's head, not actually needed Field test_cube:Model Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) SeedRnd (Millisecs ()) test_cube = Model.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5), 1, 1, 1, New PbrMaterial (Color.Red)) test_cube.Move (0, 0, 2) CreateScene (15) End Method CreateScene:Void (ground_size:Float = 100) ' Create VR renderer and shadow resolution for close-up work, ' with more numbers at the lower (closer) end of the range... renderer = New VRRenderer ' VR renderer settings... renderer.TrackingSpace = VRTrackingSpace.Seated ' Set up 3D scene stuff... scene = Scene.GetCurrent () ' Scene settings... scene.CSMSplits = New Float [] (2, 4, 16, 256) scene.AmbientLight = Color.White * 0.75 scene.ClearColor = Color.Sky * 0.75 ' Light setup... light = New Light light.CastsShadow = True light.Range = 500 light.Move (0, 20, 10) ' Camera setup... camera = New VRCamera ' Camera settings... camera.Near = 0.1 ' Headset cone model (just casts a shadow to show your head movement in- ' scene). Not actually required... headset = Model.CreateCone (0.12, 0.12, Axis.Z, 8, New PbrMaterial (Color.Gold), camera) End Method UpdateGame () ' Reset default position... If Keyboard.KeyHit (Key.Enter) renderer.ResetSeatedPose () Endif ' Quit... If Keyboard.KeyHit (Key.Escape) App.Terminate () Endif ' Shadows on/off... If Keyboard.KeyHit (Key.S) light.CastsShadow = Not light.CastsShadow Endif ' Speed booster... If Keyboard.KeyDown (Key.LeftShift) cam_speed = CAMERA_SPEED_BOOST Else cam_speed = 1.0 Endif ' Forward... If Keyboard.KeyDown (Key.A) camera.pivot.Move (0.0, 0.0, CAMERA_SPEED_NORMAL * cam_speed) Endif ' Back... If Keyboard.KeyDown (Key.Z) camera.pivot.Move (0.0, 0.0, -CAMERA_SPEED_NORMAL * cam_speed) Endif ' Rotation... If Keyboard.KeyDown (Key.Left) camera.pivot.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.pivot.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.pivot.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) camera.pivot.Rotate (-1.0, 0.0, 0.0, True) Endif End ' App window drawing (separate to VR headset output)... Method OnRender (canvas:Canvas) Override UpdateGame () ' Game-specific updates RequestRender () ' Ask app window to redraw renderer.Update () ' Update headset position, etc camera.Update (renderer) ' Update camera from renderer's headset matrix scene.Update () ' Update any physics, etc... scene.Render (canvas) ' Draw VR scene to canvas AND, automatically and separately, to headset ' Some 2D drawing for the normal desktop window (ie. outside of VR headset)... ' renderer:VRRenderer allows access to left/right views from headset. We use ' the left view here for drawing in the standard window... canvas.DrawRect (0, Height, Width, -Height, renderer.LeftEyeImage) canvas.Scale (Width/App.ActiveWindow.Width, Height/App.ActiveWindow.Height) canvas.DrawText ("FPS: " + App.FPS, 0.0, 0.0) canvas.DrawText ("Camera controls: Cursors, plus A/Z (Shift for boost!)", 20.0, 20.0) End End ' All-in-one startup -- width and height relate to non-VR window; rendering is headset-native... Function RunVR (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center) New AppInstance New VRScene (title, width, height, flags) App.Run () End Function Main () RunVR ("VR Scene", 640, 480, WindowFlags.Center) ' RunVR ("VR Scene", 1920, 1080, WindowFlags.Fullscreen) 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 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221

[crayon-5cb9a3bd2315a220159918 inline="true" ]   ' Don't copy the 'crayon' line above if it's there -- forum bug!   #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<mojo3d-vr>"   Using std.. Using mojo.. Using mojo3d..   Global AppName:String = "VR App"   Class VRCamera Extends Camera   Field pivot:Model ' Give Camera a parent pivot to allow free movement of ' camera while including user's own head movements... Method New () pivot = New Model Parent = pivot End   ' Update camera's own local matrix from VRRenderer's headset matrix... Method Update (renderer:VRRenderer) LocalBasis = renderer.HeadMatrix.m LocalPosition = renderer.HeadMatrix.t End   End   Class VRScene Extends Window   ' Core... Field scene:Scene Field light:Light   Field renderer:VRRenderer ' VR renderer (duh) Field camera:VRCamera ' Demo stuff... ' Er, camera speed logic is a bit weird/unnecessary... Const CAMERA_SPEED_NORMAL:Float = 0.05 ' Normal camera movement Const CAMERA_SPEED_BOOST:Float = 4.0 ' Camera boost with Shift key Field cam_speed:Float = 1.0 ' Camera forward speed Field headset:Model ' Used to give an in-scene shadow of user's head, not actually needed Field test_cube:Model Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags)   SeedRnd (Millisecs ()) test_cube = Model.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5), 1, 1, 1, New PbrMaterial (Color.Red)) test_cube.Move (0, 0, 2) CreateScene (15) End   Method CreateScene:Void (ground_size:Float = 100)   ' Create VR renderer and shadow resolution for close-up work, ' with more numbers at the lower (closer) end of the range... renderer = New VRRenderer   ' VR renderer settings... renderer.TrackingSpace = VRTrackingSpace.Seated ' Set up 3D scene stuff...   scene = Scene.GetCurrent () ' Scene settings... scene.CSMSplits = New Float [] (2, 4, 16, 256) scene.AmbientLight = Color.White * 0.75 scene.ClearColor = Color.Sky * 0.75   ' Light setup... light = New Light light.CastsShadow = True light.Range = 500   light.Move (0, 20, 10) ' Camera setup...   camera = New VRCamera ' Camera settings... camera.Near = 0.1 ' Headset cone model (just casts a shadow to show your head movement in- ' scene). Not actually required... headset = Model.CreateCone (0.12, 0.12, Axis.Z, 8, New PbrMaterial (Color.Gold), camera) End   Method UpdateGame () ' Reset default position... If Keyboard.KeyHit (Key.Enter) renderer.ResetSeatedPose () Endif   ' Quit... If Keyboard.KeyHit (Key.Escape) App.Terminate () Endif ' Shadows on/off... If Keyboard.KeyHit (Key.S) light.CastsShadow = Not light.CastsShadow Endif ' Speed booster... If Keyboard.KeyDown (Key.LeftShift) cam_speed = CAMERA_SPEED_BOOST Else cam_speed = 1.0 Endif ' Forward... If Keyboard.KeyDown (Key.A) camera.pivot.Move (0.0, 0.0, CAMERA_SPEED_NORMAL * cam_speed) Endif ' Back... If Keyboard.KeyDown (Key.Z) camera.pivot.Move (0.0, 0.0, -CAMERA_SPEED_NORMAL * cam_speed) Endif ' Rotation... If Keyboard.KeyDown (Key.Left) camera.pivot.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.pivot.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.pivot.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) camera.pivot.Rotate (-1.0, 0.0, 0.0, True) Endif End ' App window drawing (separate to VR headset output)... Method OnRender (canvas:Canvas) Override UpdateGame () ' Game-specific updates RequestRender () ' Ask app window to redraw   renderer.Update () ' Update headset position, etc camera.Update (renderer) ' Update camera from renderer's headset matrix   scene.Update () ' Update any physics, etc... scene.Render (canvas) ' Draw VR scene to canvas AND, automatically and separately, to headset   ' Some 2D drawing for the normal desktop window (ie. outside of VR headset)... ' renderer:VRRenderer allows access to left/right views from headset. We use ' the left view here for drawing in the standard window... canvas.DrawRect (0, Height, Width, -Height, renderer.LeftEyeImage) canvas.Scale (Width/App.ActiveWindow.Width, Height/App.ActiveWindow.Height) canvas.DrawText ("FPS: " + App.FPS, 0.0, 0.0)   canvas.DrawText ("Camera controls: Cursors, plus A/Z (Shift for boost!)", 20.0, 20.0) End End ' All-in-one startup -- width and height relate to non-VR window; rendering is headset-native...   Function RunVR (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center)   New AppInstance New VRScene (title, width, height, flags)   App.Run ()   End   Function Main () RunVR ("VR Scene", 640, 480, WindowFlags.Center) ' RunVR ("VR Scene", 1920, 1080, WindowFlags.Fullscreen) End

[/crayon]

[DruggedBunnyParticipant]

This is a bigger demo, playing with physics.

We can’t currently render text in the headset — it doesn’t render to a canvas, just direct to headset, so we don’t have much control over that — so you’ll have to use the controls as shown in the main window. Awkward!

Monkey

[crayon-5cb9a3bd2c69c887923317 inline="true" ] ' Don't copy the 'crayon' line above if it's there -- forum bug! ' TODO: Headbutt blocks doesn't collide, driving into them does... #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<mojo3d-vr>" #Import "<bullet>" Using std.. Using mojo.. Using mojo3d.. Const WALL_WIDTH:Int = 15 Const WALL_HEIGHT:Int = 10 Const BULLET_FORCE:Float = 250.0 ' Too high will go through without colliding! Class VRCamera Extends Camera Field pivot:Model ' Give Camera a pivot to allow independent movement... Method New () pivot = New Model Parent = pivot End ' Update camera from VRRenderer's headset matrix... Method Update (renderer:VRRenderer) ' LocalBasis = renderer.HeadMatrix.m ' LocalPosition = renderer.HeadMatrix.t SetBasis (renderer.HeadMatrix.m, True) SetPosition (renderer.HeadMatrix.t, True) 'Scene.Update () End End Class PhysBox Private ' PhysParams is used internally to allow creation of box prior to manual placement. ' Entities should not be manually positioned after being attached to a RigidBody. ' Create PhysBox, manually position PhysBox.model, then call PhysBox.Start (). Class InitParams Field mass:Float Field group:Short Field mask:Short Field box:Boxf End ' InitParams are only needed for setup, and freed afterwards, hence not added as separate fields. Field init:InitParams Public ' Public references... Field model:Model ' mojo3d entity Field collider:BoxCollider ' Bullet physics collider Field body:RigidBody ' Bullet physics body Method New (width:Float = 1, height:Float = 1, depth:Float = 1, mass:Float = 1, material:Material = Null, parent:Entity = Null, group:Int = 1, mask:Int = 1) ' Store setup params for PhysBox.Start () init = New InitParams init.mass = mass init.group = group init.mask = mask init.box = New Boxf (-width * 0.5, -height * 0.5, -depth * 0.5, width * 0.5, height * 0.5, depth * 0.5) If Not material material = New PbrMaterial (Color.Red) Endif model = Model.CreateBox (init.box, 1, 1, 1, material, parent) End Method Start (sleeps:Bool = True) collider = New BoxCollider (model) body = New RigidBody (model) collider.Box = init.box body.Mass = init.mass body.CollisionGroup = init.group body.CollisionMask = init.mask ' body.Friction = 0 ' body.RollingFriction = 1.0 body.Restitution = 0.1 ' Slight bounciness ' Disables sleeping -- NOT generally desirable outside of demos, as most bodies should settle... ' Recommended only for player-controlled bodies in general! If Not sleeps body.btBody.setActivationState (bullet.DISABLE_DEACTIVATION) Endif init = Null End Method Move (x:Float, y:Float, z:Float) model.Move (x, y, z) End Method Rotate (pitch:Float, roll:Float, yaw:Float, localspace:Bool = False) model.Rotate (pitch, roll, yaw, localspace) End End Class Entity Extension ' Temp workaround for child-entity.PointAt by DoctorWhoof! ' https://github.com/blitz-research/monkey2/issues/324 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 ' Temp workaround for removing parent entities, by Mark: ' http://monkeycoder.co.nz/forums/topic/mojo3d-set-to-default-parent/#post-12911 Method RemoveParent () Local matrix:AffineMat4f = Matrix Parent = Null Matrix = matrix End End ' Main Game class... Class Game Extends Window ' Er, camera speed logic is a bit weird/unnecessary... Const CAMERA_SPEED_NORMAL:Float = 0.05 ' Normal camera movement Const CAMERA_SPEED_BOOST:Float = 5.0 ' Camera boost with Shift key Field camera_speed:Float = 1.0 ' Camera forward speed ' 3D scene references... Field scene:Scene Field renderer:VRRenderer Field camera:VRCamera Field light:Light Field camera_collider:SphereCollider Field camera_body:RigidBody ' Physics box representing ground... Field ground:PhysBox ' List of PhysBoxes... Field boxes:List <PhysBox> ' App init/scene creation... Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) ' Create window SeedRnd (Millisecs ()) ' Init random seed SwapInterval = 1 ' V-sync on CreateScene (50) ' WAAAAAAAHHH! (Parameter = ground size.) End Method CreateScene:Void (ground_size:Float = 100) renderer = New VRRenderer renderer.TrackingSpace = VRTrackingSpace.Seated ' Set up 3D scene stuff... scene = Scene.GetCurrent () scene.CSMSplits = New Float [] (2, 4, 16, 256) ground = New PhysBox (ground_size, 1, ground_size, 0, New PbrMaterial (Color.Green * 0.25)) camera = New VRCamera light = New Light scene.AmbientLight = Color.White * 0.75 scene.ClearColor = Color.Sky * 0.75 ' Camera setup... camera.FOV = 100 camera.pivot.Move (0, 5, -10) camera.Near = 0.01 camera.Far = 1000 ' Camera collision with boxes. Not with ground? Both masses = 0, possibly relevant... ' NB. camera radius is half width of default block (1.0), minus a little to allow passing between columns of blocks... camera_collider = New SphereCollider (camera.pivot) camera_collider.Radius = 0.45 camera_body = New RigidBody (camera.pivot) camera_body.Kinematic = True camera_body.Mass = 0 ' Light setup... light.CastsShadow = True light.Range = 1000 light.Move (-10, 50, -10) ' Point things at ground centre... ' camera.WorldPointAt (ground.model.Position) light.PointAt (ground.model) ' Create list of PhysBoxes... boxes = New List <PhysBox> ' Build wall of PhysBoxes... BuildWall (WALL_WIDTH, WALL_HEIGHT) ' Start ground physics... ground.Start () End Method BuildWall (width:Int, height:Int, block_mass:Float = 5.0) Local pb:PhysBox ' Creates bunch of PhysBoxes and adds to internal list (boxes)... For Local y:Int = 0 Until height For Local x:Int = 0 Until width Local color:Color = New Color (Rnd (0.4, 1.0), Rnd (0.4, 1.0), Rnd (0.4, 1.0)) ' Create new PhysBox... pb = New PhysBox (1, 1, 1, block_mass, New PbrMaterial (color)) ' Position PhysBox... pb.Move (x - (width * 0.5) + 0.5, y + 1, 0) ' Add to list... boxes.Add (pb) ' Start its physics... pb.Start () ' False = RigidBody doesn't sleep at rest Next Next ' Lintel, or "top bit"... pb = New PhysBox (width, 1, 1, width * height * 1.0, New PbrMaterial (Color.Chromium)) pb.Move (0, height + 1, 0) boxes.Add (pb) pb.Start () End Method DropBox () ' Drops pink boxes into scene... Local pb:PhysBox = New PhysBox (1, 1, 1, 1, New PbrMaterial (Color.HotPink)) pb.Move (0, 30, 0) boxes.Add (pb) pb.Start () End ' Fire bullets! Method ShootBox (force:Float = BULLET_FORCE) ' Create bullet -- mass 5.0 -- as child of ' camera, to pick up location/rotation... Local pb:PhysBox = New PhysBox (0.75, 0.75, 0.75, 5, New PbrMaterial (Color.Red), camera) ' Move forward in local (child) space by 2 units... pb.model.Move (0.0, 0.0, 2.0) ' Get rid of parent/child relationship so bullet isn't ' attached to camera any more... pb.model.RemoveParent () ' Add to list of PhysBoxes... boxes.Add (pb) ' Start physics... pb.Start () ' Apply force (as impulse, ie. instantly)... ' Method carefully derived from typing properties and methods until it worked! ' World vector multiplied by 1 in all axes other than z, which is multiplied by force... pb.body.ApplyImpulse (pb.model.Basis * New Vec3f (1.0, 1.0, force)) End Method UpdateBoxes () For Local pb:PhysBox = Eachin boxes If pb.model.Y < -20 pb.model.Scale = pb.model.Scale * 0.75 ' Remove when too small... If pb.model.Scale.x < 0.01 pb.model.Destroy () boxes.Remove (pb) Endif Endif Next End Method UpdateGame () ' Check box position/remove if too far down... UpdateBoxes () If Keyboard.KeyHit (Key.Enter) renderer.ResetSeatedPose () Endif If Keyboard.KeyHit (Key.Space) ShootBox () Endif ' Drop boxes... If Keyboard.KeyDown (Key.D) DropBox () Endif ' Quit... If Keyboard.KeyHit (Key.Escape) App.Terminate () Endif ' Shadows on/off... If Keyboard.KeyHit (Key.S) light.CastsShadow = Not light.CastsShadow Endif ' Rebuild wall... If Keyboard.KeyHit (Key.R) For Local pb:PhysBox = Eachin boxes pb.model.Destroy () boxes.Remove (pb) Next BuildWall (WALL_WIDTH, WALL_HEIGHT) Endif ' Speed booster... If Keyboard.KeyDown (Key.LeftShift) camera_speed = CAMERA_SPEED_BOOST Else camera_speed = 1.0 Endif ' Forward... If Keyboard.KeyDown (Key.A) camera.pivot.Move (0.0, 0.0, CAMERA_SPEED_NORMAL * camera_speed) Endif ' Back... If Keyboard.KeyDown (Key.Z) camera.pivot.Move (0.0, 0.0, -CAMERA_SPEED_NORMAL * camera_speed) Endif ' Rotation... If Keyboard.KeyDown (Key.Left) camera.pivot.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.pivot.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.pivot.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) camera.pivot.Rotate (-1.0, 0.0, 0.0, True) Endif End ' Helper... Method ShadowText:Void (canvas:Canvas, s:String, x:Float, y:Float, warning:Bool = False) canvas.Color = Color.Black canvas.DrawText (s, x + 1, y + 1) If warning canvas.Color = Color.Red Else canvas.Color = Color.White Endif canvas.DrawText (s, x, y) End Method RenderText (canvas:Canvas) ShadowText (canvas, "FPS: " + App.FPS, 20.0, 20.0) ShadowText (canvas, "A/Z + Cursors to move camera", 20.0, 40.0) ShadowText (canvas, "SHIFT to boost", 20.0, 60.0) ShadowText (canvas, "S to toggle shadows", 20.0, 80.0) ShadowText (canvas, "R to rebuild wall", 20.0, 120.0) ShadowText (canvas, "D to drop more boxes", 20.0, 140.0) ShadowText (canvas, "ENTER to reset position", 20.0, 160.0) ShadowText (canvas, "SPACE to fire", 20.0, 180.0) ShadowText (canvas, "Boxes: " + boxes.Count (), 20.0, 200.0) End Method OnRender (canvas:Canvas) Override UpdateGame () ' Game-specific updates RequestRender () ' Ask app window to redraw renderer.Update () ' Update headset position, etc camera.Update (renderer) ' Update camera from renderer's headset matrix scene.Update () ' Update any physics, etc... scene.Render (canvas) ' Draw VR scene to canvas AND headset canvas.DrawRect (0, Height, Width, -Height, renderer.LeftEyeImage) canvas.Scale (Width/App.ActiveWindow.Width, Height/App.ActiveWindow.Height) RenderText (canvas) ' Draw text on desktop window (can't appear in headset at this time)... End End Function Run3D (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center) New AppInstance New Game (title, width, height, flags) App.Run () End Function Main () Run3D ("3D Scene", 960, 540, WindowFlags.Center) ' 1/4 HD! ' Run3D ("3D Scene", 1920, 1080, WindowFlags.Fullscreen) 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 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520

[crayon-5cb9a3bd2c69c887923317 inline="true" ] ' Don't copy the 'crayon' line above if it's there -- forum bug! ' TODO: Headbutt blocks doesn't collide, driving into them does...   #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<mojo3d-vr>" #Import "<bullet>"   Using std.. Using mojo.. Using mojo3d..   Const WALL_WIDTH:Int = 15 Const WALL_HEIGHT:Int = 10   Const BULLET_FORCE:Float = 250.0 ' Too high will go through without colliding!   Class VRCamera Extends Camera   Field pivot:Model ' Give Camera a pivot to allow independent movement... Method New () pivot = New Model Parent = pivot End   ' Update camera from VRRenderer's headset matrix... Method Update (renderer:VRRenderer) ' LocalBasis = renderer.HeadMatrix.m ' LocalPosition = renderer.HeadMatrix.t SetBasis (renderer.HeadMatrix.m, True) SetPosition (renderer.HeadMatrix.t, True) 'Scene.Update () End   End   Class PhysBox   Private ' PhysParams is used internally to allow creation of box prior to manual placement. ' Entities should not be manually positioned after being attached to a RigidBody. ' Create PhysBox, manually position PhysBox.model, then call PhysBox.Start (). Class InitParams Field mass:Float Field group:Short Field mask:Short Field box:Boxf End ' InitParams are only needed for setup, and freed afterwards, hence not added as separate fields. Field init:InitParams Public ' Public references...   Field model:Model ' mojo3d entity Field collider:BoxCollider ' Bullet physics collider Field body:RigidBody ' Bullet physics body   Method New (width:Float = 1, height:Float = 1, depth:Float = 1, mass:Float = 1, material:Material = Null, parent:Entity = Null, group:Int = 1, mask:Int = 1)   ' Store setup params for PhysBox.Start () init = New InitParams init.mass = mass init.group = group init.mask = mask init.box = New Boxf (-width * 0.5, -height * 0.5, -depth * 0.5, width * 0.5, height * 0.5, depth * 0.5) If Not material material = New PbrMaterial (Color.Red) Endif model = Model.CreateBox (init.box, 1, 1, 1, material, parent)   End   Method Start (sleeps:Bool = True)   collider = New BoxCollider (model) body = New RigidBody (model) collider.Box = init.box body.Mass = init.mass body.CollisionGroup = init.group body.CollisionMask = init.mask   ' body.Friction = 0 ' body.RollingFriction = 1.0 body.Restitution = 0.1 ' Slight bounciness ' Disables sleeping -- NOT generally desirable outside of demos, as most bodies should settle... ' Recommended only for player-controlled bodies in general! If Not sleeps body.btBody.setActivationState (bullet.DISABLE_DEACTIVATION) Endif init = Null End Method Move (x:Float, y:Float, z:Float) model.Move (x, y, z) End   Method Rotate (pitch:Float, roll:Float, yaw:Float, localspace:Bool = False) model.Rotate (pitch, roll, yaw, localspace) End End   Class Entity Extension ' Temp workaround for child-entity.PointAt by DoctorWhoof! ' https://github.com/blitz-research/monkey2/issues/324 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   ' Temp workaround for removing parent entities, by Mark:   ' http://monkeycoder.co.nz/forums/topic/mojo3d-set-to-default-parent/#post-12911 Method RemoveParent () Local matrix:AffineMat4f = Matrix Parent = Null Matrix = matrix End End   ' Main Game class...   Class Game Extends Window   ' Er, camera speed logic is a bit weird/unnecessary... Const CAMERA_SPEED_NORMAL:Float = 0.05 ' Normal camera movement Const CAMERA_SPEED_BOOST:Float = 5.0 ' Camera boost with Shift key Field camera_speed:Float = 1.0 ' Camera forward speed ' 3D scene references...   Field scene:Scene Field renderer:VRRenderer Field camera:VRCamera Field light:Light Field camera_collider:SphereCollider Field camera_body:RigidBody ' Physics box representing ground... Field ground:PhysBox   ' List of PhysBoxes... Field boxes:List <PhysBox>   ' App init/scene creation... Method New (title:String, width:Int, height:Int, flags:WindowFlags)   Super.New (title, width, height, flags) ' Create window   SeedRnd (Millisecs ()) ' Init random seed SwapInterval = 1 ' V-sync on CreateScene (50) ' WAAAAAAAHHH! (Parameter = ground size.) End Method CreateScene:Void (ground_size:Float = 100)   renderer = New VRRenderer renderer.TrackingSpace = VRTrackingSpace.Seated ' Set up 3D scene stuff... scene = Scene.GetCurrent () scene.CSMSplits = New Float [] (2, 4, 16, 256)   ground = New PhysBox (ground_size, 1, ground_size, 0, New PbrMaterial (Color.Green * 0.25)) camera = New VRCamera light = New Light scene.AmbientLight = Color.White * 0.75 scene.ClearColor = Color.Sky * 0.75 ' Camera setup... camera.FOV = 100 camera.pivot.Move (0, 5, -10) camera.Near = 0.01 camera.Far = 1000   ' Camera collision with boxes. Not with ground? Both masses = 0, possibly relevant... ' NB. camera radius is half width of default block (1.0), minus a little to allow passing between columns of blocks... camera_collider = New SphereCollider (camera.pivot) camera_collider.Radius = 0.45 camera_body = New RigidBody (camera.pivot) camera_body.Kinematic = True camera_body.Mass = 0 ' Light setup... light.CastsShadow = True light.Range = 1000   light.Move (-10, 50, -10) ' Point things at ground centre... ' camera.WorldPointAt (ground.model.Position) light.PointAt (ground.model)   ' Create list of PhysBoxes...   boxes = New List <PhysBox>   ' Build wall of PhysBoxes... BuildWall (WALL_WIDTH, WALL_HEIGHT) ' Start ground physics... ground.Start () End   Method BuildWall (width:Int, height:Int, block_mass:Float = 5.0)   Local pb:PhysBox   ' Creates bunch of PhysBoxes and adds to internal list (boxes)... For Local y:Int = 0 Until height For Local x:Int = 0 Until width Local color:Color = New Color (Rnd (0.4, 1.0), Rnd (0.4, 1.0), Rnd (0.4, 1.0)) ' Create new PhysBox... pb = New PhysBox (1, 1, 1, block_mass, New PbrMaterial (color)) ' Position PhysBox... pb.Move (x - (width * 0.5) + 0.5, y + 1, 0) ' Add to list... boxes.Add (pb) ' Start its physics... pb.Start () ' False = RigidBody doesn't sleep at rest Next Next   ' Lintel, or "top bit"... pb = New PhysBox (width, 1, 1, width * height * 1.0, New PbrMaterial (Color.Chromium)) pb.Move (0, height + 1, 0) boxes.Add (pb) pb.Start () End   Method DropBox ()   ' Drops pink boxes into scene... Local pb:PhysBox = New PhysBox (1, 1, 1, 1, New PbrMaterial (Color.HotPink)) pb.Move (0, 30, 0)   boxes.Add (pb) pb.Start ()   End ' Fire bullets! Method ShootBox (force:Float = BULLET_FORCE) ' Create bullet -- mass 5.0 -- as child of ' camera, to pick up location/rotation... Local pb:PhysBox = New PhysBox (0.75, 0.75, 0.75, 5, New PbrMaterial (Color.Red), camera)   ' Move forward in local (child) space by 2 units... pb.model.Move (0.0, 0.0, 2.0) ' Get rid of parent/child relationship so bullet isn't ' attached to camera any more... pb.model.RemoveParent () ' Add to list of PhysBoxes... boxes.Add (pb) ' Start physics... pb.Start () ' Apply force (as impulse, ie. instantly)... ' Method carefully derived from typing properties and methods until it worked! ' World vector multiplied by 1 in all axes other than z, which is multiplied by force... pb.body.ApplyImpulse (pb.model.Basis * New Vec3f (1.0, 1.0, force)) End Method UpdateBoxes ()   For Local pb:PhysBox = Eachin boxes   If pb.model.Y < -20   pb.model.Scale = pb.model.Scale * 0.75   ' Remove when too small... If pb.model.Scale.x < 0.01 pb.model.Destroy () boxes.Remove (pb) Endif   Endif   Next   End   Method UpdateGame () ' Check box position/remove if too far down... UpdateBoxes ()   If Keyboard.KeyHit (Key.Enter) renderer.ResetSeatedPose () Endif   If Keyboard.KeyHit (Key.Space) ShootBox () Endif ' Drop boxes... If Keyboard.KeyDown (Key.D) DropBox () Endif ' Quit... If Keyboard.KeyHit (Key.Escape) App.Terminate () Endif ' Shadows on/off... If Keyboard.KeyHit (Key.S) light.CastsShadow = Not light.CastsShadow Endif   ' Rebuild wall... If Keyboard.KeyHit (Key.R) For Local pb:PhysBox = Eachin boxes pb.model.Destroy () boxes.Remove (pb) Next BuildWall (WALL_WIDTH, WALL_HEIGHT) Endif ' Speed booster... If Keyboard.KeyDown (Key.LeftShift) camera_speed = CAMERA_SPEED_BOOST Else camera_speed = 1.0 Endif ' Forward... If Keyboard.KeyDown (Key.A) camera.pivot.Move (0.0, 0.0, CAMERA_SPEED_NORMAL * camera_speed) Endif ' Back... If Keyboard.KeyDown (Key.Z) camera.pivot.Move (0.0, 0.0, -CAMERA_SPEED_NORMAL * camera_speed) Endif ' Rotation... If Keyboard.KeyDown (Key.Left) camera.pivot.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.pivot.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.pivot.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) camera.pivot.Rotate (-1.0, 0.0, 0.0, True) Endif End   ' Helper... Method ShadowText:Void (canvas:Canvas, s:String, x:Float, y:Float, warning:Bool = False) canvas.Color = Color.Black canvas.DrawText (s, x + 1, y + 1) If warning canvas.Color = Color.Red Else canvas.Color = Color.White Endif canvas.DrawText (s, x, y) End   Method RenderText (canvas:Canvas) ShadowText (canvas, "FPS: " + App.FPS, 20.0, 20.0) ShadowText (canvas, "A/Z + Cursors to move camera", 20.0, 40.0) ShadowText (canvas, "SHIFT to boost", 20.0, 60.0) ShadowText (canvas, "S to toggle shadows", 20.0, 80.0) ShadowText (canvas, "R to rebuild wall", 20.0, 120.0) ShadowText (canvas, "D to drop more boxes", 20.0, 140.0) ShadowText (canvas, "ENTER to reset position", 20.0, 160.0) ShadowText (canvas, "SPACE to fire", 20.0, 180.0) ShadowText (canvas, "Boxes: " + boxes.Count (), 20.0, 200.0) End Method OnRender (canvas:Canvas) Override UpdateGame () ' Game-specific updates RequestRender () ' Ask app window to redraw   renderer.Update () ' Update headset position, etc camera.Update (renderer) ' Update camera from renderer's headset matrix scene.Update () ' Update any physics, etc... scene.Render (canvas) ' Draw VR scene to canvas AND headset   canvas.DrawRect (0, Height, Width, -Height, renderer.LeftEyeImage) canvas.Scale (Width/App.ActiveWindow.Width, Height/App.ActiveWindow.Height) RenderText (canvas) ' Draw text on desktop window (can't appear in headset at this time)... End End Function Run3D (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center) New AppInstance New Game (title, width, height, flags) App.Run () End   Function Main () Run3D ("3D Scene", 960, 540, WindowFlags.Center) ' 1/4 HD! ' Run3D ("3D Scene", 1920, 1080, WindowFlags.Fullscreen) End

[/crayon]

[DruggedBunnyParticipant]

This is an older, hackier demo that loads a 3D model and lets you look around using cursors and A/Z (shift to boost).

For quick results, try downloading the Rio de Janeiro model at Google Poly.

Load it using the file dialog before putting on your headset!

Monkey

[crayon-5cb9a3bd3d953178116123 inline="true" ] ' Don't copy the 'crayon' line above if it's there -- forum bug! #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<mojo3d-loaders>" #Import "<assimp>" #Import "<mojo3d-vr>" #Import "assets/" Using std.. Using mojo.. Using mojo3d.. ' ---------------------------------------- ' Application name... ' ---------------------------------------- ' Place a supported model anywhere on your PC. Run the program and use the ' file dialog (outside of headset!) to select it. Speed/scaling may be ' weird, as I don't know what you'll be loading! ' Try the .fbx model found at https://poly.google.com/view/2binsxeOBve Const FORMATS_3D:String = "fbx, obj, b3d, gltf, max" ' More available! Global AppName:String = "Viewer 0.0000000000000001... pre-alpha" Function CenterModel:Void (model:Model, scale:Float) ' Not bulletproof! 10000 hard-coded, not sure how you get around this... model.Mesh.FitVertices (New Boxf (-10000, 0, -10000, 10000, scale, 10000), True) model.Position = Null End Class VRScene Extends Window Const SHIFT_BOOST:Float = 5.0 Field renderer:VRRenderer ' VR renderer (duh) Field scene:Scene Field cam:Model Field camera:Camera Field light:Light Field camera_boost:Float = 1.0 Field modelpath:String Field model:Model Field scale:Float = 1.0 Field copies:Stack <Model> Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) ' Create VR renderer and shadow resolution for close-up work, ' with more numbers at the lower (closer) end of the range... renderer = New VRRenderer scene = Scene.GetCurrent () scene.CSMSplits = New Float [] (2, 4, 16, 256) scene.ClearColor = New Color (0.1, 0.2, 0.75) scene.AmbientLight = New Color (0.5, 0.5, 0.5) camera = New Camera ' Camera settings... camera.Near = 0.1 camera.FOV = 90 cam = New Model camera.Parent = cam LoadModel () light = New Light light.CastsShadow = True light.Color = New Color (0.95, 0.975, 1.0) light.Range = 1000 light.Move (-500, 500, -500) light.PointAt (model) End ' This slightly dirty almost-self-contained utility method loads ' directly into model:Model field -- ESC from load requester exits app! Method LoadModel:Void () Local failed:Bool = False Repeat If failed Then Notify ("NOOOOooooo...", "Failed to load " + StripDir (modelpath), True) modelpath = RequestFile ("Select a model, or Cancel/ESC to exit...", FORMATS_3D, False, AssetsDir ()) If Not modelpath Then App.Terminate () ChangeDir (ExtractDir (modelpath)) If model Then model.Destroy () model = Model.Load (modelpath) If Not model Then failed = True Until model CenterModel (model, 5) scale = 0.25'1.0 ' TEMP HARD-CODED - can't move headset cam! model.Scale = New Vec3f (scale, scale, scale) camera.Position = Null camera.Rotation = Null End Method UpdateGame:Void () model.Scale = New Vec3f (scale, scale, scale) End Method ProcessInput:Void () If Keyboard.KeyHit (Key.Space) Then light.CastsShadow = Not light.CastsShadow If Keyboard.KeyDown (Key.LeftShift) camera_boost = SHIFT_BOOST Else camera_boost = 1.0 Endif If Keyboard.KeyHit (Key.Escape) LoadModel () Endif If Keyboard.KeyDown (Key.A) cam.Move (0.0, 0.0, 0.1 * camera_boost) Endif If Keyboard.KeyDown (Key.Z) cam.Move (0.0, 0.0, -0.1 * camera_boost) Endif If Keyboard.KeyDown (Key.Left) cam.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) cam.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) cam.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) cam.Rotate (-1.0, 0.0, 0.0, true) Endif If Keyboard.KeyDown (Key.Minus) Or Keyboard.KeyDown (Key.KeypadMinus) scale = scale - 0.01 Endif If Keyboard.KeyDown (Key.Equals) Or Keyboard.KeyDown (Key.KeypadPlus) scale = scale + 0.01 Endif ' NOPE! renderer.HeadMatrix = camera.Matrix ' Set the camera to the user's head position... End ' App window drawing (separate to VR headset output)... Method DrawAppWindow (canvas:Canvas, renderer:VRRenderer) ' canvas:Canvas comes from OnRender... ' renderer:VRRenderer allows access to left/right views from headset... canvas.DrawRect (0, Height, Width, -Height, renderer.LeftEyeImage) canvas.Scale (Width/App.ActiveWindow.Width, Height/App.ActiveWindow.Height) canvas.DrawText ("FPS: " + App.FPS, 0.0, 0.0) canvas.DrawText ("Camera controls: Cursors, plus A/Z (Shift for boost!)", 20.0, 20.0) canvas.DrawText ("ESC to load new model or exit (close dialog)...", 20.0, 40.0) canvas.DrawText ("Model scale (-/+ to change): " + scale, 20.0, 80.0) End Method OnRender (canvas:Canvas) Override ProcessInput () UpdateGame () RequestRender () renderer.Update () ' Update the VR renderer... ' Set the camera to the user's head position... camera.SetBasis (renderer.HeadMatrix.m, True) camera.SetPosition (renderer.HeadMatrix.t, True) If renderer.Active Then scene.Update () ' Update the scene if VR is being running... scene.Render (canvas) DrawAppWindow (canvas, renderer) ' Render VR output to non-VR window End End ' All-in-one startup -- width and height relate to non-VR window; rendering is headset-native... Function RunVR (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center) New AppInstance New VRScene (title, width, height, flags) App.Run () End Function Main () RunVR ("VR Scene", 640, 480, WindowFlags.Center) ' RunVR ("VR Scene", 1920, 1080, WindowFlags.Fullscreen) 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 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246

[crayon-5cb9a3bd3d953178116123 inline="true" ] ' Don't copy the 'crayon' line above if it's there -- forum bug! #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" #Import "<mojo3d-loaders>" #Import "<assimp>" #Import "<mojo3d-vr>" #Import "assets/"   Using std.. Using mojo.. Using mojo3d..   ' ---------------------------------------- ' Application name... ' ----------------------------------------   ' Place a supported model anywhere on your PC. Run the program and use the ' file dialog (outside of headset!) to select it. Speed/scaling may be ' weird, as I don't know what you'll be loading!   ' Try the .fbx model found at https://poly.google.com/view/2binsxeOBve   Const FORMATS_3D:String = "fbx, obj, b3d, gltf, max" ' More available!   Global AppName:String = "Viewer 0.0000000000000001... pre-alpha"   Function CenterModel:Void (model:Model, scale:Float)   ' Not bulletproof! 10000 hard-coded, not sure how you get around this... model.Mesh.FitVertices (New Boxf (-10000, 0, -10000, 10000, scale, 10000), True) model.Position = Null End   Class VRScene Extends Window   Const SHIFT_BOOST:Float = 5.0 Field renderer:VRRenderer ' VR renderer (duh) Field scene:Scene Field cam:Model Field camera:Camera Field light:Light Field camera_boost:Float = 1.0 Field modelpath:String   Field model:Model Field scale:Float = 1.0   Field copies:Stack <Model> Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags)   ' Create VR renderer and shadow resolution for close-up work, ' with more numbers at the lower (closer) end of the range... renderer = New VRRenderer scene = Scene.GetCurrent () scene.CSMSplits = New Float [] (2, 4, 16, 256) scene.ClearColor = New Color (0.1, 0.2, 0.75) scene.AmbientLight = New Color (0.5, 0.5, 0.5) camera = New Camera ' Camera settings... camera.Near = 0.1 camera.FOV = 90   cam = New Model camera.Parent = cam LoadModel ()   light = New Light light.CastsShadow = True light.Color = New Color (0.95, 0.975, 1.0) light.Range = 1000 light.Move (-500, 500, -500) light.PointAt (model)   End   ' This slightly dirty almost-self-contained utility method loads ' directly into model:Model field -- ESC from load requester exits app! Method LoadModel:Void ()   Local failed:Bool = False Repeat   If failed Then Notify ("NOOOOooooo...", "Failed to load " + StripDir (modelpath), True) modelpath = RequestFile ("Select a model, or Cancel/ESC to exit...", FORMATS_3D, False, AssetsDir ()) If Not modelpath Then App.Terminate () ChangeDir (ExtractDir (modelpath)) If model Then model.Destroy ()   model = Model.Load (modelpath) If Not model Then failed = True Until model CenterModel (model, 5) scale = 0.25'1.0 ' TEMP HARD-CODED - can't move headset cam! model.Scale = New Vec3f (scale, scale, scale) camera.Position = Null camera.Rotation = Null End Method UpdateGame:Void () model.Scale = New Vec3f (scale, scale, scale) End Method ProcessInput:Void ()   If Keyboard.KeyHit (Key.Space) Then light.CastsShadow = Not light.CastsShadow   If Keyboard.KeyDown (Key.LeftShift) camera_boost = SHIFT_BOOST Else camera_boost = 1.0 Endif If Keyboard.KeyHit (Key.Escape) LoadModel () Endif If Keyboard.KeyDown (Key.A) cam.Move (0.0, 0.0, 0.1 * camera_boost) Endif If Keyboard.KeyDown (Key.Z) cam.Move (0.0, 0.0, -0.1 * camera_boost) Endif If Keyboard.KeyDown (Key.Left) cam.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) cam.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) cam.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) cam.Rotate (-1.0, 0.0, 0.0, true) Endif   If Keyboard.KeyDown (Key.Minus) Or Keyboard.KeyDown (Key.KeypadMinus) scale = scale - 0.01 Endif If Keyboard.KeyDown (Key.Equals) Or Keyboard.KeyDown (Key.KeypadPlus) scale = scale + 0.01 Endif   ' NOPE! renderer.HeadMatrix = camera.Matrix ' Set the camera to the user's head position...   End   ' App window drawing (separate to VR headset output)... Method DrawAppWindow (canvas:Canvas, renderer:VRRenderer) ' canvas:Canvas comes from OnRender... ' renderer:VRRenderer allows access to left/right views from headset... canvas.DrawRect (0, Height, Width, -Height, renderer.LeftEyeImage) canvas.Scale (Width/App.ActiveWindow.Width, Height/App.ActiveWindow.Height) canvas.DrawText ("FPS: " + App.FPS, 0.0, 0.0)   canvas.DrawText ("Camera controls: Cursors, plus A/Z (Shift for boost!)", 20.0, 20.0) canvas.DrawText ("ESC to load new model or exit (close dialog)...", 20.0, 40.0) canvas.DrawText ("Model scale (-/+ to change): " + scale, 20.0, 80.0) End Method OnRender (canvas:Canvas) Override ProcessInput () UpdateGame () RequestRender ()   renderer.Update () ' Update the VR renderer... ' Set the camera to the user's head position...   camera.SetBasis (renderer.HeadMatrix.m, True) camera.SetPosition (renderer.HeadMatrix.t, True) If renderer.Active Then scene.Update () ' Update the scene if VR is being running... scene.Render (canvas) DrawAppWindow (canvas, renderer) ' Render VR output to non-VR window End End ' All-in-one startup -- width and height relate to non-VR window; rendering is headset-native...   Function RunVR (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center)   New AppInstance New VRScene (title, width, height, flags)   App.Run ()   End   Function Main () RunVR ("VR Scene", 640, 480, WindowFlags.Center) ' RunVR ("VR Scene", 1920, 1080, WindowFlags.Fullscreen) End

[/crayon]

[Author]

Posts