IR.INIT 13
tft.fill 0

TFT.RECT 0, 0, 120, 160, tft.color(WHITE)
TFT.RECT 120, 0, 120, 160, tft.color(WHITE)
TFT.RECT 0, 160, 120, 160, tft.color(WHITE)
TFT.RECT 120, 160, 120, 160, tft.color(WHITE)

color1 = 0
color2 = 0
color3 = 0
color4 = 0 

AREA1 = 12
AREA2 = 25
AREA3 = 35
AREA4 = 26
pin.mode AREA1, output
pin.mode AREA2, output
pin.mode AREA3, output
pin.mode AREA4, output

area1_movement = 0
area2_movement = 0
area3_movement = 0
area4_movement = 0

while 1
  ONINFRARED irReceived 
  area1_movement = pin(AREA1)
  area2_movement = pin(AREA2)
  area3_movement = pin(AREA3)
  area4_movement = pin(AREA4)

  if area1_movement = 1 AND color1 = 1 then
    TFT.RECT 0, 0, 120, 160, tft.color(RED), 1
    color1 = 3
  elseif area1_movement = 0 AND color1 = 3 then
    TFT.RECT 0, 0, 120, 160, tft.color(GREEN), 1
    color1 = 1
  endif

  if area2_movement = 1 AND color2 = 1 then
    TFT.RECT 120, 0, 120, 160, tft.color(RED), 1
    color2 = 3
  elseif area2_movement = 0 AND color2 = 3 then
    TFT.RECT 120, 0, 120, 160, tft.color(GREEN), 1
    color2 = 1
  endif

  if area3_movement = 1 AND color3 = 1 then
    TFT.RECT 0, 160, 120, 160, tft.color(RED), 1
    color3 = 3
  elseif area3_movement = 0 AND color3 = 3 then
    TFT.RECT 0, 160, 120, 160, tft.color(GREEN), 1
    color3 = 1
  endif

  if area4_movement = 1 AND color4 = 1 then
    TFT.RECT 120, 160, 120, 160, tft.color(RED), 1
    color4 = 3
  elseif area4_movement = 0 AND color4 = 3 then
    TFT.RECT 120, 160, 120, 160, tft.color(GREEN), 1
    color4 = 1
  endif

wend


irReceived:
  key$ = IR.GET$
  PRINT key$
  PRINT val(key$)

  if key$ = "FF0CF3" then
    gosub changeColor1
  elseif key$ = "FF18E7" then
    gosub changeColor2
  elseif key$ = "FF5EA1" then
    gosub changeColor3
  elseif key$ = "FF08F7" then
    gosub changeColor4
  endif
RETURN 

changeColor1:
  print "CHANGE COLOR"
  if color1 = 0  or color1 = 2 then
    color1 = 1
    TFT.RECT 0, 0, 120, 160, tft.color(GREEN), 1
  elseif color1 = 1 or color1 = 3 then
    color1 = 2
    TFT.RECT 0, 0, 120, 160, tft.color(YELLOW), 1
  endif
RETURN

changeColor2:
  if color2 = 0  or color2 = 2 then
    color2 = 1
    TFT.RECT 120, 0, 120, 160, tft.color(GREEN), 1
  elseif color2 = 1 or color2 = 3 then
    color2 = 2
    TFT.RECT 120, 0, 120, 160, tft.color(YELLOW), 1
   endif

RETURN

changeColor3:
  if color3 = 0  or color3 = 2 then
    color3 = 1
    TFT.RECT 0, 160, 120, 158, tft.color(GREEN), 1
  elseif color3 = 1 or color3 = 3 then
    color3 = 2
    TFT.RECT 0, 158, 120, 158, tft.color(YELLOW), 1
  endif

RETURN

changeColor4:
  if color4 = 0  or color4 = 2 then
    color4 = 1
    TFT.RECT 120, 160, 120, 160, tft.color(GREEN), 1
  elseif color4 = 1 or color4 = 3 then
    color4 = 2
    TFT.RECT 120, 160, 120, 160, tft.color(YELLOW), 1
  endif

RETURN