diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-05-16 15:34:54 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-05-16 15:50:08 -0700 |
commit | d55cb60583909d93fffb2b3abe5f9044aacbe9ab (patch) | |
tree | 532aeb8be99706d74b6d89f0773e0ebd5f624084 | |
parent | 5069f829b437c04a15d5bbe8906b9ab87729fcfb (diff) | |
download | mu-d55cb60583909d93fffb2b3abe5f9044aacbe9ab.tar.gz |
much better
-rw-r--r-- | hest-life.mu | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/hest-life.mu b/hest-life.mu index 0428e5da..bf7a4b25 100644 --- a/hest-life.mu +++ b/hest-life.mu @@ -54,24 +54,24 @@ fn render0 screen: (addr screen), _self: (addr environment) { draw-rect screen, 0x1f0/xmin, 0x2d0/ymin, 0x210/xmax, 0x2f0/ymax, 0xf/alive draw-rect screen, 0x350/xmin, 0x170/ymin, 0x370/xmax, 0x190/ymax, 0xf/alive # sum node - draw-rect screen, 0x170/xmin, 0x150/ymin, 0x190/xmax, 0x170/ymax, 0x40/color - set-cursor-position screen, 0x2c/col, 0x14/row + draw-rect screen, 0x170/xmin, 0x140/ymin, 0x190/xmax, 0x160/ymax, 0x40/color + set-cursor-position screen, 0x2d/col, 0x13/row draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, "+", 0xf/color, 0/bg # conveyers from neighboring inputs to sum node - draw-monotonic-bezier screen, 0xa0/x0 0x20/y0, 0x100/x1 0x160/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0xa0/x0 0x180/y0, 0xc0/x1 0x160/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0xa0/x0 0x2e0/y0, 0x100/x1 0x160/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0x200/x0 0x20/y0, 0x180/x1 0x90/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0x200/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0x360/x0 0x20/y0, 0x180/x1 0xc0/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0x360/x0 0x180/y0, 0x35c/x1 0x160/y1, 0x180/x2 0x160/y2, 4/color - draw-monotonic-bezier screen, 0x360/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x160/y2, 4/color + draw-monotonic-bezier screen, 0xa0/x0 0x20/y0, 0x100/x1 0x150/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0xa0/x0 0x180/y0, 0xc0/x1 0x150/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0xa0/x0 0x2e0/y0, 0x100/x1 0x150/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0x200/x0 0x20/y0, 0x180/x1 0x90/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0x200/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0x360/x0 0x20/y0, 0x180/x1 0xc0/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0x360/x0 0x180/y0, 0x35c/x1 0x150/y1, 0x180/x2 0x150/y2, 4/color + draw-monotonic-bezier screen, 0x360/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x150/y2, 4/color # filter node draw-rect screen, 0x200/xmin, 0x180/ymin, 0x220/xmax, 0x1a0/ymax, 0x31/color set-cursor-position screen, 0x3f/col, 0x17/row draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, "?", 0xf/color, 0/bg # conveyer from sum node to filter node - draw-line screen 0x180/x0, 0x160/y0, 0x210/x1, 0x190/y1, 0xa2/color + draw-line screen 0x180/x0, 0x150/y0, 0x210/x1, 0x190/y1, 0xa2/color # cell outputs at corners draw-rect screen, 0xd0/xmin, 0x50/ymin, 0xf0/xmax, 0x70/ymax, 0xf/alive draw-rect screen, 0x310/xmin, 0x50/ymin, 0x330/xmax, 0x70/ymax, 0x1a/dead @@ -94,14 +94,14 @@ fn render0 screen: (addr screen), _self: (addr environment) { var eight-f/xmm0: float <- convert eight u <- divide eight-f # points on conveyers from neighboring cells - draw-bezier-point screen, u, 0xa0/x0 0x20/y0, 0x100/x1 0x160/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0xa0/x0 0x180/y0, 0xc0/x1 0x160/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0xa0/x0 0x2e0/y0, 0x100/x1 0x160/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0x200/x0 0x20/y0, 0x180/x1 0x90/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0x200/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0x360/x0 0x20/y0, 0x180/x1 0xc0/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0x360/x0 0x180/y0, 0x35c/x1 0x160/y1, 0x180/x2 0x160/y2, 7/color, 4/radius - draw-bezier-point screen, u, 0x360/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x160/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0xa0/x0 0x20/y0, 0x100/x1 0x150/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0xa0/x0 0x180/y0, 0xc0/x1 0x150/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0xa0/x0 0x2e0/y0, 0x100/x1 0x150/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0x200/x0 0x20/y0, 0x180/x1 0x90/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0x200/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0x360/x0 0x20/y0, 0x180/x1 0xc0/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0x360/x0 0x180/y0, 0x35c/x1 0x150/y1, 0x180/x2 0x150/y2, 7/color, 4/radius + draw-bezier-point screen, u, 0x360/x0 0x2e0/y0, 0x180/x1 0x200/y1, 0x180/x2 0x150/y2, 7/color, 4/radius } fn draw-bezier-point screen: (addr screen), u: float, x0: int, y0: int, x1: int, y1: int, x2: int, y2: int, color: int, radius: int { |