0 1 1 633900877080468750 0 6 19 true true Shaded Totalistic976.ghx 633703342389843750 0 -129 -43 1.33046269 0 13 dd8d834f-40f1-4a84-8e4b-9fa8efe7be41 Mesh Plane Mesh Plane e7088701-23f7-4411-8da6-93a825addfd4 false true longest_list 688 144 72 104 716 146 23 100 727.8806 195.5002 false true B 018ec829-c075-4080-896d-4249ca258eea true true 1 b917721f-b85d-4bc2-a13c-e99907d713b9 1 690 146 26 20 690 146 26 20 703 156 false true 0 0 0 1 0 0 0 1 0 W da84d55c-759d-4997-b056-6f7fe39fa782 true true 0 1 690 166 26 20 690 166 26 20 703 176 false true -0.5 0.5 H 33e4768b-56cf-4cf9-8e98-47d1ca51d601 true true 0 1 690 186 26 20 690 186 26 20 703 196 false true -0.5 0.5 Cw af3309c5-a72e-4014-b6ed-f14ba1cff7ca true true 0 1 690 206 26 20 690 206 26 20 703 216 false true 1 Ch 285893c1-d3f3-4789-a2f9-ec4f52fd36cb true true 0 1 690 226 26 20 690 226 26 20 703 236 false true 1 M 4c9eec32-575b-4e62-b625-6f2857f1e4bc true true 0 0 739 146 19 50 739 146 19 50 748.5 171 false true A 4e4afc24-bfa8-48a5-b508-dab132ff5397 true true 0 0 739 196 19 50 739 196 19 50 748.5 221 false true 537b0419-bbc2-4ff4-bf08-afe526367b2c Custom Preview Preview 21bbc268-e71d-45bf-bc0c-6fa22b69b4cf true true longest_list 969 153 46 66 990 155 23 62 1001.858 186.4808 false true G 742209f2-37d3-4c31-92a6-2b5d8df71b44 false true 1 663523c1-7871-4098-806f-3a0aabcc1774 0 971 155 19 31 971 155 19 31 980.5 170.5 false true S 1ddd178f-7bf5-48a4-b983-ba5c2f9a9a0b true true 1 d6364c8a-2170-450c-ad5f-3986cefe7baa 1 971 186 19 31 971 186 19 31 980.5 201.5 false true 154 205 50 0 0 0 0 0 77 102 25 0 255 255 255 0 255 255 255 0 128 128 128 0 25.5 1 0 0 00000000-0000-0000-0000-000000000000 9c53bac0-ba66-40bd-8154-ce9829b9db1a Colour Swatch 255 255 255 255 Swatch 89704898-5786-4ffb-bca8-1f2092162088 true true 0 870 258 89 20 870 258 89 20 869.6069 258.2379 false true 9c53bac0-ba66-40bd-8154-ce9829b9db1a Colour Swatch 0 0 0 255 Swatch d6364c8a-2170-450c-ad5f-3986cefe7baa true true 0 870 192 90 20 870 192 90 20 869.958 192.2711 false true d8332545-21b2-4716-96e3-8559a9876e17 Dispatch Dispatch f3258efa-f207-48ac-a743-840303c1a7a2 false true longest_list 793 152 61 72 812 154 23 68 823.8462 188.3 false true L 8715f36d-a34d-4418-b15c-b5867bd536e1 true true 1 1 4c9eec32-575b-4e62-b625-6f2857f1e4bc 795 154 17 34 795 154 17 34 803.5 171 false true P 6df38014-1413-4507-b11a-83909af184d5 true true 1 1 33468ee0-f8c0-4b69-bbca-a9e945298337 2 false 795 188 17 34 795 188 17 34 803.5 205 false true true false A 663523c1-7871-4098-806f-3a0aabcc1774 true true 0 835 154 17 34 835 154 17 34 843.5 171 false true B c1a153ce-1a8e-4e71-95da-abcb82b19deb true true 0 835 188 17 34 835 188 17 34 843.5 205 false true 537b0419-bbc2-4ff4-bf08-afe526367b2c Custom Preview Preview 9b80a46e-67dd-4331-bb87-5dceadd142aa true true longest_list 969 219 46 66 990 221 23 62 1001.363 251.6616 false true G da8c6111-c7e2-4f78-b7bb-7071785e005b false true 1 c1a153ce-1a8e-4e71-95da-abcb82b19deb 0 971 221 19 31 971 221 19 31 980.5 236.5 false true S 23a74e41-2973-4e66-85c7-b91d5365d86e true true 1 89704898-5786-4ffb-bca8-1f2092162088 1 971 252 19 31 971 252 19 31 980.5 267.5 false true 154 205 50 0 0 0 0 0 77 102 25 0 255 255 255 0 255 255 255 0 128 128 128 0 25.5 1 0 0 00000000-0000-0000-0000-000000000000 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider XNum 3b041ae4-a34c-4bb1-b46d-ba37134bea53 true true 0 154 136 144 20 154 136 44 20 154.397 136.5 false true 40 5 50 4 1 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider YNum ccc03daa-13ae-4cd0-a69e-5080298ed479 true true 0 154 156 145 20 154 156 44 20 154.0479 156.4257 false true 40 5 50 4 1 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Generations 2b5ebc4d-b8b9-4ab0-97f2-258a5e418072 true true 0 124 176 174 20 124 176 74 20 124.2068 176.0271 false true -1 -1 100 4 1 fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 DotNET VB Script 'Generate 2D grid of points Dim Grid(,) As On3dPoint ReDim Grid(xNum, yNum) GenerateGrid(xNum, yNum, Grid) 'Generate 2D grid of state Dim SGrid(xNum, yNum) As Integer GenerateStateGrid(InitStates, xNum, yNum, SGrid) 'Get state at the defined generation Dim i,j As Integer For i = 0 To Gen NewGeneration(SGrid, xNum, yNum) Next 'Make a list of points Dim LPoints As New List(Of On3dPoint ) For i = 0 To xNum - 1 For j = 0 To yNum - 1 LPoints.Add(Grid(i, j)) Next Next 'Make a list of states Dim LStates As New List(Of Integer ) For i = 0 To xNum - 1 For j = 0 To yNum - 1 LStates.Add(SGrid(i, j)) Next Next 'print(InitStates.Count()) outPoints = LPoints outStates = LStates Sub GenerateGrid(ByVal xNum As Integer, ByVal yNum As Integer, ByRef Grid As On3dPoint(,)) Dim i,j As Integer Dim x,y As Integer x = 0 y = 0 'Create rows For i = 0 To xNum - 1 y = 0 For j = 0 To yNum - 1 Dim pt As New On3dPoint(i, j, 0) Grid(x, y) = pt y = y + 1 Next x = x + 1 Next End Sub Sub GenerateStateGrid(ByVal State As List(Of Integer), ByVal xNum As Integer, ByVal yNum As Integer, ByRef SGrid As Integer(,)) Dim i,j As Integer Dim x,y As Integer x = 0 y = 0 'Create rows For i = 0 To State.Count() - 1 Step yNum y = 0 For j = i To i + yNum - 1 Dim st As Integer st = State(j) SGrid(x, y) = st y = y + 1 Next x = x + 1 Next End Sub 'Run a generaion in the game of life 'Edge condition periodic Sub NewGeneration(ByRef States As Integer(,), ByVal xNum As Integer, ByVal yNum As Integer) Dim i,j As Integer Dim intLCount As Integer Dim SNewGrid(xNum, yNum) As Integer For i = 0 To xNum - 1 For j = 0 To yNum - 1 SNewGrid(i, j) = States(i, j) Next Next Dim prev_i, next_i, prev_j, next_j As Integer For i = 0 To (xNum - 1) 'First index If i = 0 Then 'Take last index prev_i = xNum - 1 Else prev_i = i - 1 End If 'Last index If i = xNum - 1 Then 'Take first index next_i = 0 Else next_i = i + 1 End If For j = 0 To (yNum - 1) If j = 0 Then prev_j = yNum - 1 Else prev_j = j - 1 End If 'Check next col If j = yNum - 1 Then next_j = 0 Else next_j = j + 1 End If 'Zero the living cells count intLCount = 0 'Count number of live neighbors (8 of them) 'Check top cell intLCount = intLCount + States(next_i, j) 'Check bottom cell intLCount = intLCount + States(prev_i, j) 'Check right cell intLCount = intLCount + States(i, next_j) 'Check left cell intLCount = intLCount + States(i, prev_j) 'Check current cell intLCount = intLCount + States(i, j) 'Check top right cell intLCount = intLCount + States(next_i, next_j) 'Check top left cell intLCount = intLCount + States(next_i, prev_j) 'Check bottom right cell intLCount = intLCount + States(prev_i, next_j) 'Check bottom left cell intLCount = intLCount + States(prev_i, prev_j) 'Check if a cell is live or dead and to ' change/maintain state based On count of live neighbors If intLCount < 4 Then SNewGrid(i, j) = 0 ElseIf intLCount > 5 Then SNewGrid(i, j) = 1 ElseIf intLCount = 5 Then SNewGrid(i, j) = 0 ElseIf intLCount = 4 Then SNewGrid(i, j) = 1 Else SNewGrid(i, j) = States(i, j) End If Next Next States = SnewGrid End Sub 0 TC976 81d85222-6913-4d68-a510-a98eb20aec3f false true longest_list 516 114 139 84 574 116 23 80 585.3462 155.9393 false true 4 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable InitStates Script Variable InitStates 1 true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable xNum Script Variable xNum true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable yNum Script Variable yNum true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable Gen Script Variable Gen true true 3 3ede854e-c753-40eb-84cb-b48008f14fd4 Output Print, Reflect and Error streams true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result outPoints Output parameter outPoints true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result outStates Output parameter outStates true false InitStates a447e564-1218-497a-9061-75284acd69a9 true true 1 1 b5f0f96a-e07a-46f0-a582-56f94b7d6896 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 518 116 56 20 518 116 56 20 546 126 false true xNum bac98b8d-2fe9-45bb-b55e-b4e8fdb1e358 true true 1 3b041ae4-a34c-4bb1-b46d-ba37134bea53 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 518 136 56 20 518 136 56 20 546 146 false true yNum 7658ec2a-ad20-4a57-bd1a-407b88604dfc true true 1 ccc03daa-13ae-4cd0-a69e-5080298ed479 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 518 156 56 20 518 156 56 20 546 166 false true Gen 01c0ab34-4e1b-408b-b647-14ef95e8e296 true true 1 2b5ebc4d-b8b9-4ab0-97f2-258a5e418072 8e991e99-5fb8-41e1-928d-1bba8fb9f7d7 true 518 176 56 20 518 176 56 20 546 186 false true out 8e3b7275-06d1-4476-aa22-c5f0f779ebee true true 0 0 597 116 56 27 597 116 56 27 625 129.3333 false true outPoints b917721f-b85d-4bc2-a13c-e99907d713b9 true true 0 597 143 56 26 597 143 56 26 625 156 false true outStates 33468ee0-f8c0-4b69-bbca-a9e945298337 true true 0 597 169 56 27 597 169 56 27 625 182.6667 false true fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 DotNET VB Script 'Create 2 dimentional list of 0s & 1s Dim LBool As New List( Of Integer ) Dim i As Integer Dim j As Integer For i = 0 To XNum - 1 For j = 0 To YNum - 1 Dim bool As Integer bool = Int(Rnd + 0.5) LBool.Add(bool) Next Next InitStates = LBool 0 Init 43908d39-ed9b-4d33-9d81-b176c9833498 false true longest_list 376 94 124 44 419 96 23 40 430.1214 115.6616 false true 2 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable XNum Script Variable XNum true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable YNum Script Variable YNum true true 2 3ede854e-c753-40eb-84cb-b48008f14fd4 Output Print, Reflect and Error streams true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result InitStates Output parameter InitStates true false XNum ad0a40ca-612b-426e-ad06-c124fbe7e8bf true true 1 3b041ae4-a34c-4bb1-b46d-ba37134bea53 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 378 96 41 20 378 96 41 20 398.5 106 false true YNum a0c01670-f109-447e-bedc-0aa83d41261e true true 1 ccc03daa-13ae-4cd0-a69e-5080298ed479 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 378 116 41 20 378 116 41 20 398.5 126 false true out 1e7e9cd8-3207-4620-9102-b2d67bd4a7b8 true true 0 0 442 96 56 20 442 96 56 20 470 106 false true InitStates b5f0f96a-e07a-46f0-a582-56f94b7d6896 true true 0 442 116 56 20 442 116 56 20 470 126 false true fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 DotNET VB Script 'Generate 2D grid of points Dim Grid(,) As On3dPoint ReDim Grid(xNum, yNum) GenerateGrid(xNum, yNum, Grid) 'Generate 2D grid of state Dim SGrid(xNum, yNum) As Integer GenerateStateGrid(InitStates, xNum, yNum, SGrid) 'Get state at the defined generation Dim i,j As Integer For i = 0 To Gen NewGeneration(SGrid, xNum, yNum) Next 'Make a list of points Dim LPoints As New List(Of On3dPoint ) For i = 0 To xNum - 1 For j = 0 To yNum - 1 LPoints.Add(Grid(i, j)) Next Next 'Make a list of states Dim LStates As New List(Of Integer ) For i = 0 To xNum - 1 For j = 0 To yNum - 1 LStates.Add(SGrid(i, j)) Next Next 'print(InitStates.Count()) outPoints = LPoints outStates = LStates Sub GenerateGrid(ByVal xNum As Integer, ByVal yNum As Integer, ByRef Grid As On3dPoint(,)) Dim i,j As Integer Dim x,y As Integer x = 0 y = 0 'Create rows For i = 0 To xNum - 1 y = 0 For j = 0 To yNum - 1 Dim pt As New On3dPoint(i, j, 0) Grid(x, y) = pt y = y + 1 Next x = x + 1 Next End Sub Sub GenerateStateGrid(ByVal State As List(Of Integer), ByVal xNum As Integer, ByVal yNum As Integer, ByRef SGrid As Integer(,)) Dim i,j As Integer Dim x,y As Integer x = 0 y = 0 'Create rows For i = 0 To State.Count() - 1 Step yNum y = 0 For j = i To i + yNum - 1 Dim st As Integer st = State(j) SGrid(x, y) = st y = y + 1 Next x = x + 1 Next End Sub 'Run a generaion in the game of life 'Edge condition periodic Sub NewGeneration(ByRef States As Integer(,), ByVal xNum As Integer, ByVal yNum As Integer) Dim i,j As Integer Dim intLCount As Integer Dim SNewGrid(xNum, yNum) As Integer For i = 0 To xNum - 1 For j = 0 To yNum - 1 SNewGrid(i, j) = States(i, j) Next Next Dim prev_i, next_i, prev_j, next_j As Integer For i = 0 To (xNum - 1) 'First index If i = 0 Then 'Take last index prev_i = xNum - 1 Else prev_i = i - 1 End If 'Last index If i = xNum - 1 Then 'Take first index next_i = 0 Else next_i = i + 1 End If For j = 0 To (yNum - 1) If j = 0 Then prev_j = yNum - 1 Else prev_j = j - 1 End If 'Check next col If j = yNum - 1 Then next_j = 0 Else next_j = j + 1 End If 'Zero the living cells count intLCount = 0 'Count number of live neighbors (8 of them) intLCount = intLCount + States(prev_i, next_j) intLCount = intLCount + States(prev_i, j) intLCount = intLCount + States(prev_i, prev_j) intLCount = intLCount + States(i, next_j) intLCount = intLCount + States(i, prev_j) intLCount = intLCount + States(next_i, next_j) intLCount = intLCount + States(next_i, j) intLCount = intLCount + States(next_i, prev_j) 'Check if a cell is live or dead and to ' change/maintain state based On count of live neighbors If States(i, j) = 1 Then 'Live cell If intLCount < 2 Then SnewGrid(i, j) = 0 ElseIf intLCount > 3 Then SnewGrid(i, j) = 0 Else SnewGrid(i, j) = 1 If Not intLCount = 0 Then print(intLCount) End If End If Else 'Dead Cell If intLCount = 3 Then SnewGrid(i, j) = 1 Else SnewGrid(i, j) = 0 End If End If Next Next States = SnewGrid End Sub 0 GOL 24ad12f5-9f43-410c-863a-0b69399ca3ad false true longest_list 516 230 139 84 574 232 23 80 585.2836 271.8919 false true 4 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable x Script Variable x 1 true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable y Script Variable y true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable yNum Script Variable yNum true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable Gen Script Variable Gen true true 3 3ede854e-c753-40eb-84cb-b48008f14fd4 Output Print, Reflect and Error streams true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result A Output parameter A true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result outStates Output parameter outStates true false InitStates 2706b2e3-ca07-4ba5-8ef1-36ca1916a878 true true 1 1 6315aa81-1ae1-4f6a-a407-2ba4fd4bac97 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 518 232 56 20 518 232 56 20 546 242 false true xNum ca532536-72d1-4230-adb6-c3844fb32f7d true true 1 3b041ae4-a34c-4bb1-b46d-ba37134bea53 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 518 252 56 20 518 252 56 20 546 262 false true yNum 5f9accd2-7d4f-4317-9a13-7c21f85db7c2 true true 1 ccc03daa-13ae-4cd0-a69e-5080298ed479 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 518 272 56 20 518 272 56 20 546 282 false true Gen 8a5c2967-96ff-4388-91e4-c6effb70f985 true true 1 2b5ebc4d-b8b9-4ab0-97f2-258a5e418072 8e991e99-5fb8-41e1-928d-1bba8fb9f7d7 true 518 292 56 20 518 292 56 20 546 302 false true out d10bfba2-6a29-4810-b2f7-a2b947bf9a8e true true 0 0 597 232 56 27 597 232 56 27 625 245.3333 false true outPoints 8c1d2ea6-5854-489c-90f0-19246890b3f5 true true 0 597 259 56 26 597 259 56 26 625 272 false true outStates 4fe35105-7bf1-405e-bd4c-d23516f24b7d true true 0 597 285 56 27 597 285 56 27 625 298.6667 false true fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 DotNET VB Script 'Create 2 dimentional list of 0s & 1s Dim LBool As New List( Of Integer ) Dim i As Integer Dim j As Integer For i = 0 To XNum - 1 For j = 0 To YNum - 1 Dim bool As Integer If i = 2 And j = yNum - 2 Then bool = 1 ElseIf i = 3 And j = yNum - 3 Then bool = 1 ElseIf i = 1 And j = yNum - 4 Then bool = 1 ElseIf i = 2 And j = yNum - 4 Then bool = 1 ElseIf i = 3 And j = yNum - 4 Then bool = 1 Else bool = 0 End If 'bool = Int(Rnd + 0.5) LBool.Add(bool) Next Next InitStates = LBool 0 Glider 622f6469-9b00-4f8e-b81e-6d541256eb37 false true longest_list 376 202 124 54 419 204 23 50 430.3409 228.5574 false true 2 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable x Script Variable x true true 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable y Script Variable y true true 2 3ede854e-c753-40eb-84cb-b48008f14fd4 Output Print, Reflect and Error streams true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result A Output parameter A true false XNum cbc66629-7fb7-42f3-901d-5edcf81d433f true true 1 3b041ae4-a34c-4bb1-b46d-ba37134bea53 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 378 204 41 25 378 204 41 25 398.5 216.5 false true YNum 267c765f-2cec-44ba-9d82-f79d18f00923 true true 1 ccc03daa-13ae-4cd0-a69e-5080298ed479 efe48ae7-2987-421b-a33a-1f7be1c3f050 true 378 229 41 25 378 229 41 25 398.5 241.5 false true out 74db0914-dd76-4b01-8f73-34d9af105dd6 true true 0 0 442 204 56 25 442 204 56 25 470 216.5 false true InitStates 6315aa81-1ae1-4f6a-a407-2ba4fd4bac97 true true 0 442 229 56 25 442 229 56 25 470 241.5 false true