123456789101112131415161718192021222324252627282930313233343536373839404142 |
- -- luacheck: globals T r disp millis lcg_rnd
- local M, module = {}, ...
- _G[module] = M
- function M.run()
- -- make this a volatile module:
- package.loaded[module] = nil
- print("Running component box...")
- local x, y, w, h
- local m
- disp:setColor(0, 0, 40, 80)
- disp:setColor(1, 60, 0, 40)
- disp:setColor(2, 128, 0, 140)
- disp:setColor(3, 0, 128, 140)
- disp:drawGradientBox(0, 0, disp:getWidth(), disp:getHeight())
- disp:setColor(255, 255, 255)
- disp:setPrintPos(2,18)
- disp:setPrintDir(0)
- disp:print("Box")
- m = millis() + T
- while millis() < m do
- disp:setColor(bit.band(lcg_rnd(), 127)+127, bit.band(lcg_rnd(), 127)+64, bit.band(lcg_rnd(), 31))
- w = bit.band(lcg_rnd(), 31)
- h = bit.band(lcg_rnd(), 31)
- w = w + 10
- h = h + 10
- x = bit.rshift(lcg_rnd() * (disp:getWidth()-w), 8)
- y = bit.rshift(lcg_rnd() * (disp:getHeight()-h-20), 8)
- disp:drawBox(x, y+20, w, h)
- end
- print("...done")
- end
- return M
|