t=0
abs=math.abs

drawList={
 {
  {t=0,b=0,x=0,y=0,w=240,h=136,c=0},
  {t=0,b=0,x=18,y=48,w=5,h=77,c=8},
  {t=0,b=0,x=21,y=92,w=172,h=16,c=8},
  {t=0,b=0,x=192,y=98,w=5,h=24,c=8},
  {t=2,b=0,x=35,y=85,w=12,h=4,c=11},
  {t=2,b=0,x=34,y=87,w=12,h=5,c=11},
  {t=2,b=0,x=42,y=74,w=9,h=8,c=4},
  {t=4,b=0,x=45,y=72,w=0,h=-6,c=12},
  {t=4,b=0,x=42,y=73,w=-2,h=-5,c=12},
  {t=4,b=0,x=40,y=72,w=-3,h=-3,c=12},
  {t=4,b=0,x=44,y=67,w=-2,h=-3,c=8},
  {t=0,b=0,x=33,y=65,w=5,h=6,c=4},
  {t=0,b=0,x=51,y=71,w=134,h=34,c=6},
  {t=2,b=0,x=55,y=84,w=9,h=13,c=6},
  {t=0,b=0,x=106,y=11,w=74,h=53,c=15},
  {t=0,b=0,x=140,y=9,w=6,h=57,c=0},
  {t=0,b=0,x=99,y=36,w=91,h=4,c=0},
  {t=2,b=0,x=121,y=23,w=9,h=9,c=12},
  {t=2,b=0,x=114,y=23,w=7,h=10,c=15},
  {t=4,b=0,x=50,y=58,w=5,h=-1,c=10},
  {t=4,b=0,x=55,y=59,w=-4,h=-4,c=10},
  {t=4,b=0,x=52,y=63,w=3,h=0,c=10},
  {t=4,b=0,x=59,y=51,w=5,h=0,c=10},
  {t=4,b=0,x=64,y=51,w=-4,h=-5,c=10},
  {t=4,b=0,x=60,y=56,w=5,h=0,c=10},
  {t=4,b=0,x=69,y=45,w=6,h=-1,c=10},
  {t=4,b=0,x=75,y=46,w=-6,h=-5,c=10},
  {t=4,b=0,x=70,y=51,w=6,h=-1,c=10},
 },
	{
  {t=4,b=0,x=130,y=0,w=-43,h=-136,c=12},
  {t=2,b=0,x=175,y=70,w=42,h=30,c=3},
  {t=3,b=0,x=196,y=45,w=19,h=19,c=3},
  {t=3,b=0,x=155,y=46,w=19,h=19,c=3},
  {t=3,b=0,x=195,y=49,w=12,h=16,c=4},
  {t=3,b=0,x=155,y=49,w=12,h=15,c=4},
  {t=2,b=0,x=175,y=64,w=35,h=19,c=4},
  {t=2,b=0,x=174,y=67,w=11,h=12,c=2},
  {t=0,b=0,x=160,y=70,w=27,h=10,c=4},
  {t=2,b=0,x=194,y=56,w=5,h=10,c=12},
  {t=2,b=0,x=156,y=56,w=5,h=10,c=12},
  {t=2,b=0,x=156,y=52,w=3,h=3,c=15},
  {t=2,b=0,x=195,y=52,w=4,h=3,c=15},
  {t=0,b=0,x=16,y=31,w=62,h=99,c=13},
  {t=1,b=0,x=46,y=100,w=25,h=19,c=15},
  {t=1,b=0,x=46,y=52,w=9,h=7,c=15},
  {t=1,b=1,x=47,y=52,w=6,h=4,c=13},
  {t=1,b=1,x=47,y=100,w=20,h=9,c=13},
  {t=4,b=0,x=69,y=78,w=14,h=20,c=11},
  {t=4,b=0,x=84,y=59,w=3,h=-12,c=11},
  {t=4,b=0,x=89,y=72,w=19,h=16,c=11},
  {t=4,b=0,x=76,y=94,w=11,h=7,c=11},
  {t=4,b=0,x=87,y=88,w=6,h=-5,c=11},
  {t=4,b=0,x=94,y=93,w=7,h=3,c=11},
  {t=4,b=0,x=73,y=112,w=9,h=-2,c=11},
  {t=4,b=0,x=82,y=114,w=-10,h=-12,c=11},
  {t=4,b=0,x=74,y=126,w=10,h=-4,c=11},
  {t=4,b=0,x=26,y=78,w=-16,h=16,c=11},
  {t=4,b=0,x=11,y=62,w=15,h=0,c=11},
  {t=4,b=0,x=25,y=61,w=-19,h=25,c=11},
  {t=2,b=1,x=48,y=100,w=6,h=5,c=14},
  {t=2,b=0,x=174,y=127,w=42,h=40,c=3},
  {t=2,b=0,x=209,y=103,w=25,h=6,c=3},
  {t=2,b=0,x=230,y=68,w=8,h=36,c=3},
  {t=2,b=0,x=118,y=107,w=21,h=8,c=3},
  {t=2,b=0,x=107,y=66,w=11,h=41,c=3},
 },
 {
  {t=2,b=0,x=113,y=55,w=61,h=41,c=3},
  {t=3,b=0,x=75,y=27,w=22,h=21,c=3},
  {t=3,b=0,x=154,y=28,w=20,h=23,c=3},
  {t=3,b=0,x=152,y=31,w=15,h=17,c=4},
  {t=3,b=0,x=74,y=27,w=11,h=15,c=4},
  {t=2,b=0,x=110,y=51,w=55,h=31,c=4},
  {t=2,b=0,x=97,y=57,w=16,h=8,c=4},
  {t=2,b=0,x=94,y=54,w=12,h=10,c=3},
  {t=2,b=0,x=119,y=55,w=13,h=11,c=3},
  {t=2,b=0,x=119,y=51,w=13,h=9,c=4},
  {t=2,b=0,x=94,y=48,w=12,h=8,c=4},
  {t=2,b=0,x=106,y=48,w=4,h=5,c=15},
  {t=2,b=0,x=126,y=38,w=14,h=11,c=12},
  {t=2,b=0,x=86,y=36,w=14,h=11,c=12},
  {t=2,b=0,x=125,y=44,w=5,h=4,c=15},
  {t=2,b=0,x=90,y=42,w=6,h=5,c=15},
  {t=0,b=0,x=109,y=62,w=7,h=10,c=2},
  {t=2,b=0,x=112,y=71,w=4,h=3,c=2},
  {t=4,b=0,x=127,y=52,w=29,h=0,c=12},
  {t=4,b=0,x=127,y=56,w=22,h=-7,c=12},
  {t=4,b=0,x=86,y=52,w=-23,h=-1,c=12},
  {t=4,b=0,x=90,y=56,w=-19,h=-4,c=12},
  {t=2,b=0,x=107,y=112,w=71,h=25,c=3},
  {t=2,b=0,x=47,y=126,w=18,h=19,c=3},
  {t=2,b=0,x=174,y=124,w=16,h=12,c=3},
  {t=0,b=0,x=-2,y=126,w=246,h=11,c=9},
  {t=2,b=0,x=111,y=115,w=28,h=12,c=13},
  {t=2,b=0,x=147,y=107,w=12,h=7,c=13},
  {t=3,b=0,x=147,y=101,w=8,h=8,c=13},
  {t=3,b=0,x=158,y=110,w=8,h=5,c=13},
  {t=1,b=0,x=153,y=105,w=3,h=2,c=12},
  {t=1,b=0,x=152,y=104,w=1,h=1,c=15},
  {t=2,b=0,x=128,y=124,w=15,h=4,c=13},
  {t=2,b=0,x=93,y=125,w=8,h=4,c=13},
 },
 {
  {t=1,b=0,x=196,y=33,w=4,h=1,c=11},
  {t=1,b=0,x=61,y=45,w=4,h=2,c=11},
  {t=1,b=0,x=104,y=83,w=4,h=4,c=11},
  {t=1,b=0,x=195,y=94,w=5,h=4,c=11},
  {t=1,b=0,x=119,y=22,w=4,h=4,c=11},
  {t=1,b=0,x=22,y=18,w=3,h=2,c=11},
  {t=1,b=0,x=33,y=102,w=4,h=2,c=11},
  {t=1,b=0,x=218,y=51,w=10,h=7,c=9},
  {t=1,b=0,x=131,y=45,w=8,h=6,c=9},
  {t=1,b=0,x=76,y=16,w=9,h=7,c=9},
  {t=1,b=0,x=26,y=59,w=8,h=5,c=9},
  {t=1,b=0,x=64,y=92,w=9,h=7,c=9},
  {t=1,b=0,x=161,y=102,w=7,h=8,c=9},
  {t=1,b=0,x=227,y=120,w=9,h=1,c=9},
  {t=1,b=0,x=161,y=20,w=14,h=14,c=8},
  {t=1,b=0,x=167,y=66,w=15,h=10,c=8},
  {t=1,b=0,x=114,y=113,w=16,h=5,c=8},
  {t=1,b=0,x=87,y=54,w=14,h=10,c=8},
  {t=4,b=0,x=240,y=5,w=-242,h=-42,c=5},
  {t=4,b=0,x=242,y=10,w=-249,h=-59,c=5},
  {t=4,b=0,x=230,y=22,w=-237,h=-67,c=5},
  {t=4,b=0,x=14,y=-1,w=77,h=-137,c=3},
  {t=4,b=0,x=19,y=-1,w=102,h=-138,c=3},
  {t=4,b=0,x=35,y=0,w=139,h=-137,c=3},
  {t=4,b=0,x=241,y=116,w=-195,h=113,c=10},
  {t=4,b=0,x=241,y=124,w=-247,h=87,c=10},
  {t=2,b=0,x=91,y=58,w=57,h=42,c=3},
  {t=3,b=0,x=124,y=27,w=21,h=21,c=3},
  {t=3,b=0,x=52,y=28,w=16,h=19,c=3},
  {t=3,b=0,x=50,y=31,w=10,h=14,c=4},
  {t=3,b=0,x=125,y=24,w=8,h=12,c=4},
  {t=2,b=0,x=90,y=54,w=52,h=34,c=4},
  {t=2,b=0,x=88,y=69,w=10,h=8,c=3},
  {t=2,b=0,x=101,y=59,w=13,h=9,c=3},
  {t=2,b=0,x=75,y=58,w=14,h=9,c=3},
  {t=2,b=0,x=74,y=51,w=14,h=9,c=4},
  {t=2,b=0,x=103,y=54,w=17,h=7,c=4},
  {t=2,b=0,x=82,y=66,w=1,h=6,c=12},
  {t=2,b=0,x=94,y=66,w=1,h=4,c=12},
  {t=0,b=0,x=80,y=60,w=10,h=6,c=3},
  {t=0,b=0,x=92,y=62,w=5,h=3,c=3},
  {t=1,b=0,x=102,y=44,w=12,h=12,c=12},
  {t=1,b=0,x=73,y=43,w=13,h=13,c=12},
  {t=1,b=0,x=102,y=44,w=11,h=1,c=0},
  {t=1,b=0,x=73,y=43,w=12,h=1,c=0},
  {t=4,b=0,x=121,y=58,w=34,h=5,c=12},
  {t=4,b=0,x=124,y=62,w=26,h=-2,c=12},
  {t=4,b=0,x=124,y=69,w=23,h=-5,c=12},
  {t=4,b=0,x=54,y=56,w=-25,h=5,c=12},
  {t=4,b=0,x=50,y=63,w=-25,h=-1,c=12},
  {t=4,b=0,x=49,y=70,w=-24,h=-6,c=12},
  {t=2,b=0,x=85,y=134,w=56,h=40,c=3},
  {t=2,b=0,x=148,y=111,w=46,h=11,c=3},
  {t=2,b=0,x=185,y=65,w=12,h=45,c=3},
  {t=2,b=0,x=186,y=23,w=15,h=12,c=3},
  {t=2,b=0,x=175,y=13,w=6,h=4,c=3},
  {t=2,b=0,x=184,y=9,w=6,h=4,c=3},
  {t=2,b=0,x=196,y=11,w=6,h=5,c=3},
  {t=2,b=0,x=176,y=13,w=3,h=3,c=15},
  {t=2,b=0,x=184,y=10,w=4,h=3,c=15},
  {t=2,b=0,x=196,y=11,w=4,h=3,c=15},
  {t=2,b=0,x=186,y=25,w=5,h=3,c=15},
 },
 {
  {t=2,b=0,x=56,y=56,w=41,h=36,c=3},
  {t=2,b=0,x=41,y=135,w=36,h=53,c=3},
  {t=2,b=0,x=91,y=74,w=10,h=9,c=3},
  {t=2,b=0,x=98,y=63,w=5,h=8,c=3},
  {t=2,b=0,x=100,y=71,w=4,h=6,c=3},
  {t=2,b=0,x=44,y=31,w=11,h=27,c=3},
  {t=2,b=0,x=47,y=30,w=0,h=8,c=3},
  {t=2,b=0,x=47,y=22,w=4,h=11,c=3},
  {t=2,b=0,x=47,y=28,w=4,h=19,c=4},
  {t=0,b=0,x=41,y=24,w=20,h=32,c=3},
  {t=4,b=0,x=104,y=74,w=-16,h=0,c=15},
  {t=4,b=0,x=87,y=73,w=-3,h=2,c=15},
  {t=4,b=0,x=84,y=71,w=-1,h=6,c=15},
  {t=0,b=0,x=93,y=75,w=7,h=29,c=2},
  {t=2,b=0,x=96,y=104,w=3,h=3,c=2},
  {t=2,b=0,x=85,y=45,w=6,h=11,c=12},
  {t=1,b=0,x=89,y=45,w=7,h=7,c=15},
  {t=4,b=0,x=89,y=64,w=-31,h=-2,c=12},
  {t=4,b=0,x=87,y=71,w=-20,h=-9,c=12},
  {t=4,b=0,x=93,y=71,w=-18,h=-14,c=12},
  {t=4,b=0,x=93,y=68,w=-26,h=-3,c=12},
  {t=1,b=0,x=143,y=65,w=7,h=6,c=3},
  {t=1,b=0,x=160,y=65,w=10,h=7,c=3},
  {t=1,b=0,x=178,y=66,w=9,h=6,c=3},
  {t=1,b=0,x=150,y=93,w=7,h=4,c=3},
  {t=1,b=0,x=158,y=79,w=16,h=4,c=3},
  {t=2,b=0,x=156,y=133,w=22,h=41,c=3},
  {t=2,b=0,x=66,y=103,w=1,h=4,c=3},
  {t=2,b=0,x=70,y=112,w=18,h=10,c=3},
  {t=2,b=0,x=89,y=121,w=15,h=10,c=3},
  {t=2,b=0,x=108,y=127,w=13,h=10,c=3},
  {t=2,b=0,x=127,y=131,w=12,h=8,c=3},
  {t=2,b=0,x=157,y=78,w=35,h=13,c=4},
  {t=0,b=0,x=120,y=75,w=81,h=8,c=0},
  {t=0,b=0,x=128,y=75,w=58,h=7,c=1},
  {t=2,b=0,x=143,y=66,w=7,h=3,c=3},
  {t=2,b=0,x=158,y=65,w=9,h=2,c=3},
  {t=2,b=0,x=176,y=67,w=5,h=3,c=3},
  {t=2,b=0,x=149,y=91,w=6,h=5,c=3},
 },
 {
  {t=2,b=0,x=61,y=66,w=37,h=23,c=3},
  {t=3,b=0,x=80,y=47,w=18,h=13,c=3},
  {t=3,b=0,x=42,y=47,w=16,h=12,c=3},
  {t=3,b=0,x=79,y=46,w=8,h=6,c=4},
  {t=3,b=0,x=40,y=46,w=6,h=5,c=4},
  {t=2,b=0,x=62,y=63,w=34,h=19,c=4},
  {t=2,b=0,x=61,y=72,w=7,h=5,c=3},
  {t=2,b=0,x=69,y=66,w=8,h=5,c=3},
  {t=2,b=0,x=53,y=65,w=9,h=5,c=3},
  {t=2,b=0,x=70,y=60,w=8,h=6,c=4},
  {t=2,b=0,x=53,y=60,w=9,h=6,c=4},
  {t=2,b=0,x=57,y=135,w=48,h=49,c=3},
  {t=2,b=0,x=175,y=66,w=36,h=22,c=14},
  {t=3,b=0,x=196,y=48,w=14,h=13,c=14},
  {t=3,b=0,x=154,y=48,w=13,h=13,c=14},
  {t=3,b=0,x=196,y=51,w=5,h=8,c=14},
  {t=3,b=0,x=195,y=53,w=9,h=13,c=13},
  {t=3,b=0,x=153,y=50,w=7,h=9,c=13},
  {t=2,b=0,x=174,y=64,w=32,h=16,c=13},
  {t=2,b=0,x=173,y=73,w=8,h=5,c=14},
  {t=2,b=0,x=182,y=67,w=9,h=5,c=14},
  {t=2,b=0,x=164,y=66,w=10,h=5,c=14},
  {t=2,b=0,x=164,y=60,w=11,h=6,c=13},
  {t=2,b=0,x=181,y=61,w=11,h=6,c=13},
  {t=2,b=0,x=163,y=57,w=5,h=5,c=12},
  {t=2,b=0,x=180,y=57,w=5,h=5,c=12},
  {t=2,b=0,x=70,y=55,w=6,h=6,c=12},
  {t=2,b=0,x=53,y=55,w=6,h=7,c=12},
  {t=1,b=0,x=160,y=57,w=3,h=1,c=15},
  {t=1,b=0,x=178,y=57,w=3,h=1,c=15},
  {t=1,b=0,x=74,y=55,w=2,h=1,c=15},
  {t=1,b=0,x=55,y=54,w=3,h=2,c=15},
  {t=2,b=0,x=176,y=135,w=32,h=50,c=14},
  {t=2,b=0,x=229,y=108,w=4,h=27,c=14},
  {t=2,b=0,x=227,y=133,w=5,h=4,c=14},
  {t=2,b=0,x=208,y=132,w=6,h=2,c=14},
  {t=0,b=0,x=57,y=70,w=4,h=34,c=2},
  {t=2,b=0,x=59,y=103,w=2,h=1,c=2},
  {t=4,b=0,x=155,y=65,w=-21,h=6,c=12},
  {t=4,b=0,x=150,y=69,w=-8,h=-2,c=12},
  {t=4,b=0,x=195,y=66,w=14,h=4,c=12},
  {t=4,b=0,x=198,y=72,w=12,h=-3,c=12},
  {t=4,b=0,x=78,y=65,w=10,h=3,c=12},
  {t=4,b=0,x=82,y=70,w=12,h=-5,c=12},
  {t=4,b=0,x=40,y=66,w=-13,h=6,c=12},
  {t=4,b=0,x=38,y=70,w=-16,h=-4,c=12},
  {t=2,b=0,x=104,y=22,w=12,h=11,c=2},
  {t=2,b=0,x=128,y=22,w=12,h=12,c=2},
  {t=2,b=0,x=115,y=38,w=12,h=17,c=2},
  {t=2,b=0,x=107,y=34,w=10,h=12,c=2},
  {t=2,b=0,x=101,y=30,w=7,h=7,c=2},
  {t=2,b=0,x=130,y=36,w=5,h=7,c=2},
  {t=2,b=0,x=133,y=32,w=4,h=5,c=2},
  {t=2,b=0,x=124,y=40,w=6,h=8,c=2},
 },
}
group=1

