   	>                                                              ΐ?    """"""""""""""""""""""""""   !"233D433""""3C4#"3#!"!  !!"1"""2!13C#$$C242423"3" "  """"""""""""""""""""""""""  !"233D433""""3C4#"3"!"!!   "22!###"3BB2#C"C#"3#!3# !"!"""""""""""""""""""""""""""!"23CDD33""""3C3#"3! "  "!!!13#122"2$##4B#2#"3#!2# !""""""""""""""""""""""""""""""!"23CDD33""""333#"#"  !"2233""B33B"424"23!23 !""""""""""""""""""""""""""""""""!"23CDD33""""333"2#"  !3"3#2"3B2#C"C#23"23" !"""""""""""""""""""""""""""""""""!"23CDD43""""333"!2#"!!""!!13#1223"$$3B#B#"3#"3#!"" """""""""""""""""""""""""""""""""!"23CDD43""""333"!2"! !    "#3"D4BBB"424"3#"3#!""  !""""""""""""""""!"""""""""""""23CDD43""""333!2!  "!1#!3"33#3#$C"C"24!33!"""   """""""""""""""""""""""""""""23CDD43""""33#!" ! " "!#12#12"C"#32#C#23#!23"!"""   ""                      """"   ""23CDD43""""33#!""!  !!333###"3BB#424"C#23#!"""   !"""ΜΜ ΜΜ ΜΜΜ ΜΜΜΜΜΜΜΜΜΜΜ """"ΜΜΜ""23CDD43""""33#!"" !    "!"1123#"2$$$C"4"33"3#"""   """"ΜΜ ΜΜ  ΜΜΜ  ΜΜΜΜ  ΜΜΜΜΜΜΜ """ ΜΜΜ ""23CDD43""!"33#""  "132!"B2B2#C#24""33"""   !""""ΜΜΜΜΜ ΜΜ  Μ ΜΜ  Μ ΜΜ   ΜΜ """ΜΜ  Μ "!""233DD43"!"33"""!  "  !"2"!##3#32#42$"C#"33"""   !"""""ΜΜΜΜΜ ΜΜ Μ ΜΜΜ ΜΜ  ΜΜ """ΜΜ  Μ """"""33DD43""33"" !   !""!!!C4"$$C"4"C#"23""2"   !""""""ΜΜΜΜΜ ΜΜ Μ ΜΜΜ ΜΜΜΜ   """ ΜΜΜΜ """"""33DD43""33" "! "#12#!134BB2#C#24"23#"2#   !"""""""ΜΜΜΜΜ ΜΜ Μ ΜΜΜ ΜΜΜΜ     """"ΜΜΜΜ """"""33DD43""23""   "" "!311"##2$##42$24"23#"2#"   !"""""23Μ Μ Μ ΜΜ Μ ΜΜΜ ΜΜ     ΜΜ """2   Μ """"""33CD43""2#!"     !3133#"B#3B"4"C#"33"23"  !"""2333Μ Μ Μ ΜΜ  Μ ΜΜ  Μ ΜΜ     ΜΜ """3   Μ """"""23CD43""2# !"! "!#"133""3B2#C"C#"33""23"  """"3333Μ   Μ  ΜΜΜ  ΜΜΜΜ  ΜΜΜΜΜ   ΜΜ """3ΜΜΜ  """"""233D43""2# ! !!!"!"##3"$$4B#24"24#!23"  """"3333Μ03Μ0ΜΜΜ ΜΜΜΜ  ΜΜΜΜΜ   ΜΜ ""23ΜΜΜ03""""""233D33""2"! !  ""12!!3322B"424"23#!23# """  3333 03 0                      ""23   03#""""""33333"!2""!2!13$22#C"C#2C#!23# !"""   33333333333#""""           !""233333333""""""33333"!"""!"!"2""##2#$3B#C#"C3!23#!"""     333333333333""""           !""233333333#"""""23333"!""  !  "1!#33#"C2B2$24"34"!233"!"""      333333333333""""           ""2333333333"""""2333#"!""!    !!!3"332!"#3#3"4"24#!233"""""      333333333333#"""           """3333D4333""""""333#!"  ! "" "!1#"32#3B#C#2D#"233"""""      3CDDD4333333#""""            """333CDD333#"""""333#!" !   !""3#3#BB2$B$"C#""33"!""""      DDDDDD333333#""""           !""333CDDD33#"""""233#!" ! ! !""#2!223###424"C4""33#!""""      !"DDDDDDD333333""""           !""333CDDD333"""""233#!" ! "!!13133"2"3B"D"C4""33#!""""       !""DDDDDDD333333""""           !""233CDDD433""""""33#!" !! !"11"3#!3B2#C#24#"33#"""""      !"""DDDDDDD433333""""          !""233CDDDD33#""""23#!"" ! "!1"!""$#42$2D#"33#"""""      !"""3DDDDDDD433333""""          ""2333DDDD33#"!"23#!"   "!"11323B"4"C#"233"""3""      !"""23DDDDDDD433333"""""        """333DDDD43#"""3#!"!   ""22#33B2#C"C4"2C3"!"23#"      """"233DDDDDDD433333#""""      """333CDDD433"!"3#! !"211##2##$B#24"2C3"!"33#"     """""233DDDDDDD333333#"""" """2333DDDD33"!"2"! ! !!1!2"12222$24"2C3"!"33#"     !""""""""2DDDDDDD333333""""""!"""333CDDD33""""! !!  "13!!"22#4"D#"C4"""33#"    !""""""""""DDDDDD4333333""""""!"""2333DDD33""!""! !  "#2#3##$C"C#"C4#"233#"    """"""""""""DDDDD43333333"""""""!"""2333CDD33#"!"" ! " !321#3323B#C#"C4#""233#"   !"""""""""""""DDDD43333333#"""""""""""""3333CD33#""" !!""""21"3B2$24"34#""233#"  """""""""""""""DDD333333333"""""""""""""""""3333333#""" !  !!#"""##324"2D#""333#"""""""""""""!"""33333333333#"""""""""""""""""""""""""""""""23333333"!" !! """3#3"#B"C"2D#""333#"!"""""""33333333333"""""""""""""""""""""""""""""""""2333333" !" " "2"""33B2#C#2D#""333#"!"""""""3333333333"""""""""""""""""""""""""""""""""""333333" !" "! !#32"##$B#2D3""3C3#"!"""""""33333333#"""""""""""""""""""""""""""""""""""""33333" " " ! !!323!!#324"C3""3D3#"!"""""""3333333"""""""""""""""""""""""233""""""""""""""3333#"  "    !"!2!""#1B"4"C4""3D3#"!"""""""" "33333#"""""""""""""""""""""233333333""""""""""""233#"  "  ! """3#2#3"C4""3D3#!""""""""     ""333#""""""""""""""""""""""33333333333#"""""""""""23#" !!!3#!$B#C4"2CD3""""""""""        """3""""""""""""""""""""""""2333333333333#"""""""""""" ! 12""122#24"2CD3""""233"""         """"""""""""""!"""""""33333333333333#"""!"""""  ! !" !3"#1#22$24"2CD3"""""2333"""          """""""""""""!""""""333333333333333#""""""""  "   1!3"##424"2CD3""""23333"""           !""""23""""""!"""""333333CDDDD33333"""""""  "!"" "2!#3"4"2C4#""""33333""          !""""333"""""""""233333DDDDDD4333#""""" "  1#1!#31B"C#2C4#"""33333#""           """"23333""!""""233333DDDDDDD4333"""!"" " "!31!#32#C#2D4#""233333#"           !""""333333"!""""33333CDDDDDDD333#""!"" "  "!#1##C#2D4"""333333""          """"23333333      """"233333DDDDDDD4333#"  "" !!!"!""3#B#2D3""23CD33#""          !""""2333333DD         !""""333333DDDDDDD3333""   !" !!   "!#"222#2D3""33DD33""         """""333333CDDD           """"2333333CDDDD43333#""   " !! "!""11#2D#""3CD43#""     !""""2333333DDDDD             !""""23333333333333333""   !" !!!!12#"#24#"2CDD33""!"""""2333333DDDDDD              """""2333333333333333#""    "  !1###24""3CD43#""!""""""2333333DDDDDDD                !""""""33333333333333#"""   !""0!"2#23""3DD33"""!""""""""2333333CDDDDDDD                """""""""3333333333#""""   "!!!#2#"2CD33"""""""""""""""""""""""""""""3333333CDDDDDDD                !""""""""""""""""""""""""  !"3"2#"3D43""""""""""""""""""""""""""""""233333333DDDDDDD                !""""""""""""""""""""""""""  ""!12#"C43""""""""33333"""""""""""""""""""2333333333DDDD33                !"""""""""""""""""" "1"#21243"""""23333333333#""""""""""""""""""333333333333333              """""""""""""" !2#21!33""""23333333333333"""""""""""""""""""233333333333333             !"""""""""""     """" "!13""""333DDDDD333333#"""""""!""""""""23333333333333           """"""""""""""         !"" !32!"33CDDDDDD433333#"""""""""""""2333333333333        """""""""""""""""           !""1"!23CDDDDD43333333""""""!"""""""3333333333# """""""""""""""""""""           2333333333333333"""""""!""""""""333333"""!""""""2333333333#"""""""!""""!"2#"""""""""""""""      !""""""""""""""""!""""""333333333333333#"""""""""""""""""!!!33#""""""""""""            """"""""""""""""!""""""33333333333333333333"""""""""" "!1!32!33333"""""""               """""""""""""""!""""""23333333CDDDD433333333#""""""   ! !2!3"3DD4333"""""               """""""""""""""!"""""""3333333DDDDDDDDD333333#""""   !"! !1"2#!23DDD4333#"""               !""""""""""""""!""""""""2333333DDDDDDDDDD433333"""     " ! "33!#23""23CDDD3333"""               !""""""""""""""""""""""""2333333DDDDDDDDDD33333"""     !" " """#!3#""23CDDD4333"""              """""""""""""""""""""""2333333CDDDDDDDD33333#""     !"" !223"C3"""233DDD3333"""           !"""""""""""""""""""""""33333333DDDDD433333#"""     "" """3"2D3"""2333333333"""       """"""""""""""""""""""233333333333333333#"""   "" ""1#2"2C4#"""233333333#"""!"""""""""""""""""""""""2333333333333333#""""""  !1"22#"CD3"""""33333333""""""""""""""""""""""""""""""3333333333333#"""""""  ! "22##B#"3D4#""""""33333#""""""!"""""""""""""""""""""""""""""2333333333""""""!""""  !  "#"#"#2#"2DD3""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""  ! " !!!3!#32#24"2CD4#""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""!""""""""  " !!"#"11#24""3D43""!"""""""""""""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""""  " !!#2222#24""3DD3#"!""""""""""""""""""""""233333333#""""""!"""""""""""""""""""""33#""  " !! "1!"#B#24#"2CD43""!""""""""""""""""2333333333333#"""""""""""""""""""""23333#"  " !   222#B#2D#"23D43#"!"""""""""""3333333333333333"""""""""""""""""333333#"  !" ! """"##C#2D#""3CD3#""""""""""333333333333333333"""""""""""""33333333#"  !" !!1!#32#C#2D3""23333"   """""""3333333333333333333#""""  !""""""333333333#" ""   "!!"1"##12"C#2D3""23333#"     """""23333333333333333333#"""""    !"""""3333333333"" ""  ! !#12#22B"C"2D3"""3333#"      !""""23333333DDDDD43333333"""""     !""""33333CD4333"!"" "! ""23"#3"4"2D4"""23333"       """"2333333DDDDDDD4333333#""""     !"""23333CDDD333"!"" " """3#!##324"2C4#"""3333""        !"""233333CDDDDDDDD333333#"""""    !"""3333CDDDD33#"""" "  " 33"3#2"$24"2C4#"""2333""        """"33333DDDDDDDDD433333#"""""   """"3333DDDDD33#"!""" " "!""2B2$24"2C4#"!""333#"        !"""33333DDDDDDDDD4333333"""""  """2333CDDDD433""!""" ! ! ""!!3133"32#24"2C4#"""233#"         !"""23333CDDDDDDDD4333333"""""" """3333DDDDD433"""""" ! !   "#!2"$$B#24"2C4#"!""23#""        """23333CDDDDDDDD4333333""""""!"""333CDDDDD333""!"""" ! !  "1"#""###C#C4""C43"!""""""        """"33333DDDDDDDD3333333"""""""!""2333CDDDD433#""""2#" !  ""111323B2#C"C4""343"""""""        !"""33333CDDDDDD4333333#""""""""""2333CDDDD333#""!""33" !"   12#!!22B"4"C4""343"!""""""        !"""233333CDDDD43333333#""""""""""2333CDDD4333"""!""233" !""!!3#123#$324"C4""333"""""""       """"3333333C4333333333"""""""""""23333DDD3333"""""""333"!" ! "!! #2!2"##$24"C3""333"!"""""       """"33333333333333333#""""""""""23333333333#"""""""333"!" !!   "3"#"!3B2$B#"C3""333"""""""     !"""23333333333333333""""""""""23333333333"""""""2333"!"   2""32322B#C#2C3""333"!"""""    !""""333333333333333#"""""""""2333333333#"""""""3333"!"  !    22"""#$C"C#2D#""233""""""!""""23333333333333#""""""""""333333333"""""""23333"!""  "!"232$##3"D#2D#""233" """""!"""""233333333333""""""""""""3333333#"""""""23333#!""!  "!""2#"2!3#BB"424"2D#"233"  !"""""!""""""233333333""""""""""""""33333#""""""""33333#!"" ! !"!!111#"2222$24"2D#!233"  """"""!""""""""2333#""""""""""""""""333"""""""""233333#!"" ! !   3#"33#$4B#B4"24#!"33"   !"""""""""""""""""""""""""""""""""""""""""""""""233C43#!"" "  !   #13#3#3#$C#C#"34#!"33"   !"""""""!""""""""""""""""""""""""""""""""""""""""333D43#"!"# """3##!BBB#4"C#"34#!"33"    """""""""""""""""""""""""""""""""""""""""""""""""""33CDD3#"!"#" "   """!!33C"#B24"C#"33#"23"    !""""""""""""""""""""""""""""""""""""""""""""""""33CDD3#"!"3"! !! !"!#"#3"$$42$2D#"33""23"    !"""""""""""""""""""""""""""""""""""!"""233DDD3#"!23"!"  "2!#1""32"$B#24""33"""#"     !""""""""""""""""""""""""""""!""""""233DDD3#""23" !"      "!!1#332BB#C#24""33"""""     """""""""""""""""""""""""""""!""233DDD33""23#!""! !!"12#!"3"#$B"4"C4""33"!"""     """""2#"""""""""""""""""!""!""233DDD33""23#" !  !!"!!#3333"$##324"C3"233!"""    """"333333"""""""""""""!""""23CDDD33""!"233" !  ""33#"134BB"$2$"C#"233!"""     !"""33333333"""""""""""""23CDDD33""""233"""" !!"31!31#2332#C#2C#!23#"""     !""2333333333#"""""""""33CDDD33""""233"!""    !3#1"2$$$B"C#24#!23#"""     !""23333333333"""""""  ""3CDDD33""""233#!" !   !31#323$22#3"4"24"!23#""""     !""233333333333""""""      !"CDDD33""""233#!"! " !"""23!2#B2B"424"34!23#!"""     !""233333333333#"""""         !"DDD33""""233#!"""!   !!"#!!33#"2#$32#24"33!23#!"""     !""2333333333333"""""          !"D433""""2333""#" !"!"2!"33$3#$B#C#"3#!23"!"""     ""2333333333333#""""           !"433""""2333""# !" "2223#BB2#C"C#"3#!23"  !"""    ""23333DD333333#""""            !"33""""2333""3!" !!" !"!#33#"2#3B"4"4"23#!23"  """    ""2333CDDD433333""""            !"3""""2333#"3""  ""1#111##2#$$42$24"23"!2#"  """    ""2333DDDDD33333""""            !"""""23C3#!2#"     ! "#32!2D#BB2$B#24"23"!2#  """    ""2333DDDDD43333""""            !""""23C43"!2#! !!! !!"!#133""B23B#C"C#"33!2#  """   ""2333DDDDD43333#"""             !"""23C43"!23!"! "1"1"2#$$C"4"C#!33!2"  !""   ""2333DDDDDD3333#"""             !""23CD3"!23""  "! !"#"23BC#32#42$24""3#"""  !"""  ""2333DDDDDD3333#"""             !"23CD3#!"3#""!!" "13""2#B2B2$B#24"3#"""  !""" ""2333DDDDDD4333#"""             !"3CD3#"3#""!   !! 233"3#"2#$3B#C"2323#"""  !"""""2333DDDDDD4333#"""             !"CD4#""33!"    2#"##3C#3#$3"4"C#23""""  !"""""2333DDDDDD4333#"""             !"D43""23"!""!   "11##3#BBB"42$"3#!23"""  !""""""2333CDDDDD4333#"""             !"43""23#" ! !    "  1"2"##"B##32#B#23!2#"""    !"""""""333CDDDDD4333#"""            !"3"""23#"#! ! !3!#2#2#3###$B"C#23!3#"""    !"""""""3333DDDDD3333#"""           !" -- title: color art-3
