GT_clip.lua 2.1 KB

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