GT_color_test.lua 1.0 KB

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