function drawShape(type,origin,size,border,colour)
 if type==0 then
  if border then
  	rectb(origin.x,origin.y,size.x,size.y,colour)
  else
  	rect(origin.x,origin.y,size.x,size.y,colour)
  end
 elseif type==1 then
  if border then
  	circb(origin.x,origin.y,size.x,colour)
  else
  	circ(origin.x,origin.y,size.x,colour)
  end
 elseif type==2 then
  if border then
	  ellib(origin.x,origin.y,size.x,size.y,colour)
  else
  	elli(origin.x,origin.y,size.x,size.y,colour)
  end
 elseif type==3 then
  if border then
  	trib(
	   origin.x-size.x,origin.y+size.y,
	   origin.x+size.x,origin.y+size.y,
	   origin.x,origin.y-size.y,
	   colour)
  else
	  tri(
	   origin.x-size.x,origin.y+size.y,
	   origin.x+size.x,origin.y+size.y,
	   origin.x,origin.y-size.y,
	   colour)
  end
 elseif type==4 then
  line(origin.x,origin.y,origin.x+size.x,origin.y-size.y,colour)
 elseif type==5 then
  pix(origin.x,origin.y,colour)
 end
end

function TIC()
	vbank(0)
	tmp=time()//32
	for y=0,136 do for x=0,240 do
		pix(x,y,(x+y+tmp)>>3)
	end end
	vbank(1)
	cls()
	local duration=240
	local scene=t//duration%#drawList+1
	local count=#drawList[scene]
	local int=(t%duration)/duration
	local maxJ=int*count*1.5
	--for i=1,#drawList do
 for j=1,#drawList[scene] do
  if j<maxJ then
  	local s=drawList[scene][j]
	  local type=s.t
			local border=s.b==1 and true or false
	  local origin={x=s.x,y=s.y}
	  local size={x=s.w,y=s.h}
	  local colour=s.c
	  drawShape(type,origin,size,border,colour)
 	end
 end
 --end
	t=t+1
end