diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-06 23:39:13 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-06 23:39:13 -0700 |
commit | 45b1e1f67654fd5658922bde053796d48f1c96fb (patch) | |
tree | 6d6edbb4f7222f988984519b6782615732415f16 /edit.arc.t | |
parent | ec690bf30d0a8ce57f3ce23f8a8b067b633ece1f (diff) | |
download | mu-45b1e1f67654fd5658922bde053796d48f1c96fb.tar.gz |
113 - slight progress working with screen 2D array
Why did it take forever to realize nobody will set the array length, that I have to do it for myself?
Diffstat (limited to 'edit.arc.t')
-rw-r--r-- | edit.arc.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/edit.arc.t b/edit.arc.t new file mode 100644 index 00000000..ea064245 --- /dev/null +++ b/edit.arc.t @@ -0,0 +1,22 @@ +(load "mu.arc") + +(reset) +(add-fns:readfile "edit.mu") +(add-fns + '((test-new-screen + ((curr-screen screen-address) <- new-screen (5 literal) (5 literal)) + ))) +(run 'test-new-screen) +(prn memory*) + +;? (reset) +;? (add-fns:readfile "edit.mu") +;? (add-fns +;? '((test-redraw +;? ((curr-screen screen-address) <- new-screen (5 literal) (5 literal)) +;? ((x line-address) <- get-address (curr-screen screen) (2 offset)) +;? ((y character-address) <- get-address (x line-address deref) (4 offset)) +;? ((y character-address deref) <- copy (literal "a")) +;? ))) +;? (run 'test-redraw) +;? (prn memory*) |