Merge pull request #60 from rokostik/ebitengine-game-of-life

Add ebitengine game of life example

evaldo/builtins.go

@@ -5,6 +5,7 @@ import (
 	"fmt"
 	"io"
 	"math"
+	"math/rand"
 	"os"
 	"os/exec"
 	"reflect"
@@ -1313,6 +1314,20 @@ var builtins = map[string]*env.Builtin{
 		},
 	}, */
 
+	"random-integer": {
+		Argsn: 1,
+		Doc:   "Accepts an integer n and eturns a random integer between 0 and n in the half-open interval [0,n).",
+		Pure:  true,
+		Fn: func(ps *env.ProgramState, arg0 env.Object, arg1 env.Object, arg2 env.Object, arg3 env.Object, arg4 env.Object) env.Object {
+			switch arg := arg0.(type) {
+			case env.Integer:
+				return *env.NewInteger(rand.Int63n(arg.Value))
+			default:
+				return MakeArgError(ps, 1, []env.Type{env.IntegerType}, "random")
+			}
+		},
+	},
+
 	"load": { // **
 		Argsn: 1,
 		Doc:   "Loads a string into Rye values.",
@@ -5598,6 +5613,36 @@ var builtins = map[string]*env.Builtin{
 			}
 		},
 	},
+
+	"change\\nth!": { // **
+		Argsn: 3,
+		Doc:   "Accepts a Block or List, Integer n and a value. Changes the n-th value in the Block in place. Also returns the new series.",
+		Pure:  false,
+		Fn: func(ps *env.ProgramState, arg0 env.Object, arg1 env.Object, arg2 env.Object, arg3 env.Object, arg4 env.Object) env.Object {
+			switch num := arg1.(type) {
+			case env.Integer:
+				switch s1 := arg0.(type) {
+				case env.Block:
+					if num.Value > int64(s1.Series.Len()) {
+						return MakeBuiltinError(ps, fmt.Sprintf("Block has less than %d elements.", num.Value), "change\\nth!")
+					}
+					s1.Series.S[num.Value-1] = arg2
+					return s1
+				case env.List:
+					if num.Value > int64(len(s1.Data)) {
+						return MakeBuiltinError(ps, fmt.Sprintf("List has less than %d elements.", num.Value), "change\\nth!")
+					}
+					s1.Data[num.Value-1] = env.RyeToRaw(arg2)
+					return s1
+				default:
+					return MakeArgError(ps, 1, []env.Type{env.BlockType}, "change\\nth!")
+				}
+			default:
+				return MakeArgError(ps, 2, []env.Type{env.IntegerType}, "change\\nth!")
+			}
+		},
+	},
+
 	// FUNCTIONALITY AROUND GENERIC METHODS
 	// generic <integer> <add> fn [ a b ] [ a + b ] // tagwords are temporary here
 	"generic": {

examples/ebitengine/life.rye

@@ -0,0 +1,86 @@
+w: 320
+h: 240
+
+maxInitAliveCells: w * h / 10
+
+world: list produce w * h { } { .concat false }
+
+loop maxInitAliveCells {
+    x: random-integer w
+    y: random-integer h
+    change\nth! world 1 + x + y * w true
+}
+
+pixels: list produce w * h * 4 { } { .concat 0 }
+
+
+neighbourCount: fn { x y } {
+    c: 0
+    neg: 0 - 1 ; TODO loading literal -1 doesn't work
+    ixs: vals { neg 0 1 }
+    for ixs { :i
+        for ixs { :j
+            if any { not i = 0 not j = 0 } {
+                x2: x + i
+                y2: y + j
+                if all { not x2 < 0 not y2 < 0 not w <= x2 not h <= y2 } {
+                    if world .nth 1 + x2 + y2 * w {
+                        inc! 'c
+                    }
+                }
+            }
+        }
+    }
+    return c
+}
+
+on-update {
+    print "on-update"
+    next: list produce w * h { } { .concat false }
+
+    loop w { :x1
+        x: x1 - 1
+        loop h { :y1
+            y: y1 - 1
+            pop: neighbourCount x y
+            ix: 1 + x + y * w
+            either pop < 2 {
+                change\nth! next ix false
+            } {
+                either all { any { pop = 2 pop = 3 } world .nth ix } {
+                    change\nth! next ix true
+                } {
+                    either pop > 3 {
+                        change\nth! next ix false
+                    } { if pop = 3 {
+                        change\nth! next ix true } 
+                    }
+                } 
+            } 
+        }
+    }
+    world: next
+}
+
+on-draw { :screen
+    print "on-draw"
+    loop w * h { :i1
+        i: i1 - 1
+        ix: 1 + i * 4
+        either world .nth 1 + i {
+            change\nth! pixels ix 255
+            change\nth! pixels ix + 1 255
+            change\nth! pixels ix + 2 255
+            change\nth! pixels ix + 3 255
+        } {
+            change\nth! pixels ix 0
+            change\nth! pixels ix + 1 0
+            change\nth! pixels ix + 2 0
+            change\nth! pixels ix + 3 0
+        }
+    }
+
+    screen .write-pixels pixels
+}
+
+ebitengine-run w h

tests/builtins.rye

@@ -1235,6 +1235,19 @@ section "Functions that change values in-place"
 		equal { b: { 1 2 3 } , append! { 4 5 } 'b , b } { 1 2 3 { 4 5 } }
 	}
 
+	group "change\ nth!"
+	mold\nowrap ?change\nth!
+	{ { word } { object } }
+	{
+		equal { b: { 1 2 3 } , change\nth! b 2 4 } { 1 4 3 }
+		equal { b: { 1 2 3 } , change\nth! b 2 { 4 5 } } { 1 { 4 5 } 3 }
+		equal { b: list { 1 2 3 } , change\nth! b 2 4 } list { 1 4 3 }
+		equal { b: list { 1 2 3 } , change\nth! b 2 list { 4 5 } } list vals { 1 list { 4 5 } 3 }
+		equal { try { b: { 1 2 3 } , change\nth! b 4 0 } |type? } 'error
+		equal { try { b: list { 1 2 3 } , change\nth! b 4 0 } |type? } 'error
+	}
+
+
 	group "sort!"
 	mold\nowrap ?append!
 	{ { word } { object } }