1 files changed, 249 insertions, 82 deletions

diff --git a/apps/plugins/lua_scripts/stars.lua b/apps/plugins/lua_scripts/stars.lua
index 14fae0c4b7..e05007afb6 100644
--- a/apps/plugins/lua_scripts/stars.lua
+++ b/apps/plugins/lua_scripts/stars.lua
@@ -17,7 +17,7 @@
 ]]--
 --https://nullprogram.com/blog/2011/06/13/ [Infinite Parallax Starfield]
 
--- Imports 
+-- Imports
 local _clr   = require("color") -- clrset, clrinc provides device independent colors
 local _lcd   = require("lcd")   -- lcd helper functions
 local _draw  = require("draw")  -- draw all the things (primitives)
@@ -32,13 +32,13 @@ local BLACK = _clr.set(0, 0, 0, 0)
 local RED   = _clr.set(WHITE, 100)
 local GREEN = _clr.set(WHITE, 0, 100)
 local BGREEN = _clr.set(WHITE, 0, 255)
-local BLUE  = _clr.set(WHITE, 0, 0, 100)
+local BLUE  = _clr.set(WHITE, 0, 0, 255)
 
-local STAR_SEED = 0x9d2c5680;
+local STAR_SEED = 0x811C9DC5;
 local STAR_TILE_SIZE = math.max(rb.LCD_WIDTH, rb.LCD_HEIGHT) * 4;
 local bxor, band, rshift, lshift, arshift = bit.bxor, bit.band, bit.rshift, bit.lshift, bit.arshift
 local random, randomseed = math.random, math.randomseed
-local start_x, start_y, start_z
+local start_x, start_y, start_z, scale_x, scale_y
 
 -- load users coords from file if it exists
 local fname = rb.PLUGIN_DATA_DIR .. "/stars.pos"
@@ -53,6 +53,10 @@ if file then
            start_y = tonumber(line) or 0
        elseif v == 3 then
            start_z = tonumber(line) or 0
+       elseif v == 4 then
+           scale_x = tonumber(line) or 1
+       elseif v == 5 then
+           scale_y = tonumber(line) or 1
        else
            break;
        end
@@ -62,15 +66,15 @@ end
 
 -- Robert Jenkins' 96 bit Mix Function.
 local function mix (a, b, c)
-    a=a-b;  a=a-c;  a=bxor(a, (rshift(c, 13)));
-    b=b-c;  b=b-a;  b=bxor(b, (lshift(a, 8)));
-    c=c-a;  c=c-b;  c=bxor(c, (rshift(b, 13)));
-    a=a-b;  a=a-c;  a=bxor(a, (rshift(c, 12)));
-    b=b-c;  b=b-a;  b=bxor(b, (lshift(a, 16)));
-    c=c-a;  c=c-b;  c=bxor(c, (rshift(b, 5)));
-    a=a-b;  a=a-c;  a=bxor(a, (rshift(c, 3)));
-    b=b-c;  b=b-a;  b=bxor(b, (lshift(a, 10)));
-    c=c-a;  c=c-b;  c=bxor(c, (rshift(b, 15)));
+    a=a-b;  a=a-c;  a=bxor(a, (rshift(c, 13)))
+    b=b-c;  b=b-a;  b=bxor(b, (lshift(a, 8)))
+    c=c-a;  c=c-b;  c=bxor(c, (rshift(b, 13)))
+    a=a-b;  a=a-c;  a=bxor(a, (rshift(c, 12)))
+    b=b-c;  b=b-a;  b=bxor(b, (lshift(a, 16)))
+    c=c-a;  c=c-b;  c=bxor(c, (rshift(b, 5)))
+    a=a-b;  a=a-c;  a=bxor(a, (rshift(c, 3)))
+    b=b-c;  b=b-a;  b=bxor(b, (lshift(a, 10)))
+    c=c-a;  c=c-b;  c=bxor(c, (rshift(b, 15)))
 
     return c
 end
