Mu - apps/tile.mu

From a03c449be90a428f041f548b1673d2489cdb1b04 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 12 Dec 2021 13:09:41 -0800 Subject: . --- html/apps/tile.mu.html | 371 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 371 insertions(+) create mode 100644 html/apps/tile.mu.html diff --git a/html/apps/tile.mu.html b/html/apps/tile.mu.html new file mode 100644 index 00000000..856fd715 --- /dev/null +++ b/html/apps/tile.mu.html @@ -0,0 +1,371 @@ + + + + +Mu - apps/tile.mu + + + + + + + + + + +https://github.com/akkartik/mu/blob/main/apps/tile.mu +
+  1 # Randomly tile from a given set of tiles
+  2 
+  3 type tile {
+  4   data: (handle array handle array int)
+  5 }
+  6 
+  7 fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
+  8   # basic maze
+  9   # 10 PRINT CHR$(205.5 + RND(1))
+ 10   # GOTO 10
+ 11 #?   var tiles-storage: (array tile 2)
+ 12 #?   var tiles/esi: (addr array tile) <- address tiles-storage
+ 13 #?   set-tile tiles, 0/idx, 1 0 0, 0 1 0, 0 0 1
+ 14 #?   set-tile tiles, 1/idx, 0 0 1, 0 1 0, 1 0 0
+ 15 
+ 16   # https://post.lurk.org/@paul/107425083075253587
+ 17   var tiles-storage: (array tile 0x62)
+ 18   var tiles/esi: (addr array tile) <- address tiles-storage
+ 19   set-tile tiles, 0x00/idx, 1 1 1, 0 1 0, 0 0 0
+ 20   set-tile tiles, 0x01/idx, 0 1 1, 1 1 0, 0 0 0
+ 21   set-tile tiles, 0x02/idx, 1 1 1, 1 0 1, 0 0 0
+ 22   set-tile tiles, 0x03/idx, 1 1 0, 0 1 1, 0 0 0
+ 23   set-tile tiles, 0x04/idx, 0 0 0, 1 1 1, 0 0 0
+ 24   set-tile tiles, 0x05/idx, 1 0 0, 1 1 1, 0 0 0
+ 25   set-tile tiles, 0x06/idx, 0 1 0, 1 1 1, 0 0 0
+ 26   set-tile tiles, 0x07/idx, 0 0 1, 1 1 1, 0 0 0
+ 27   set-tile tiles, 0x08/idx, 1 0 1, 1 1 1, 0 0 0
+ 28   set-tile tiles, 0x09/idx, 0 1 1, 1 1 0, 1 0 0
+ 29   set-tile tiles, 0x0a/idx, 0 1 1, 0 0 1, 1 0 0
+ 30   set-tile tiles, 0x0b/idx, 1 1 1, 0 0 1, 1 0 0
+ 31   set-tile tiles, 0x0c/idx, 1 1 1, 1 0 1, 1 0 0
+ 32   set-tile tiles, 0x0d/idx, 0 0 0, 1 1 1, 1 0 0
+ 33   set-tile tiles, 0x0e/idx, 1 0 0, 1 1 1, 1 0 0
+ 34   set-tile tiles, 0x0f/idx, 0 1 0, 1 1 1, 1 0 0
+ 35   set-tile tiles, 0x10/idx, 0 0 1, 1 1 1, 1 0 0
+ 36   set-tile tiles, 0x11/idx, 1 0 1, 1 1 1, 1 0 0
+ 37   set-tile tiles, 0x12/idx, 1 0 1, 0 0 0, 0 1 0
+ 38   set-tile tiles, 0x13/idx, 1 1 1, 0 0 0, 0 1 0
+ 39   set-tile tiles, 0x14/idx, 1 1 1, 0 1 0, 0 1 0
+ 40   set-tile tiles, 0x15/idx, 0 1 1, 1 1 0, 0 1 0
+ 41   set-tile tiles, 0x16/idx, 1 1 0, 0 1 1, 0 1 0
+ 42   set-tile tiles, 0x17/idx, 0 0 0, 1 1 1, 0 1 0
+ 43   set-tile tiles, 0x18/idx, 1 0 0, 1 1 1, 0 1 0
+ 44   set-tile tiles, 0x19/idx, 0 1 0, 1 1 1, 0 1 0
+ 45   set-tile tiles, 0x1a/idx, 0 0 1, 1 1 1, 0 1 0
+ 46   set-tile tiles, 0x1b/idx, 1 0 1, 1 1 1, 0 1 0
+ 47   set-tile tiles, 0x1c/idx, 1 0 1, 0 0 0, 1 1 0
+ 48   set-tile tiles, 0x1d/idx, 0 1 1, 0 0 0, 1 1 0
+ 49   set-tile tiles, 0x1e/idx, 1 1 1, 0 0 0, 1 1 0
+ 50   set-tile tiles, 0x1f/idx, 0 0 1, 1 0 0, 1 1 0
+ 51   set-tile tiles, 0x20/idx, 1 0 1, 1 0 0, 1 1 0
+ 52   set-tile tiles, 0x21/idx, 1 1 1, 1 0 0, 1 1 0
+ 53   set-tile tiles, 0x22/idx, 0 1 1, 0 1 0, 1 1 0
+ 54   set-tile tiles, 0x23/idx, 1 1 1, 0 1 0, 1 1 0
+ 55   set-tile tiles, 0x24/idx, 0 0 0, 0 1 1, 1 1 0
+ 56   set-tile tiles, 0x25/idx, 0 1 0, 0 1 1, 1 1 0
+ 57   set-tile tiles, 0x26/idx, 1 1 0, 0 1 1, 1 1 0
+ 58   set-tile tiles, 0x27/idx, 0 0 1, 0 1 1, 1 1 0
+ 59   set-tile tiles, 0x28/idx, 1 1 0, 1 0 0, 0 0 1
+ 60   set-tile tiles, 0x29/idx, 1 1 1, 1 0 0, 0 0 1
+ 61   set-tile tiles, 0x2a/idx, 1 1 1, 1 0 1, 0 0 1
+ 62   set-tile tiles, 0x2b/idx, 1 1 0, 0 1 1, 0 0 1
+ 63   set-tile tiles, 0x2c/idx, 0 0 0, 1 1 1, 0 0 1
+ 64   set-tile tiles, 0x2d/idx, 1 0 0, 1 1 1, 0 0 1
+ 65   set-tile tiles, 0x2e/idx, 0 1 0, 1 1 1, 0 0 1
+ 66   set-tile tiles, 0x2f/idx, 0 0 1, 1 1 1, 0 0 1
+ 67   set-tile tiles, 0x30/idx, 1 0 1, 1 1 1, 0 0 1
+ 68   set-tile tiles, 0x31/idx, 0 1 0, 0 0 0, 1 0 1
+ 69   set-tile tiles, 0x32/idx, 1 1 0, 0 0 0, 1 0 1
+ 70   set-tile tiles, 0x33/idx, 0 1 1, 0 0 0, 1 0 1
+ 71   set-tile tiles, 0x34/idx, 1 1 1, 0 0 0, 1 0 1
+ 72   set-tile tiles, 0x35/idx, 1 1 0, 1 0 0, 1 0 1
+ 73   set-tile tiles, 0x36/idx, 1 1 1, 1 0 0, 1 0 1
+ 74   set-tile tiles, 0x37/idx, 0 1 1, 0 0 1, 1 0 1
+ 75   set-tile tiles, 0x38/idx, 1 1 1, 0 0 1, 1 0 1
+ 76   set-tile tiles, 0x39/idx, 1 1 1, 1 0 1, 1 0 1
+ 77   set-tile tiles, 0x3a/idx, 0 0 0, 1 1 1, 1 0 1
+ 78   set-tile tiles, 0x3b/idx, 1 0 0, 1 1 1, 1 0 1
+ 79   set-tile tiles, 0x3c/idx, 0 1 0, 1 1 1, 1 0 1
+ 80   set-tile tiles, 0x3d/idx, 0 0 1, 1 1 1, 1 0 1
+ 81   set-tile tiles, 0x3e/idx, 1 0 1, 1 1 1, 1 0 1
+ 82   set-tile tiles, 0x3f/idx, 1 1 0, 0 0 0, 0 1 1
+ 83   set-tile tiles, 0x40/idx, 1 0 1, 0 0 0, 0 1 1
+ 84   set-tile tiles, 0x41/idx, 1 1 1, 0 0 0, 0 1 1
+ 85   set-tile tiles, 0x42/idx, 1 1 0, 0 1 0, 0 1 1
+ 86   set-tile tiles, 0x43/idx, 1 1 1, 0 1 0, 0 1 1
+ 87   set-tile tiles, 0x44/idx, 0 0 0, 1 1 0, 0 1 1
+ 88   set-tile tiles, 0x45/idx, 1 0 0, 1 1 0, 0 1 1
+ 89   set-tile tiles, 0x46/idx, 0 1 0, 1 1 0, 0 1 1
+ 90   set-tile tiles, 0x47/idx, 0 1 1, 1 1 0, 0 1 1
+ 91   set-tile tiles, 0x48/idx, 1 0 0, 0 0 1, 0 1 1
+ 92   set-tile tiles, 0x49/idx, 1 0 1, 0 0 1, 0 1 1
+ 93   set-tile tiles, 0x4a/idx, 1 1 1, 0 0 1, 0 1 1
+ 94   set-tile tiles, 0x4b/idx, 0 1 0, 0 0 0, 1 1 1
+ 95   set-tile tiles, 0x4c/idx, 1 1 0, 0 0 0, 1 1 1
+ 96   set-tile tiles, 0x4d/idx, 1 0 1, 0 0 0, 1 1 1
+ 97   set-tile tiles, 0x4e/idx, 0 1 1, 0 0 0, 1 1 1
+ 98   set-tile tiles, 0x4f/idx, 1 1 1, 0 0 0, 1 1 1
+ 99   set-tile tiles, 0x50/idx, 1 1 0, 1 0 0, 1 1 1
+100   set-tile tiles, 0x51/idx, 0 0 1, 1 0 0, 1 1 1
+101   set-tile tiles, 0x52/idx, 1 0 1, 1 0 0, 1 1 1
+102   set-tile tiles, 0x53/idx, 1 1 1, 1 0 0, 1 1 1
+103   set-tile tiles, 0x54/idx, 0 0 0, 0 1 0, 1 1 1
+104   set-tile tiles, 0x55/idx, 0 1 0, 0 1 0, 1 1 1
+105   set-tile tiles, 0x56/idx, 1 1 0, 0 1 0, 1 1 1
+106   set-tile tiles, 0x57/idx, 0 1 1, 0 1 0, 1 1 1
+107   set-tile tiles, 0x58/idx, 1 1 1, 0 1 0, 1 1 1
+108   set-tile tiles, 0x59/idx, 1 0 0, 0 0 1, 1 1 1
+109   set-tile tiles, 0x5a/idx, 1 0 1, 0 0 1, 1 1 1
+110   set-tile tiles, 0x5b/idx, 0 1 1, 0 0 1, 1 1 1
+111   set-tile tiles, 0x5c/idx, 1 1 1, 0 0 1, 1 1 1
+112   set-tile tiles, 0x5d/idx, 0 0 0, 1 0 1, 1 1 1
+113   set-tile tiles, 0x5e/idx, 1 0 0, 1 0 1, 1 1 1
+114   set-tile tiles, 0x5f/idx, 0 0 1, 1 0 1, 1 1 1
+115   set-tile tiles, 0x60/idx, 1 0 1, 1 0 1, 1 1 1
+116   set-tile tiles, 0x61/idx, 1 1 1, 1 0 1, 1 1 1
+117 
+118   render-tiles screen, tiles
+119   {
+120     var key/eax: byte <- read-key keyboard
+121     compare key, 0
+122     loop-if-=
+123   }
+124   var step/eax: int <- copy 0
+125   {
+126     render-random screen, tiles, 0xc/pixels-per-tile, step
+127     {
+128       var key/eax: byte <- read-key keyboard
+129       compare key, 0
+130       loop-if-=
+131     }
+132     step <- increment
+133     loop
+134   }
+135 }
+136 
+137 fn set-tile _tiles: (addr array tile), _idx: int, n0: int, n1: int, n2: int, n3: int, n4: int, n5: int, n6: int, n7: int, n8: int {
+138   var tiles/eax: (addr array tile) <- copy _tiles
+139   var idx/ecx: int <- copy _idx
+140   var tile/edi: (addr tile) <- index tiles, idx
+141   var rows-ah/eax: (addr handle array handle array int) <- get tile, data
+142   populate rows-ah, 3
+143   var _rows/eax: (addr array handle array int) <- lookup *rows-ah
+144   var rows/edi: (addr array handle array int) <- copy _rows
+145   var row0-ah/eax: (addr handle array int) <- index rows, 0
+146   populate row0-ah, 3
+147   var row0/eax: (addr array int) <- lookup *row0-ah
+148   var x0/ecx: (addr int) <- index row0, 0
+149   var src/esi: int <- copy n0
+150   copy-to *x0, src
+151   var x1/ecx: (addr int) <- index row0, 1
+152   var src/esi: int <- copy n1
+153   copy-to *x1, src
+154   var x2/ecx: (addr int) <- index row0, 2
+155   var src/esi: int <- copy n2
+156   copy-to *x2, src
+157   var row1-ah/eax: (addr handle array int) <- index rows, 1
+158   populate row1-ah, 3
+159   var row1/eax: (addr array int) <- lookup *row1-ah
+160   var x3/ecx: (addr int) <- index row1, 0
+161   var src/esi: int <- copy n3
+162   copy-to *x3, src
+163   var x4/ecx: (addr int) <- index row1, 1
+164   var src/esi: int <- copy n4
+165   copy-to *x4, src
+166   var x5/ecx: (addr int) <- index row1, 2
+167   var src/esi: int <- copy n5
+168   copy-to *x5, src
+169   var row2-ah/eax: (addr handle array int) <- index rows, 2
+170   populate row2-ah, 3
+171   var row2/eax: (addr array int) <- lookup *row2-ah
+172   var x6/ecx: (addr int) <- index row2, 0
+173   var src/esi: int <- copy n6
+174   copy-to *x6, src
+175   var x7/ecx: (addr int) <- index row2, 1
+176   var src/esi: int <- copy n7
+177   copy-to *x7, src
+178   var x8/ecx: (addr int) <- index row2, 2
+179   var src/esi: int <- copy n8
+180   copy-to *x8, src
+181 }
+182 
+183 fn render-tiles screen: (addr screen), _tiles: (addr array tile) {
+184   draw-rect screen, 0 0, 0x400 0x300, 8
+185   var tiles/esi: (addr array tile) <- copy _tiles
+186   var num-tiles: int
+187   var tmp/eax: int <- length tiles
+188   copy-to num-tiles, tmp
+189 #?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, num-tiles, 0x31, 0
+190   var i/ecx: int <- copy 0
+191   {
+192     compare i, num-tiles
+193     break-if->=
+194 #?     draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, i, 0x31, 0
+195     var tile/eax: (addr tile) <- index tiles, i
+196     var start-x/edx: int <- copy i
+197     start-x <- and 0xf  # 16 cells per row
+198     start-x <- shift-left 4/pixels-per-cell
+199     start-x <- add 0x20/left-margin
+200     var start-y/ebx: int <- copy i
+201     start-y <- shift-right 4  # 16 cells per row
+202     start-y <- shift-left 4/pixels-per-cell
+203     start-y <- add 0x20/top-margin
+204 #?     draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, start-x, 0x31, 0
+205     render-tile screen, tile, start-x, start-y, 4/pixels-per-cell  # 4 * 3 + 4 = 16 pixels wide
+206     i <- increment
+207     loop
+208   }
+209 }
+210 
+211 fn render-tile screen: (addr screen), _tile: (addr tile), start-x: int, start-y: int, n: int {
+212   var tile/esi: (addr tile) <- copy _tile
+213   var y/ecx: int <- copy start-y
+214   y <- add 4/margin-top
+215   var rows-ah/eax: (addr handle array handle array int) <- get tile, data
+216   var rows/eax: (addr array handle array int) <- lookup *rows-ah
+217   var i/ebx: int <- copy 0
+218   {
+219     compare i, 3
+220     break-if->=
+221     var x/edx: int <- copy start-x
+222     x <- add 4/margin-left
+223     var curr-row-ah/eax: (addr handle array int) <- index rows, i
+224     var curr-row/eax: (addr array int) <- lookup *curr-row-ah
+225     var j/edi: int <- copy 0
+226     {
+227       compare j, 3
+228       break-if->=
+229       var curr/eax: (addr int) <- index curr-row, j
+230       var color/eax: int <- copy *curr
+231       color <- shift-left 1
+232       draw-rect2 screen, x y, n n, color
+233       j <- increment
+234       x <- add n
+235       loop
+236     }
+237     i <- increment
+238     y <- add n
+239     loop
+240   }
+241 }
+242 
+243 fn render-random screen: (addr screen), _tiles: (addr array tile), n: int, seed: int {
+244   draw-rect screen, 0 0, 0x400 0x300, 8
+245   var tiles/esi: (addr array tile) <- copy _tiles
+246   var rand/edi: int <- next-random seed
+247   var num-tiles/ebx: int <- length tiles
+248   var y/ecx: int <- copy 0
+249   {
+250     compare y, 0x300
+251     break-if->=
+252     var x/edx: int <- copy 0
+253     {
+254       compare x, 0x400
+255       break-if->=
+256       var i/eax: int <- remainder rand, num-tiles
+257       var tile/eax: (addr tile) <- index tiles, i
+258       render-tile-without-margin screen, tile, x, y, 4/pixels-per-cell
+259       x <- add n
+260       rand <- next-random rand
+261       loop
+262     }
+263     y <- add n
+264     loop
+265   }
+266 }
+267 
+268 fn render-tile-without-margin screen: (addr screen), _tile: (addr tile), start-x: int, start-y: int, n: int {
+269   var tile/esi: (addr tile) <- copy _tile
+270   var y/ecx: int <- copy start-y
+271   var rows-ah/eax: (addr handle array handle array int) <- get tile, data
+272   var rows/eax: (addr array handle array int) <- lookup *rows-ah
+273   var i/ebx: int <- copy 0
+274   {
+275     compare i, 3
+276     break-if->=
+277     var x/edx: int <- copy start-x
+278     var curr-row-ah/eax: (addr handle array int) <- index rows, i
+279     var curr-row/eax: (addr array int) <- lookup *curr-row-ah
+280     var j/edi: int <- copy 0
+281     {
+282       compare j, 3
+283       break-if->=
+284       var curr/eax: (addr int) <- index curr-row, j
+285       var color/eax: int <- copy *curr
+286       color <- shift-left 1
+287       draw-rect2 screen, x y, n n, color
+288       j <- increment
+289       x <- add n
+290       loop
+291     }
+292     i <- increment
+293     y <- add n
+294     loop
+295   }
+296 }
+297 
+298 fn remainder a: int, b: int -> _/eax: int {
+299   var q/eax: int <- copy 0
+300   var r/edx: int <- copy 0
+301   q, r <- integer-divide a, b
+302   return r
+303 }
+
+ + + -- cgit 1.4.1-2-gfad0