-- author: potato imaginator
-- desc: Press Left / Right to change modes
-- script: lua

t=0 -- time
cos=math.cos
sin=math.sin
tan=math.tan
log=math.log
atan2=math.atan2
sinh=math.sinh
cosh=math.cosh
sqrt=math.sqrt
pi=math.pi
m=0 -- mode
max=10

function TIC()
 cls()
 for i=-120,120 do
  for j=-68,68 do
   if m==0 then
    c=i*i-j*j
    pix(120+i,68+j,c/(2^10)-t)
   elseif m==1 then
    c=(i*i-j*j)/1024+8*cos(j/32)
      +tan(j^2/i)/16
    pix(120+i,68+j,c-t)
   elseif m==2 then -- change sin(j/8)
    c=i/(1+math.abs(j))+sin(j/8)
    pix(120+i,68+j,c-t)
   elseif m==3 then
    c=i/(1+math.abs(j))+j/10
    pix(120+i,68+j,c-t)
   elseif m==4 then
    c=i/(1+math.abs(j))
      +sin(i/10)+sin(j/10)
    pix(120+i,68+j,c-t)
   elseif m==5 then
    c=atan2(j,i)*8/pi
      +sin(i/10)+sin(j/10)
    pix(120+i,68+j,c-t-8)
   elseif m==6 then
    local 
    z={[0]=0,8,9,10,11,12,11,10,9,8}
    c=atan2(j,i)*10/pi
      +sin(i/10)+sin(j/10)
    pix(120+i,68+j,z[((c-t)//1-10)%10])
   elseif m==7 then
    local 
    z={[0]=0,1,2,3,4,12,4,3,2,1}
    c=atan2(j,i)*10/pi
      +sin(i/10)+sin(j/10)
    pix(120+i,68+j,z[((c-t)//1-10)%10])
   elseif m==8 then
    local z
    ={[0]=8,9,10,11,12,4,3,2,1,0}
    c=atan2(j,i)*10/pi
      +sin(i/10)+sin(j/10)
    pix(120+i,68+j,z[((c-t)//1-8)%10])
   elseif m==9 then
    x=i*cos(t/4)+j*sin(t/4)
    y=i*sin(t/4)-j*cos(t/4)
    c=sin((10*x)/(y+1))+sin(y/10)
    pix(120+i,68+j,c+t/4)
			end
  end
 end
 
 if btnp(2) then
  t=0
  m=(m-1)%max
 elseif btnp(3) then
  t=0
  m=(m+1)%max
 end

 for i=-1,1 do
  for j=-1,1 do
   print
   ('MODE : '..m,10+i,10+j,0,false,2)
  end
 end
  
 print('MODE : '..m,10,10,12,false,2)
 t=t+1/8
end