@@ -94,13 +98,13 @@ local function s_bytes_nib(bits, value)
     return bbuffer
 end
 
---[[ given table t and total elems desired uses random elems of t 
+--[[ given table t and total elems desired uses random elems of t
    and random numbers between 1 and max_v if #t < total_elems]]
 function randomize_table(t, total_elems, max_v)
     local rand_t = {}
     local i = 1
     repeat
-        local v = t[random(1, total_elems)]
+        local v = t[random(i, total_elems)]
         if v then
             rand_t[i] = v
         else
@@ -111,21 +115,30 @@ function randomize_table(t, total_elems, max_v)
     return rand_t
 end
 
-local function drawship(img, x, y, color, ship_t)
+local function drawship(img, ship_t)
     --_poly.polyline(img, x, y, ship_t, color, true, true)
-   _poly.polygon(img, x, y, ship_t, color, BLACK, true)
+   _poly.polygon(img, ship_t.x, ship_t.y, ship_t.disp_t, ship_t.color, ship_t.fillcolor, true)
 end
 
-local function draw_astroid(img, x, y, size, shape, color, scale_x, scale_y)
+local function draw_astroid(img, x, y, shape, color, fillcolor, scale_x, scale_y)
     --the random number generator gets seeded with the hash so we get the same figure each time
     randomseed(shape)
+    local move_x, move_y
     -- we also use the 4 bytes of the hash as 4 coord pairs and randomly generate 8 more (16) half the size (8)
     local uniq_t = randomize_table(s_bytes_nib(32, shape), 16, 8)
-    _poly.polyline(img, x, y, uniq_t, color, true, true, scale_x or 1, scale_y or 1)
-    --_poly.polygon(img, x, y, uniq_t, color, color, true, scale_x or 1, scale_y or 1) --filled figures
+    move_x, move_y = _poly.polyline(img, 0, 0, uniq_t, color, true, true, scale_x or 1, scale_y or 1, true)
+    x = x - move_x / 2
+    y = y - move_y / 2
+    if fillcolor then
+        _poly.polygon(img, x, y, uniq_t, color, fillcolor, true, scale_x or 1, scale_y or 1) --filled figures
+    else
+        _poly.polyline(img, x, y, uniq_t, color, true, true, scale_x or 1, scale_y or 1)
+    end
+
+    return x, y, move_x, move_y
 end
 
-local function drawStars (img, xoff, yoff, starscale, color, scale_x, scale_y)
+local function drawStars(img, drawFn, xoff, yoff, starscale, color, scale_x, scale_y)
     local size = STAR_TILE_SIZE / starscale
     local s_x, s_y = scale_x, scale_y
     local w, h = rb.LCD_WIDTH, rb.LCD_HEIGHT
@@ -139,100 +152,245 @@ local function drawStars (img, xoff, yoff, starscale, color, scale_x, scale_y)
         for j = sy, h + sy + size*3, size do
             local hash = mix(STAR_SEED, (i / size), (j / size))
             for n = 0, 2 do
-                local px = (hash % size) + (i - xoff);
+                local px = (hash % size) + (i - xoff)
                 hash = arshift(hash, 3)
 
-                local py = (hash % size) + (j - yoff);
+                local py = (hash % size) + (j - yoff)
                 hash = arshift(hash, 3)
-
                 if px > 0 and px < w and py > 0 and py < h then
-                    if n > 0 and starscale < 5 then
-                        draw_astroid(img, px, py, n, hash, color, s_x, s_y)
-                    else
-                        if scale_x > 1 then
-                            img:set(px, py, color)
-                            img:set(px + 1, py, color)
-                        elseif scale_y > 1 then
-                            img:set(px, py, color)
-                            img:set(px, py + 1, color)
-                        else
-                            img:set(px, py, color)
-                        end
-                    end
+                    drawFn(img, px, py, color, n, hash)
                 end
             end
         end
     end
 end
 
+local function update_lcd()
+    rb.lcd_puts(0,0, "[Infinite Starfield]")
+    _lcd:update()
+    rb.sleep(100)
+    update_lcd = _lcd.update
+end
+
+local backlight_on
+local function turn_on_backlight()
+    rb.backlight_force_on();
+    backlight_on = function() end
+end
+backlight_on = turn_on_backlight
+
 do
     local act = rb.actions
     local quit = false
-    local last_action = 0
+    --local last_action = 0
     local x,y,z = start_x or 0, start_y or 0, start_z or 8
-    local x_fast = rb.LCD_WIDTH / 4
-    local y_fast = rb.LCD_HEIGHT / 4
-    local ship_x = (rb.LCD_WIDTH - 0xF) / 2
-    local ship_y = rb.LCD_HEIGHT - (rb.LCD_HEIGHT / 3)
-    local scale_x, scale_y = 1, 1
-    -- vector draw the ship points for each direction (<>^v)
-    local ship_lt_t = {0,7, 15,0, 9,7, 15,15, 0,7}
-    local ship_rt_t = {0,0, 5,7, 0,15, 15,7, 0,0}
-    local ship_up_t = {0,15, 7,0, 15,15, 7,9, 0,15}
-    local ship_dn_t = {0,0, 7,15, 15,0, 7,5, 0,0}
-    local ship_t = ship_up_t
+    local s_x, s_y = scale_x or 1, scale_y or 1
+    local ship_t = {x = (rb.LCD_WIDTH - 0xF) / 2,
+                    y = rb.LCD_HEIGHT - (rb.LCD_HEIGHT / 3),
+                    color = BGREEN,
+                    fillcolor = BLACK,
+                    -- ship vector coords x,y, x,y,...
+                    lt_t = {0,7, 15,0, 9,7, 15,15, 0,7},
+                    rt_t = {0,0, 5,7, 0,15, 15,7, 0,0},
+                    up_t = {0,15, 7,0, 15,15, 7,9, 0,15},
+                    dn_t = {0,0, 7,15, 15,0, 7,5, 0,0}
+                    }
+    ship_t.disp_t = ship_t.up_t
+
+    local fast = {x = 1, y = 1, count = 0, inc_x = rb.LCD_WIDTH / 16, inc_y = rb.LCD_HEIGHT / 16}
+
+    local last = {sx = s_x, sy = s_y, dx = 0, dy = 0, inc_x = 0, inc_y = 0}
+
+    local function draw_points(img, x, y, color, n, hash)
+        if s_x > s_y then
+            img:line(x, y, x + s_x, y, color, true)
+        elseif s_y > s_x then
+            img:line(x, y, x, y + s_y, color, true)
+        else
+            img:set(x, y, color, true)
+        end
+    end
+
+    function action_drift()
+        if last.dx > 0 then
+            last.dx = last.dx - 1
+            x = x + last.dx
+        elseif last.dx < 0 then
+            last.dx = last.dx + 1
+            x = x + last.dx
+        end
+        if last.dy > 0 then
+            last.dy = last.dy - 1
+            y = y + last.dy
+        elseif last.dy < 0 then
+            last.dy = last.dy + 1
+            y = y + last.dy
+        end
+        if last.dx == 0 and last.dy == 0 then
+            rockev.suspend("timer")
+        end
+        rockev.trigger("action", true, act.ACTION_REDRAW)
+    end
 
     function action_event(action)
+        backlight_on()
         if action == act.PLA_EXIT or action == act.PLA_CANCEL then
             quit = true
             start_x, start_y, start_z = x, y, z
+            scale_x, scale_y = last.sx, last.sy
         elseif action == act.PLA_RIGHT_REPEAT then
-            x = x + x_fast
-            scale_x = scale_x + 1
-            scale_y = 1
+            fast.count = fast.count + 1
+            if fast.count % 10 == 0 then
+                fast.x = fast.x + fast.inc_x
+                if fast.count > 100 then s_x = s_x + 1 end
+            end
+            x = x + fast.x + last.inc_x
+            s_y = last.sy
+            last.dx = fast.x
+            ship_t.disp_t = ship_t.rt_t
         elseif action == act.PLA_LEFT_REPEAT then
-            x = x - x_fast
-            scale_x = scale_x + 1
-            scale_y = 1
+            fast.count = fast.count + 1
+            if fast.count % 10 == 0 then
+                fast.x = fast.x + fast.inc_x
+                if fast.count > 100 then s_x = s_x + 1 end
+            end
+            x = x - fast.x + last.inc_x
+            s_y = last.sy
+            last.dx = -fast.x
+            ship_t.disp_t = ship_t.lt_t
         elseif action == act.PLA_UP_REPEAT then
-            y = y - y_fast
-            scale_y = scale_y + 1
-            scale_x = 1
+            fast.count = fast.count + 1
+            if fast.count % 10 == 0 then
+                fast.y = fast.y + fast.inc_y
+                if fast.count > 100 then s_y = s_y + 1 end
+            end
+            y = y - fast.y + last.inc_y
+            s_x = last.sx
+            last.dy = -fast.y
+            ship_t.disp_t = ship_t.up_t
         elseif action == act.PLA_DOWN_REPEAT then
-            y = y + y_fast
-            scale_y = scale_y + 1
-            scale_x = 1
+            fast.count = fast.count + 1
+            if fast.count % 10 == 0 then
+                fast.y = fast.y + fast.inc_y
+                if fast.count > 100 then s_y = s_y + 1 end
+            end
+            y = y + fast.y + last.inc_y
+            s_x = last.sx
+            last.dy = fast.y
+            ship_t.disp_t = ship_t.dn_t
         elseif action == act.PLA_RIGHT then
-            x = x + 1
-            ship_t = ship_rt_t
+            last.inc_x = last.inc_x + 1
+            x = x + last.dx + 1
+            if last.inc_x < 0 then
+                last.inc_x = 0
+            end
+            last.dx = last.inc_x
+            ship_t.disp_t = ship_t.rt_t
         elseif action == act.PLA_LEFT then
-            x = x - 1
-            ship_t = ship_lt_t
+            last.inc_x = last.inc_x - 1
+            x = x + last.dx - 1
+            if last.inc_x > 0 then
+                last.inc_x = 0
+            end
+            last.dx = last.inc_x
+            ship_t.disp_t = ship_t.lt_t
         elseif action == act.PLA_UP then
-            y = y - 1
-            ship_t = ship_up_t
+            last.inc_y = last.inc_y - 1
+            y = y + last.dy - 1
+            if last.inc_y > 0 then
+                last.inc_y = 0
+            end
+            last.dy = last.inc_y
+            ship_t.disp_t = ship_t.up_t
         elseif action == act.PLA_DOWN then
-            y = y + 1
-            ship_t = ship_dn_t
+            last.inc_y = last.inc_y + 1
+            y = y + last.dy + 1
+            if last.inc_y < 0 then
+                last.inc_y = 0
+            end
+            last.dy = last.inc_y
+            ship_t.disp_t = ship_t.dn_t
+        elseif action == act.PLA_SELECT_REPEAT then
+            rockev.suspend("timer", true)
+            if s_x < 10 and s_y < 10 then
+                s_x = last.sx + 1
+                s_y = last.sy + 1
+                last.sx = s_x
+                last.sy = s_y
+            end
         elseif action == act.PLA_SELECT then
-            z = z + 4
-            if z > 16 then z = 0 end
+            s_x = last.sx + 1
+            s_y = last.sy + 1
+            if s_x > 10 or s_y > 10 then
+                s_x = 1
+                s_y = 1
+            end
+            last.sx = s_x
+            last.sy = s_y
         elseif action == act.ACTION_NONE then
-            scale_x = 1
-            scale_y = 1
+            if fast.count > 100 then
+                z = (random(0, 400) / 100) * 4
+            end
+            fast.count = 0
+            fast.x = fast.inc_x
+            fast.y = fast.inc_y
+            s_x = last.sx
+            s_y = last.sy
+            backlight_on = turn_on_backlight
+            rb.backlight_use_settings()
+            if last.dx ~= 0 or last.dy ~= 0 then
+                rockev.suspend("timer", false)
+            else
+                last.inc_x = 0
+                last.inc_y = 0
+            end
         end
 
         _lcd:clear(BLACK)
-        for i = 0, z, 4 do
-            drawStars(_LCD, x, y, i+1, RED, scale_x, scale_y)
-            drawStars(_LCD, x, y, i+2, GREEN, scale_x, scale_y)
-            drawStars(_LCD, x, y, i+3, BLUE, scale_x, scale_y)
-            drawStars(_LCD, x, y, i+4, WHITE, scale_x, scale_y)
+       for i = 0, z, 4 do
+            drawStars(_LCD, draw_points, x, y, i+1, RED, s_x, s_y)
+            drawStars(_LCD, draw_points, x, y, i+2, GREEN, s_x, s_y)
+            drawStars(_LCD, draw_points, x, y, i+3, BLUE, s_x, s_y)
+            drawStars(_LCD, draw_points, x, y, i+4, WHITE, s_x, s_y)
+        end
+
+        local hit_t = {}
+        local SHIP_X, SHIP_Y = ship_t.x + 8, ship_t.y + 8 --center the ship coords
+        local function draw_asteroids(img, x, y, color, n, hash)
+            if n > 0 then
+                local x0, y0, w0, h0
+                x0,y0,w0,h0 = draw_astroid(img, x, y, hash, color, false, s_x, s_y)
+                --check bounds
+                if s_x == s_y and x0 <= SHIP_X and x0+w0 >= SHIP_X and y0+h0 >= SHIP_Y and y0 <= SHIP_Y then
+                    local r_t = {x = x0, y = y0, w = w0, h= h0, hash = hash, color = color}
+                    hit_t[#hit_t + 1] = r_t
+                end
+            end
         end
-        drawship(_LCD, ship_x, ship_y, BGREEN, ship_t)
-        _lcd:update()
 
-        last_action = action
+        drawStars(_LCD, draw_asteroids, x, y, 1, RED, s_x, s_y)
+        drawStars(_LCD, draw_asteroids, x, y, 2, GREEN, s_x, s_y)
+        drawStars(_LCD, draw_asteroids, x, y, 3, BLUE, s_x, s_y)
+        drawStars(_LCD, draw_asteroids, x, y, 4, WHITE, s_x, s_y)
+        if fast.count < 10 and last.dx == last.dy then
+            local seen = {} -- might have multiple hits but only show unique hashes
+            for i, v in ipairs(hit_t) do
+                    if i < 4 then
+                        draw_astroid(_LCD, v.x + v.w / 2, v.y + v.h / 2, v.hash, WHITE, v.color, s_x, s_y)
+                    end
+            end
+            for i, v in ipairs(hit_t) do
+                if not seen[v.hash] then
+                    rb.lcd_puts(0, (i - 1), string.format("[%x]", v.hash))
+                end
+                seen[v.hash] = i
+            end
+        end
+
+        drawship(_LCD, ship_t)
+        update_lcd()
+
+        --last_action = action
     end
 
     function action_set_quit(bQuit)
@@ -244,13 +402,22 @@ do
     end
 end
 
+if not rb.backlight_force_on then
+    rb.backlight_force_on = function() end
+end
+
+if not rb.backlight_use_settings then
+    rb.backlight_use_settings = function() end
+end
+
 action_event(rb.actions.ACTION_NONE) -- we can call this now but not after registering..
 local eva = rockev.register("action", action_event)
+local evc = rockev.register("timer", action_drift, rb.HZ/7)
 
 while not action_quit() do rb.sleep(rb.HZ) end
 
 if start_x and start_y then
     file = io.open(fname, "w")
-    file:write(start_x, "\n", start_y, "\n", start_z, "\n")
+    file:write(start_x, "\n", start_y, "\n", start_z or 0, "\n", scale_x or 1, "\n", scale_y or 1, "\n")
     io.close( file )
 end