g.clear();

// Draw the Backgound, that will not change  
g.setColor(0.7, 0.7, 0.7).fillPoly([0, 0, 70, 0, 20, 120, 70, 240, 0, 240]);
g.setColor(0.7, 0.7, 0.7).fillPoly([240, 0, 170, 0, 220, 120, 170, 240, 240, 240]);
g.setColor(0, 1, 0).fillPoly([90, 0, 38, 120, 90, 240, 150, 240, 202, 120, 150, 0]);

var avatar = {
    width: 109, height: 140, bpp: 1,
    transparent: 0,
};

// Shadows for each Alien
const avatar_shadow = [
    require("heatshrink").decompress(atob("AH4A/ADcwBhcB4gNLh0QFBnABpf8BhcH8BDL/+ABpUPFBk/+QoM+BDLGxYaBGxcP/56Lv/+IZn4FDE/FBcD/6jLn//DRhsLj4oLLwIoLGoJsKV4JsLv4NBXxIaCKJQaCc5IaCGxRQB/6jJNYRfKZQIoLBgQoJDQZRJLwQoJZQIoLn/fFBUB/wbCUZEP85sLv70BepMD/BSCIZPDFBUD/goCNhE/8AMB355JbQP9FBEf+DaB94oI/+BFAM/PJH+X4Px/gaI8BsBx56HIIOD//8PRE//BsB84oHgJ2BIYQoHIYIqB/IoIv/4NgPPPQ6HB4P//1/PQ8fNgXzFBBsDz4oHIIIqBNgIoHNgn+FBJsBYQIoINgeANg/8bISVJ8YoBv6VIGYP//aVKDQPfNg4oB86VBNhAoBIYP3NhCTBIQJwBXxBCC54aHJ4KvB904FBKvBuJDHFAXn/eOFBHxKQPcWA6+Bx/5/1nWA8HGgPP+BDInnn/l/gZDHgPnn/j/EeDQ8P3P+j/BQ48Anvv8H+DREA9//g/4DRED3/4n5CHAAMc//BZRAABkf8h4nIKQXgv4MJgF+gf4BhMH+EfIZLaBgP8BhImBj5DKNQP/IZX8G4JDK8E/co5eDIZnwh5eKj+AnxDLgJDKgfgh5DKj8AvgoK/EBIZUH4EODRUegFwBpXggZDKg8AjgaKnAcBBhJPBDgIAJJ4IcBABNwNhZPBNhZPBvBsLRIJsLn5sM/xsM/gNJh4qBBpX4dIICBDRChBv6kJ/44B/7NIh4zBgfwDRAlKUQWPBhSiBuANLkYMLAH4A2")), require("heatshrink").decompress(atob("AFkgBhcBwADFAAsMAYwAFuADCsAMHgfAAYMHDRE+gF+gE4IZHwgf/gIeCAAsP4Ef/8eFBAmBn//+AoI/EA///NhAoBGwP8FBF/gA2B8BsIFAN//4aIh/gFAIQBFBJRBNhED/kB//+DREf8BDBNhAoBwBsKFAMPNhUf+BeBNhCTBw4oBBhEH/gMBNhB3BAAXBBw4zBAAU/PYyEBAAhgFLYIAERIwMFIo0HBoxuFIQgACLpIACS4pQGYArVBAAxfELwxfGIY4oNSwgoaNg56FNg6jEIaqVFIY6+EZY5DSeg5DFFAP9Q5QoB46wL/xhFNg3gIwgoFAwRvC/JRFIYPwTAePPQoXBPof8FgIaFEII2C8CjFBIPAFAYvCcwhDBL4X4CgQNCj4TCKIXBL4gkCwAeBPwYoDAoI8BDwIKBDwIoDAoJlBIYWDFAhoCwBsDDwKIDDQIoBNggoDH4XgAYRsCFAY/CAYaVCKIZ1CQ4fhHoRDE4AaC/+HUYggBAoIMCFATMDIYSiCGYIoHUQZ6CFAv4LwZ6CFARNCIYh6CWAhyBBgR6CSovwHITnGbIaiCc4zZCIYbnGbIRDB+7nDNgQXCwACBFQJsFC4P8IYKFBNgqVDDAKuBNgpbCKgKuCNgqVCJgJcBNhHAv/+DAJsH/5UBHAP+IYJsFJgQgB+LZEFARcBHARmCFAp1BHAP4MwQoEGIKlCw/vNgYoB/IoBUoP8n1/IYYoBx6FBEAPh8JDDPQP8ngVBFAMPh6HDUYPh4YaBj/4uF/DQaCBhk/GAJTBgZeDFAP4EoOAg6SBj5eDKIPAJwJDBDoQaDh/+B4PgDoIHBIYgzBMIItCDoJDDHwSiBDoI4BDQkD/waB4EPHAMfcwRfC8DmBEoJOB3AMDgEcIAPwOIIHBDQgABagOAIYQAHcIJxCBg4lB8BxBDRE/ZYTWDAAglB+BsCBo6HCNgQAHEoU/XYYoGAQYoIDQKgFFApABUAqyEC4RsJC4QoKC4U/SpKECSpRDBCAZsGQgV/FBEPQgLBBUZF/YIhsJSoJEILYTBBFI8DCwV//7NHn5bBgYaBMAzxDh+fFA8/EYcfIgwkBeIb5CXopoDexH/ZAcBGoyRBT5AwDM45eFIYbLLAH4Al")),
    require("heatshrink").decompress(atob("AF0B/ANLj/wDRf/wAaL/woL/42Lg//4ANKv/8DRngKBZDL/5DLv4NBFBIMCKJIMDRBEPBgf/JxAAEDY0fBghgGDQxgGGopSHBgpEGDQyyGDQyJFDQwoGQwhRHaoJRLn5DLPIwaGIYyVGDQ3wIbIoFgYoMbArnGLw4oFDQ4oFBgwoFXo4oFDQ4oEDQ56EggMHc4k3Bg7MDNY42FV442FV4PzGxIoCRI34Lwn4DQ3QFAnHBYl/SwYoB/zoE/ZfEFAPxDQnf//gBoQgBS4n+WIhsB/AoEMgJ6DBQPBFAmfIYv8FAn8IYgoB8AaE85DEj/+B4JHBFAb0E+E/Ugf+v6VDDAOLCwQABOQJRDj/4v/8FAeHFAl/4f/8YoDCoIMCgf+LwJ7DYgLnDh/wv/5L4fDSoYoBwf/54NDj5DDgP8n5aBRAd/SoQoB8KsCAAXjSoYoBNwMfKIiVDgbLBJgIACJQIaDh6wBOoJRDIYYoCIoIoEIYcB/EfQ4YoBNgkP4BDD/3/gZDDgF+IoIZC+4hBBgcD+Ef47mD4BsEj/A/xDC/j7BFAn+gbiBQwRsFg4vBx6vDwbZDNgPgegf4/gwBDQZYBNgfD8BsEUIMfIYSGBMoKHD/3AegfwCYIoDh/ng70Dw/AKIl/jE+IYX8nwoEAgPBV4fhRwIoDSYMPBocPwBREAgInCNgUdc4cH+EDDQfH8HfSonAbALXBQwOBDQcAjkBa4X/TQMPBgZuCBoM/YYIZEewf/RIJdBwAMFgYmBRIOAvgaGIYLNB/EDsANGZIQaBnYMGbYJcB/kBIY4oBUoPgj4MGSoLkB/8AuANHLgKiBBY56Cx//ZAYoGLwP8BhC+B84aKIIM/DRJDBUQPgBhB6B45eBABAmBj5eJFAPgIZUH/wBBFBXwAIIMIgP/wLLBFBP4g5sKn/An5sJgP+FQIaJg/wh5sKn+Av5sJgP8gZsKh/gj5sJc4JDBNhMD/EPFBUf4F/PRX+gf/L5JsBj4NKNgP//43INgMHBoIbINgM/BoKyIv6VBBoJuHa4QpBMBE/SYMPDRBqBXgV4DRCTKDQTlKUQIoDABH8vwoL8J2IQ4cPBhUAnEwBpb/JAGo")),
    require("heatshrink").decompress(atob("AD8BBpkcBhcD/ANLn/gGpf/wANKh/+FBd/+AMKg//4BDLFBZDBFBcPKJl/FBcDFBkfFBn//hsMUZd//5DMZhc/SpaHBNhaHBNhZDBFBReBFBZDBFBReBSpaiBSpYaBSpReBFBZeBKJReBKJZeBPRReCFBReBZhS9BFBZeCepQMCFBJeCRBR5BFBReCFBR5CKJIaDFBJ5CFBJ5DKJJ5DFBIMDFBAaEKJAMDZhCUDFBN/84oKg/+RAYaI8IoKl/+KQYoGQwPgZgRRHDAKxC+YoHv/wWIWfFAwYBPYX8vwoH+B7C8YoIwBsCh7MGgf8bQX4CQLzG8BsC4JfHv4BBNYMP/goG/BsC8E/GwwoBNgQ5BGwwoBIYUDGwwoBNgXAh5tGj/ANgJBBn6WGvxsCIIIuBFAvwNgTSBL40P4BsBGYMHL40+NgQzBj5fFgPwIYJcCvgaFg+BDQPwCYQoGIYYTBL43wIYcAjwoG4YaBIAV4BoseWAJpCgJfG/CHDEIJfFgfHIYY2Hj5sBXYY2GvpDEGwyUCDQakGPIR2DUgx5Bf4hIDEIReEAwLbFKAIVEn8wIYy6E/iyEDQQ+Dg+mc4m/LwkAmuYAocdLwsBylABofNXoYABg2zAolvLwkAigoEmZ5FgEmFAcBKIJeEgMyAocJPIoHBUYiwBLwkA4iwGXAsgSoqqFgKwGTggAFgIaGAAoaMGo4aHKAoaSj4aLKAKGFAAqUBDRUADRkHDRk/DRZeBDRcfDRZDBUJRDBQxYoB8ANL/wMLgfwBpcPLxcAvgMLgJDMh4MLgF4KJiHLgE+IbMfQ7M/DTJQajyUMDRkDDRkYBplABpgAmA==")),
    require("heatshrink").decompress(atob("AH4A/AH4A/AA0B/wNLn/8gfwBhED/4AB4AaJBpcBBgX/DREfBgX8BpAaD8AMHg4NDwBDLFBBDEFBEPBgSKJFAaIINhpRDUZJ6DXxIMC/C+MPJBfDDRMAv4aLL4S9JL4b0JRASUJL4avIL4gaKRAKUJFAZeJKIQaLv5rKIYQnKDQInLg54LDRrLBUJS9CDRheLDQI2KbARsKv4oLZQTYKZQJRLBgP4IZh6KIYKjKgfvNhc+n5sKgPhNhceIgIoK+AoLh+AKJd8FBcH4Ef+56JnyWB355J+EH/pfJj+An/nZhP8gP/n5DJ8EP/LMJC4N/55RIgf8gf+vxDJ8E/+YoJ/5DBz4oIg/4h/8UZM/4F/86jIEwMDNgLMIh/4n/5SpN/8P/54oKh++v4oJ/l9+4oK+fv36+IJ4P+vvPSpP/+fMvCVJ/+euKVJ/v4+OGSpPv4+MmBsJv18FBMP/Pj4eOFBFt78ehlwNhFs/HwkaVIjdnw+AjgoI7c8nkASpEH7Ph8EHDRF+48OgBsIgf3nFwgLZJzPDIZVu5wLBIZEB28wsEGDREN7ODgEgBpEOhkYBZAABE4K8IMAY0JAAUYPBAAD4J4IAAUGhgaLIgIMKgJsBABUMvANLv//NpUD3//WBAABnkPBpUB+Ef/4aJj+Aj/wBpP+gD0JgEHDBReCZZgoBABRBLAAP/ZZcHFBkPDRcAXpgA/AH4AfA==")),
    require("heatshrink").decompress(atob("AH4A/AH4ATn4MLg0+BhUBwAaLnAMLh4aLgf4DRf/+AMKj//8AnK///DRV///+J5QaBIhQMBGxQ1CFBRQBL5UBFARDMPRQMMg55O4AaLLpQ1CQxRrQGxM/PJYaD/g1LGxQMC/+AQxQoKQwLmKcoRRKIYaIJDQZ6IIYaxJn/PNhUB/xSCNhEP+JsMG4RsJ/C/CNhPAFBf+FAPvFBEH8AoBn5sJdAP5SpEB/EP//HPRBDBv/+n56I/zNB/JRI5/gZoIDBXpDNBUoJQI/APB/YoIcYK+B75RHg5DC/zMIFAJDB+4oHQoPBWAO/KJH+Q4P8ZhE/+BDB+6jHFAODFAOf4ANGh5DC/n+FBBDC85DHgJDC/8fehBDC/DnIn6HBc4JDHegJDB/0eDQ8P4AaB+CwHgF+ZYP/w6wHgPwn5sBngoIwIaB8JsHgE8NgUOBg8B8BsCmAoINgWBIY8AvCwChgoJDQPgsAoINgUHBg4oBn+//E4Bg8D8f9//DWA8Aj8/56wJgC8Bv/wbJBCB+KwBFBCvBx/8nxsIPAN/8IoIQwPD/zrBIZMf+AoIZQPwWAPwBo7KBwf8h6+HZQP8j/gvgaHia8BWAOgBo+Z/0H/EJSpHP+E/LpEAgV/wP+BhBEBJ4JdIRAXgv4MJRAMDUJAoC/EfIZIoB4BDKgHmg5DKg8wjahHAAU5wHcBhMB4kGFBUOkE3FBVwgMcNhWAhHgBpIYBp5sKDAN4NhQqBKJU4gDnKgPAgP/NhUAh6xKuEAv4NJgfAgf/FJMeFAP/DZEB/ACB/4DBAA0PLgX/MBAyCgP8Q5AkIAAd/XhReBQpQABj4oMuauJAAMCgwaLAH4ApA")),
    require("heatshrink").decompress(atob("AH4A/AD8B4ANLngFEhAMFh+AAwlABov4AokCBgsfAwsQAokD+BJFFws/DQsMAokHDQsAsAFEv4MFgZdFDQ0YAon/QAyNEDQ8OKwgaHuB4EDQ0DNgYaIjgaEUIoAB8AaERoqBBDRk4DRb6Ej/8DQxsDDQJ/ENgwaINgYaJngaD/wMGgJsCDQJxDXAgaLgF4DQavGIYIjCh55HFAn/Sg4oDDQJeHgYIC/55HgEeYIReIgBMCv7zHC4IoBg+/Lw8AlyzCLxEBKIMDgZDIc4Uwj5eHc4iiIDAJHCIZEBH4UfIY8AhgQCIZAoDh4oJJoV/FBBRCg5RJuAaCFBEjwEgXwJ6Hn/+gbZBXw4WB+EwegP4BgrUB/8DwbmHgYMB/EcFYInGBoXhAQJrHGoP/z40HSAQNBJ5BEEKYIaboBDIDQUDKQwaDKAMeDQ0/94NB4EDeo1x/4cCwBTGgUH+I3DZg8fMAaIIvE/BhUB4IaCWA8D4AoB/iVJNwWDSpEebYI0IAAI0C8AMIh5QCIQMEBo1wh9//wFBmAcHS4JQBkaHGFIPPFAMBdJCxBXYMPXwwIB+ZRCv58H/xSBbIK+Hg/Bz5RBj5UCAAn4jijBFAKLGg+A4Y2BFBHgh0fLgICCWAoOBL4JsBFAvn4Efg6kB5woFh/4gP4bQP/84oFn+An+D3/v/8fFAkD+EH/k8/+/+F/FAkTM4PD8f+//DPQkBnAcBv4lBv0fUYkBGoIOCbYIoFBwPwn7OB/PBZg0PDQKTB58PZ4IAE+EfSYP8nF/WAy/BgHh4HhXw04X4IQBgcPIY2AvEAjgBBngaFjkDCoJABsJDG4AYBFAQCBAAkGgIVBjEAhk4Boswh4eCFAJDFgcAuAeBJIMODQsYBwIeBFAISBIYozBMQIoBBgsEGYUMB4MIBosgGAVggEIoCHFIYQ4CB4JDIEoIECAAmAIYMAEoI1GIYcCB4ZDFBwIDBB4ZDFBQIDBgEQGwwKCGYwADBRQACHwgoHHwqlBAAoVEKwR7GMogMGCpB7FBpgA/AH4AtA=")),
    require("heatshrink").decompress(atob("AH4A/AH4Ash4MLgP+Bpcf+ANL//ABhUHFBk/FBcD/+AIZf8IZngIZYoMn4oLgIoMh//IZn4DRgoLv4oLLwJRLDQIoKUQJ6Ln//ZhQaCZhQaBepQaCL5UfBgKIJV4IABL5IaCL5QMCL5KvBL5aUBL5SvBL5YaDL5AaEL5CUCL5J5DdBJ5DFBAaEFBB5DRBJeDRBEH/oMCv6IHn/PBgP7FA8D/wpC76IHj/xIQQoHLwJSC8YoHh/4FAUfFA9/4a9CFA8H/yWCwbaHn/gFAP8FA8D/4BBV4P/FAwVBFAQQBFAwVBIYQoHIYMHBoIQBFA1/+E/Q4IQBIY+BZQU/FA0//iVCCAPgUQ3ANgQQBUQ3+NgYoHIYJsCEAIoFIYn4FA5DEHIIoFIYiVCPQpDESoL1GIYiVBFAqPBwAMBDwQoFIYKwCDwRDGegQoILgJDCXwQoFJoS+DKIoUCBgKLC+BDFEgWfRYWAIYokB/hHCFAoUBwf/4ZHCFAt//iRBj4oHQIQmBFAX8IZABBCYLnEIYZuBOARDIWQIsBFApDCWQIsCFAhDEFQM/FAoGBCwI6B4K+FBAIWB/AoBHgK+EAwIWBwE/+CVGAwMP/gfBKoKVETgRDBB4JsBSogGBw5MBv6XBNggjB/hDBD4JsGIYPhJgKVBv4oFAwOPEYP/84oFEYP+GYImBQAIoEIYP7IYMfAYKVFAwPfSAIEBNgojBAAPAAgZDEF4I3BAgbZFEYZxB/JDFEYhxB47ZGCoIjBfIKMBSooVB8BxBaAQoE/xuBOITABFAqeBNgQEBIYgIBFAJsC4b0FFAM/NgX+nwaFj/xNgniBggoBx5sD5wMFgE8NIJsB/1gBo3jNgIoBXgh7Dj4aBPQJ4EAAd/BIMDSYgAECxAA/AH4A/ADQ=")),
    require("heatshrink").decompress(atob("AH4A/AH4A/AH4A/AH4A/ABfYBhd/8AMKgf/+ANK///wAMJg4NMv///gMJh4aBIhQaBFBQ1C/waM/BrKGxYMCG5MfBgY3HE4YABS48/FBYaFRI4aFFA0BBgn/4AaL/41LRI5rERI41GL4waGRAoaHGwoaGL4sh//5EwbdBGwcBz//x5PDB4IbDE4P4PYY8BIggIDUIUHIggFBBARqCh5EEEoKkDC4N/FAYlBYoJcDVILNDEASyCcoIfBL4YgCCAIRBEQJDGCwQaBIY+AL4TJBIYwWBp5eCIYooB8BsD4CPBIYZsCXgZDFBQP4KAQtBD4JDDJIQaD+E/HoIoD/w1D//DKgRRD/DiBAARDFDAPHBgf4IYsf/zmD//nDQhRB/YMD/8/DQgoB74MDCQIaEKIKdBv+BCQKiDFAYHCg/9LwkAVIPHGAV/x6cBAAaIBh4VBg/wXog2C/EHToKiCBgg2B4E/D4Pgn4aFGwMDFAMfKQJeEBAP4nwEBvyOBBgixBLIbNCKIwVCFoLmECoYaCfAQMELAIwDboTZFDQY7CIggUCHYjnEAwX8CYqxDAoP3FAo2DDQUfEIc/3+MAwVn/f4Ogdw/g1DCgMPw6NDwPgPQlg8EgAoUEgODPQkGaQsMAwoA/AH4A/AH4A/AH4A/ABg=")),
    require("heatshrink").decompress(atob("AH4A/AH4A/AH4A/AH4AIwAMLg/ABpcfBpn/FJcD/4aLh/8Bpc/+AMKgP/IhcH/woM/BfMFDRRNUZhDLh5DLBgJDLBgIoIgg0B//zZhEQg////YExFDBgLLJcgIAB8BPKKBc/v4aKLoIaLGwSvKE4P/NZA1BFBaFBBgM4BhR4BKI4mCGgMDZYwZCAAJ9BQhAAC+E8BgkBBgiHBNoonEDQI2FDQ8HDRX5wEMVgwAB869Hh4HC/5VBUQ1+AQMH+EfUQ0D/CJCwE/Qw0PMoMBUIKIBaowVBh/AgYPBfww+BBQJJDPQg+Bj4dBn4aGIgI1CJIYAEg/gEoRRHGIOADQRDHgE8g4XBj6HGAANwvgaBa4oAD44aBv4MIgT9Bn5rGMAfAh5dHAAUcKgIMJgAlBFQIAIgxUCBpIKBgKGHIYSZCDRM4AQMeBhAlDvxeKbwZeJNoJ7Ij4DCbJDzCAAIoIeYTMKZAb5BPI4/DvBDISRIACIYaiJeJIAChwMLAH4A/AH4A/AH4A/AH4AoA"))
];

