GT_clip.lua 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990
  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 clip...")
  8. disp:setColor(0, 0x00, 0xd1, 0x5e) -- dark green
  9. disp:setColor(1, 0xff, 0xf7, 0x61) -- yellow
  10. disp:setColor(2, 0xd1, 0xc7, 0x00) -- dark yellow
  11. disp:setColor(3, 0x61, 0xff, 0xa8) -- green
  12. disp:drawGradientBox(0, 0, disp:getWidth(), disp:getHeight())
  13. disp:setColor(255, 255, 255)
  14. disp:setPrintPos(2,18)
  15. disp:setPrintDir(0)
  16. disp:print("ClipRange")
  17. disp:setColor(0xd1, 0x00, 0x073)
  18. disp:setFont(ucg.font_helvB18_hr)
  19. disp:setPrintPos(25,45)
  20. disp:setPrintDir(0)
  21. disp:print("Ucg")
  22. disp:setPrintDir(1)
  23. disp:print("Ucg")
  24. disp:setPrintDir(2)
  25. disp:print("Ucg")
  26. disp:setPrintDir(3)
  27. disp:print("Ucg")
  28. disp:setMaxClipRange()
  29. disp:setColor(0xff, 0xff, 0xff)
  30. disp:drawFrame(20-1,30-1,15+2,20+2)
  31. disp:setClipRange(20, 30, 15, 20)
  32. disp:setColor(0xff, 0x61, 0x0b8)
  33. disp:setPrintPos(25,45)
  34. disp:setPrintDir(0)
  35. disp:print("Ucg")
  36. disp:setPrintDir(1)
  37. disp:print("Ucg")
  38. disp:setPrintDir(2)
  39. disp:print("Ucg")
  40. disp:setPrintDir(3)
  41. disp:print("Ucg")
  42. disp:setMaxClipRange()
  43. disp:setColor(0xff, 0xff, 0xff)
  44. disp:drawFrame(60-1,35-1,25+2,18+2)
  45. disp:setClipRange(60, 35, 25, 18)
  46. disp:setColor(0xff, 0x61, 0x0b8)
  47. disp:setPrintPos(25,45)
  48. disp:setPrintDir(0)
  49. disp:print("Ucg")
  50. disp:setPrintDir(1)
  51. disp:print("Ucg")
  52. disp:setPrintDir(2)
  53. disp:print("Ucg")
  54. disp:setPrintDir(3)
  55. disp:print("Ucg")
  56. disp:setMaxClipRange()
  57. disp:setColor(0xff, 0xff, 0xff)
  58. disp:drawFrame(7-1,58-1,90+2,4+2)
  59. disp:setClipRange(7, 58, 90, 4)
  60. disp:setColor(0xff, 0x61, 0x0b8)
  61. disp:setPrintPos(25,45)
  62. disp:setPrintDir(0)
  63. disp:print("Ucg")
  64. disp:setPrintDir(1)
  65. disp:print("Ucg")
  66. disp:setPrintDir(2)
  67. disp:print("Ucg")
  68. disp:setPrintDir(3)
  69. disp:print("Ucg")
  70. disp:setFont(ucg.font_ncenR14_hr)
  71. disp:setMaxClipRange()
  72. print("...done")
  73. end
  74. return M