Lorenz attractor (and future instancing benchmark?)

[DruggedBunnyParticipant]

This was just a quick Blitz3D port, but as it creates a literal copy of the base entity, and there’s not much in the way of optimisation in mojo3d yet, it slows down after only a few thousand copies — to be expected for now.

I imagine if we gain view-culling (and maybe instancing at some point), it could become a useful stress test, since it just keeps adding more and more meshes, but is at least visually interesting in itself for a couple of minutes, and we can always use more mojo3d demos!

Monkey

[crayon-5cb9a3b7caa4b704162410 inline="true" ] ' Don't copy [crayon-5cb9a3b7caa4e868208416] line above if it appears here -- forum bug! #Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Global AppName:String = "Lorenz Attractor" #Rem Quick Blitz3D port! ; ID: 340 ; Author: BlitzSupport ; Date: 2002-06-07 22:11:44 ; Title: Lorenz 3D ; Description: Fractal exploration in 3D ; Lorenz Attractor in 3D... from 'Computers and Chaos' by Conrad Bessant, ; converted from AmigaBASIC to Blitz3D by james @ hi - toro . com :) ; CONTROLS: ; Cursors + A & Z, or mouse + both buttons. ; SPACE toggles drawing. #End Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light Field sprite:Model Const CAMERA_SPEED_NORMAL:Float = 0.1 Const CAMERA_SPEED_TURBO:Float = 0.5 Field boost_camera:Bool ' Camera speed boost (left-shift sets True) ' Lorenz stuff... Field a:Float = 10 Field b:Float = 28 Field c:Float = 8.0 / 3.0 Field dt:Float = 0.01 Field x:Float = 1 Field y:Float = 1 Field z:Float = 1 Field lastx:Float = 1 Field lasty:Float = 1 Field lastz:Float = 1 Field dx:Float Field dy:Float Field dz:Float Field frames:Int Field detail:Int = 1 ' Spawn new ball every frame Field count:Int Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () ' Important! scene.ClearColor = Color.Black camera = New Camera camera.Near = 0.1 camera.Far = 1000 light = New Light sprite = Model.CreateSphere (0.25, 8, 8, New PbrMaterial (Color.White)) count = 1 End Method ProcessInput:Void () If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.LeftShift) boost_camera = True Else boost_camera = False Endif If Keyboard.KeyDown (Key.A) If boost_camera camera.Move (0.0, 0.0, CAMERA_SPEED_TURBO) Else camera.Move (0.0, 0.0, CAMERA_SPEED_NORMAL) Endif Endif If Keyboard.KeyDown (Key.Z) If boost_camera camera.Move (0.0, 0.0, -CAMERA_SPEED_TURBO) Else camera.Move (0.0, 0.0, -CAMERA_SPEED_NORMAL) Endif Endif If Keyboard.KeyDown (Key.Left) camera.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) camera.Rotate (-1.0, 0.0, 0.0, True) Endif camera.FOV = camera.FOV - (Mouse.WheelY * 5.0) End Method UpdateGame:Void () dx = a * (y - x) dy = b * x - y - x * z dz = x * y - c * z x = x + dx * dt y = y + dy * dt z = z + dz * dt Print x Print y Print z Print "" frames = frames + 1 If frames Mod detail = 0 ' Hack to make cursor appear at front! sprite.SetPosition (lastx, lasty, lastz) Local copy:Model = Model.CreateSphere (0.1, 8, 8, New PbrMaterial (Color.Rnd ()), sprite) copy.Parent = Null sprite.SetPosition (x, y, z) count = count + 1 EndIf lastx = x lasty = y lastz = z ProcessInput () scene.Update () End Method OnRender (canvas:Canvas) Override UpdateGame () scene.Render (canvas) canvas.DrawText ("FPS: " + App.FPS, 20, 20) canvas.DrawText ("Count: " + count, 20, 40) canvas.DrawText ("Cursors, A/Z and left-shift to move", 20, 80) RequestRender () End End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center New AppInstance New Game (AppName, width, height, flags) 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 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

