GT_color_test.lua 997 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445
  1. -- luacheck: globals T r disp millis lcg_rnd
  2. local M, module = {}, ...
  3. _G[module] = M
  4. function M.run()
  5. -- make this a volatile module:
  6. package.loaded[module] = nil
  7. print("Running component color_test...")
  8. local c, x
  9. disp:setColor(0, 0, 0, 0)
  10. disp:drawBox(0, 0, disp:getWidth(), disp:getHeight())
  11. disp:setColor(255, 255, 255)
  12. disp:setPrintPos(2,18)
  13. disp:setPrintDir(0)
  14. disp:print("Color Test")
  15. disp:setColor(0, 127, 127, 127)
  16. disp:drawBox(0, 20, 16*4+4, 5*8+4)
  17. c = 0
  18. x = 2
  19. while c < 255 do
  20. disp:setColor(0, c, c, c)
  21. disp:drawBox(x, 22, 4, 8)
  22. disp:setColor(0, c, 0, 0)
  23. disp:drawBox(x, 22+8, 4, 8)
  24. disp:setColor(0, 0, c, 0)
  25. disp:drawBox(x, 22+2*8, 4, 8)
  26. disp:setColor(0, 0, 0, c)
  27. disp:drawBox(x, 22+3*8, 4, 8)
  28. disp:setColor(0, c, 255-c, 0)
  29. disp:drawBox(x, 22+4*8, 4, 8)
  30. c = c + 17
  31. x = x + 4
  32. end
  33. print("...done")
  34. end
  35. return M