Began implementing the funge field

2 files changed, 42 insertions, 0 deletions

diff --git a/src/field.nim b/src/field.nim
new file mode 100644
index 0000000..a9d26fc
--- /dev/null
+++ b/src/field.nim
@@ -0,0 +1,37 @@
+type
+  Line = ref object
+    x, l: int
+    columns: seq[int]
+
+  Field* = ref object
+    x, y: int
+    lx, ly: int
+    lines: seq[Line]
+
+proc get*(f: Field, x, y: int): int =
+  if y >= f.y and y < f.y + f.ly:
+    let l = f.lines[y-f.y]
+    if x >= l.x and x < l.x + l.l:
+      return l.columns[x-l.x]
+  return int(' ')
+
+proc isIn*(f: Field, x, y: int): bool =
+  return x >= f.x and y >= f.y and x < f.x+f.lx and y < f.y+f.ly
+
+when defined(unitTesting):
+  let minimal = Field(
+    x: 0,
+    y: 0,
+    lx: 1,
+    ly: 1,
+    lines: @[
+      Line(x: 0, l: 1, columns: @[int('@')])
+    ]
+  )
+  suite "Field":
+    test "Field.get":
+      check minimal.get(0,0) == int('@')
+      check minimal.get(1,0) == int(' ')
+    test "Field.isIn":
+      check minimal.isIn(0, 0) == true
+      check minimal.isIn(1, 0) == false
diff --git a/src/nimfunge98.nim b/src/nimfunge98.nim
new file mode 100644
index 0000000..e8f1ce4
--- /dev/null
+++ b/src/nimfunge98.nim
@@ -0,0 +1,5 @@
+import nimfunge98/field/field
+
+let f:Field
+
+echo f.get(3,2)
\ No newline at end of file