[crayon-5cb9a3b7caa4b704162410 inline="true" ]   ' Don't copy [crayon-5cb9a3b7caa4e868208416] line above if it appears here -- forum bug!   #Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d..   Global AppName:String = "Lorenz Attractor"   #Rem   Quick Blitz3D port! ; ID: 340 ; Author: BlitzSupport ; Date: 2002-06-07 22:11:44 ; Title: Lorenz 3D ; Description: Fractal exploration in 3D ; Lorenz Attractor in 3D... from 'Computers and Chaos' by Conrad Bessant, ; converted from AmigaBASIC to Blitz3D by james @ hi - toro . com :) ; CONTROLS: ; Cursors + A & Z, or mouse + both buttons. ; SPACE toggles drawing.   #End   Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light Field sprite:Model   Const CAMERA_SPEED_NORMAL:Float = 0.1 Const CAMERA_SPEED_TURBO:Float = 0.5   Field boost_camera:Bool ' Camera speed boost (left-shift sets True) ' Lorenz stuff... Field a:Float = 10 Field b:Float = 28 Field c:Float = 8.0 / 3.0   Field dt:Float = 0.01   Field x:Float = 1 Field y:Float = 1 Field z:Float = 1   Field lastx:Float = 1 Field lasty:Float = 1 Field lastz:Float = 1 Field dx:Float Field dy:Float Field dz:Float Field frames:Int Field detail:Int = 1 ' Spawn new ball every frame Field count:Int Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () ' Important! scene.ClearColor = Color.Black   camera = New Camera camera.Near = 0.1 camera.Far = 1000   light = New Light sprite = Model.CreateSphere (0.25, 8, 8, New PbrMaterial (Color.White)) count = 1 End   Method ProcessInput:Void ()   If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.LeftShift) boost_camera = True Else boost_camera = False Endif If Keyboard.KeyDown (Key.A) If boost_camera camera.Move (0.0, 0.0, CAMERA_SPEED_TURBO) Else camera.Move (0.0, 0.0, CAMERA_SPEED_NORMAL) Endif Endif If Keyboard.KeyDown (Key.Z) If boost_camera camera.Move (0.0, 0.0, -CAMERA_SPEED_TURBO) Else camera.Move (0.0, 0.0, -CAMERA_SPEED_NORMAL) Endif Endif If Keyboard.KeyDown (Key.Left) camera.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.Rotate (1.0, 0.0, 0.0, True) Endif If Keyboard.KeyDown (Key.Down) camera.Rotate (-1.0, 0.0, 0.0, True) Endif camera.FOV = camera.FOV - (Mouse.WheelY * 5.0) End Method UpdateGame:Void ()   dx = a * (y - x) dy = b * x - y - x * z dz = x * y - c * z   x = x + dx * dt y = y + dy * dt z = z + dz * dt Print x Print y Print z Print "" frames = frames + 1   If frames Mod detail = 0   ' Hack to make cursor appear at front! sprite.SetPosition (lastx, lasty, lastz)   Local copy:Model = Model.CreateSphere (0.1, 8, 8, New PbrMaterial (Color.Rnd ()), sprite) copy.Parent = Null   sprite.SetPosition (x, y, z) count = count + 1   EndIf   lastx = x lasty = y lastz = z ProcessInput () scene.Update ()   End Method OnRender (canvas:Canvas) Override UpdateGame () scene.Render (canvas) canvas.DrawText ("FPS:   " + App.FPS, 20, 20) canvas.DrawText ("Count: " + count, 20, 40) canvas.DrawText ("Cursors, A/Z and left-shift to move", 20, 80) RequestRender () End End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center New AppInstance New Game (AppName, width, height, flags) App.Run () End

[/crayon]

[Author]

Posts