var blinkFlag = 0;
function blink() {
    if (blinkFlag) {
        g.clear();
        blinkFlag ^= 1;
    }
    else {
        g.setColor(0, 1, 0).fillPoly([0, 0, 0, 240, 240, 240, 240, 0]);
        blinkFlag ^= 1;
    }
}

function morf() {
    a = setInterval(blink, 10);
    setTimeout(() => { clearTimeout(a); }, 500);
    setTimeout(() => { load(); }, 1500);
}

var i = 0;

function draw(i) {
    // fill the are bw > and < with green
    g.setColor(0, 1, 0).fillPoly([90, 0, 38, 120, 90, 240, 150, 240, 202, 120, 150, 0]);
    // select the alien's shadow
    avatar.buffer = avatar_shadow[i];
    // Draw it
    g.setColor(0, 0, 0).drawImage(avatar, 70, 50);

}

function next() {
    i = (i + 1) % 10;
    draw(i);
}

function prev() {
    i = (i + 9) % 10;
    draw((i + 10) % 10);
}

function init() {
    draw(0);

    Bangle.on('touch', morf);
    Bangle.on('swipe', dir => {
        if (dir == 1) prev();
        else next();
    });

    setWatch(next, BTN1, { repeat: true });
    setWatch(morf, BTN2);
    setWatch(prev, BTN3, { repeat: true });

}

init();