From 993f9093351a6766fbd866cb577c66b4384db885 Mon Sep 17 00:00:00 2001
From: Gordon Williams <gw@pur3.co.uk>
Date: Wed, 17 Feb 2021 16:46:58 +0000
Subject: [PATCH] add geiss clock

---
 apps.json                   |  24 ++++++
 apps/geissclk/ChangeLog     |   1 +
 apps/geissclk/clock-icon.js |   1 +
 apps/geissclk/clock.js      | 148 ++++++++++++++++++++++++++++++++++++
 apps/geissclk/clock.png     | Bin 0 -> 2074 bytes
 apps/geissclk/precompute.js | 108 ++++++++++++++++++++++++++
 6 files changed, 282 insertions(+)
 create mode 100644 apps/geissclk/ChangeLog
 create mode 100644 apps/geissclk/clock-icon.js
 create mode 100644 apps/geissclk/clock.js
 create mode 100644 apps/geissclk/clock.png
 create mode 100644 apps/geissclk/precompute.js

diff --git a/apps.json b/apps.json
index 1f7078fe8..fbe8b953f 100644
--- a/apps.json
+++ b/apps.json
@@ -269,6 +269,30 @@
       {"name":"clock2x3.img","url":"clock2x3-icon.js","evaluate":true}
     ]
   },
+  { "id": "geissclk",
+    "name": "Geiss Clock",
+    "icon": "clock.png",
+    "version":"0.01",
+    "description": "7 segment clock with animated background in the style of Ryan Geiss' music visualisation. NOTE: The first run will take ~1 minute to do some precalculation",
+    "tags": "clock",
+    "type":"clock",
+    "storage": [
+      {"name":"geissclk.app.js","url":"clock.js"},
+      {"name":"geissclk.precompute.js","url":"precompute.js"},
+      {"name":"geissclk.img","url":"clock-icon.js","evaluate":true}
+    ],
+    "data": [
+      {"name":"geissclk.0.map"},
+      {"name":"geissclk.1.map"},
+      {"name":"geissclk.2.map"},
+      {"name":"geissclk.3.map"},
+      {"name":"geissclk.4.map"},
+      {"name":"geissclk.5.map"},
+      {"name":"geissclk.0.pal"},
+      {"name":"geissclk.1.pal"},
+      {"name":"geissclk.2.pal"}
+    ]
+  },
   { "id": "trex",
     "name": "T-Rex",
     "icon": "trex.png",
diff --git a/apps/geissclk/ChangeLog b/apps/geissclk/ChangeLog
new file mode 100644
index 000000000..5560f00bc
--- /dev/null
+++ b/apps/geissclk/ChangeLog
@@ -0,0 +1 @@
+0.01: New App!
diff --git a/apps/geissclk/clock-icon.js b/apps/geissclk/clock-icon.js
new file mode 100644
index 000000000..723d17cc0
--- /dev/null
+++ b/apps/geissclk/clock-icon.js
@@ -0,0 +1 @@
+require("heatshrink").decompress(atob("mEw4X/AoMF/3G/2m/wOCmoaKmtAAgVQBYsFoECwALMAA0JBZQABBYIbBBaVUBYMVBYkBIIILDgEKGYUBqkA6oLB6sAlQLDqsAioLBCAOq4AkCqtAivCBYMC1YwDitQgtCwNUhWsOwlUBYVQlWwJAlVgtSxNQFwnwGANBqWFqQuE1QwBqNewtKFwgLBGANWytq2EFWoU6gWBqoLBFwNVYIZZBqtXyurioLF1W1q/W1tVPIIxE1NV72VqpTDDAleEIgADnWq3qgBTIYADvQuBAAVUBYla1XVBYYbDyt632qd40Fqulquq0ALFOwO16t6BYpxBvWX6tW0aoDXwNU1XXNQMD1T7CAwPC1abBegPqFodQdQILCO4hxBlWxq2FoqaFBYOBcYNxQggLCToOBqAwBTgwLCiqoGgtCJ4L0BBYsVBYRmBBY0CwEUJ4IwFBYkVBYsMBYI0CJAwLDAA4L2A="))
diff --git a/apps/geissclk/clock.js b/apps/geissclk/clock.js
new file mode 100644
index 000000000..de880d808
--- /dev/null
+++ b/apps/geissclk/clock.js
@@ -0,0 +1,148 @@
+var W = 79, H = 64;
+/*var compiled = E.compiledC(`
+// void transl(int, int, int )
+int transl(unsigned char *map, unsigned char *imgfrom, unsigned char *imgto) {
+  int n = 0;
+  const int W = 79;
+  const int H = 64;
+  for (int y=0;y<H;y++)
+    for (int x=0;x<W;x++) {
+      int d = map[n];
+      int nx = (x<<3) + ((d   )&0x0F) - 8;
+      int ny = (y<<3) + ((d>>4)&0x0F) - 8;
+      int ax = nx&7;
+      int ay = ny&7;
+      int a = (nx>>3) + ((ny>>3)*W);
+      int c = 0;
+      if (a>=0 && a<(W*H-(W+1))) {
+        c = imgfrom[a]*(8-ax)*(8-ay) +
+                imgfrom[a+1]*(ax)*(8-ay) +
+                imgfrom[a+W]*(8-ax)*(ay) +
+                imgfrom[a+W+1]*(ax)*(ay);
+        c = (c>>6) - 4;
+        if (c<0) c=0;
+      }
+      imgto[n] = c;
+      n++;
+    }
+}
+`);*/
+var compiled = (function(){
+  var bin=atob("Len3TwAnT/BPCPsAAJMI+wfzAOsDCdMYAZMAJhn4BkAAnQTwDwMD68YDBesUFAg7CDzdEE/q5AoI+wpaQfJvNapFItgB6woOA/AHAxH4CsCe+AGww/EIBQX7DPwD+wvMnvhPsATwBwQF+wv1ZUPE8QgKCvsMXJ74UFBrQwT7A8SkEQQ8JOrkdADgACQBm5xVATZPLsLRATdAL7bRA7C96PCPAAA=");
+  return {
+    transl:E.nativeCall(1, "void(int, int, int )", bin),
+  };
+})();
+
+require("Font7x11Numeric7Seg").add(Graphics);
+
+// Allocate the data
+var dataa = new Uint8Array(W*H);
+var datab = new Uint8Array(W*H);
+var map = new Uint8Array(W*H);
+var pal = new Uint16Array(256);
+var PALETTES = 3;
+var MAPS = 6;
+
+// If we're missing any maps, compute them!
+(function() {
+  var files = require("Storage").list(/^geissclk/);
+  var allOk = true;
+  for (var n=0;n<PALETTES;n++)
+    if (!files.includes("geissclk."+n+".pal"))
+      allOk = false;
+  for (var n=0;n<MAPS;n++)
+    if (!files.includes("geissclk."+n+".map"))
+      allOk = false;
+  if (!allOk)
+    eval(require("Storage").read("geissclk.precompute.js"));
+})();
+
+function randomPalette() {
+  var n = (0|Math.random()*200000) % PALETTES;
+  var p = new Uint8Array(pal.buffer);
+  p.set(require("Storage").readArrayBuffer("geissclk."+n+".pal"));
+}
+
+function randomMap() {
+  var n = (0|Math.random()*200000) % MAPS;
+  map.set(require("Storage").readArrayBuffer("geissclk."+n+".map"));
+}
+
+
+randomPalette();
+randomMap();
+
+// Get the address
+var addra = E.getAddressOf(dataa,true);
+if (!addra) throw new Error("Not a Flat String");
+var addrb = E.getAddressOf(datab,true);
+if (!addrb) throw new Error("Not a Flat String");
+var addrmap = E.getAddressOf(map,true);
+if (!addrmap) throw new Error("Not a Flat String");
+var gfx = Graphics.createArrayBuffer(W,H,8);
+gfx.buffer = dataa.buffer;
+
+var im = {
+  width:W, height:H, bpp:8,
+  palette: pal,
+  buffer : dataa.buffer
+};
+Bangle.setLCDPower(1);Bangle.setLCDTimeout(0);
+g.clear();
+
+
+var lastSeconds = -1;
+
+function iterate() { "ram"
+  var d = new Date();
+  var time = d.getHours().toString().padStart(2," ")+":"+d.getMinutes().toString().padStart(2,0);
+  var seconds = d.getSeconds().toString().padStart(2,0);
+  t = addra; addra = addrb; addrb = t;
+  t = dataa; dataa = datab; datab = t;
+  if (seconds!=lastSeconds) {
+    lastSeconds = seconds;
+    im.buffer = datab.buffer;
+    gfx.buffer = datab.buffer;
+  } else {
+    im.buffer = dataa.buffer;
+    gfx.buffer = dataa.buffer;
+  }
+  var x,y,n,t = getTime()/10;
+  var amt = 100*Bangle.getAccel().diff;
+  for (var i=0;i<amt;i++) {
+    //x = Math.round((W/2) + 20*Math.sin(t));
+    //y = Math.round((H/2) + 20*Math.cos(t));
+    //t += 0.628;
+    x = 1+(Math.random()*(W-2))|0;
+    y = 1+(Math.random()*(H-2))|0;
+    dataa[x + y*W] = 240;
+  }
+  compiled.transl(addrmap, addra, addrb);
+
+
+  gfx.setFont("7x11Numeric7Seg",2);
+  gfx.drawString(time, -5, 20);
+  gfx.setFont("7x11Numeric7Seg");
+  gfx.drawString(seconds, 62, 30);
+  // firmwares pre-2v09 wouldn't accelerate a 3x blit if it went right to the RHS - hence we're 79px not 80
+  g.drawImage(im,1,24,{scale:3});
+}
+
+
+Bangle.on('lcdPower',function(on) {
+  if (animInterval) {
+    clearInterval(animInterval);
+    animInterval = undefined;
+  }
+  if (on) {
+    randomMap();
+    randomPalette();
+    iterate();
+    animInterval = setInterval(iterate, 50);
+  }
+});
+Bangle.loadWidgets();
+Bangle.drawWidgets();
+iterate();
+animInterval = setInterval(iterate, 50);
diff --git a/apps/geissclk/clock.png b/apps/geissclk/clock.png
new file mode 100644
index 0000000000000000000000000000000000000000..2d73a920c7c6bad079ff770e52fdfecc11c1e378
GIT binary patch
literal 2074
zcmV+#2<7*QP)<h;3K|Lk000e1NJLTq001xm001xu1^@s6R|5Hm00006VoOIv0RI60
z0RN!9r;`8x2hT}FK~!jg?U`+iR96|tf6ux1&g^cN_ZM5WMJd?D-C0VO1qHV3(watz
zkYJ^@Hc}w2R+Bc-Xg~PD)WjI$2h%UwtgUSmh_zU(MEk*X+2LhrVL@b;m66s;izx-R
zyzk4*z4ttRnB5I5Gqb~;A&rU8mzkWL=bYdFKIiQ@M~Gm0u&E}zl09P4gR$154@GIC
zQf4A~Wn-#vs~`^!ch%1;2f$Azy8UFso~Ztj1jw>Ch6Mfqh-1u#LiK`lb9az#-dnsi
zwICXW13;oW`pL!?(A^5}#aesk<f{{=n-##R>xtaYL>6rb0q)AwUSNj^y%prSagL~t
zA}I8(jp`rlYIsmpI<T_NTb1gJ+D_yMlxvFo0GKSov~t=hTY#UeZ}XFhOF^=+<mEK8
zE0I8H0?s*H`g1w`7ac<WuExEn#$8WV%ktEje02nwsxV2>CxPFU(y6h!84(1wO52Iy
ze0B8gWwUMIzoy8LTX&$PU|Yqz(kfta;A^LLH_pyi!<nUj0nPvmvt12~CxX|$`WPY)
z16VQ77lH2tnnoB3T2TS6xL*W%frh}>UAlY0ZR6`meP0&X0$_~UJduF#tXT`p0#dP+
zM-E>H|JI^eHt=5u8i2GD^5w_^<etN4UE|(6BBCy^?#_H7tnwQ`RrO&#*i=)jO@&Rl
zUwt+&eCT!p2_S7k+N8ecgUA9(6%lXiO#^QNlfwc3s|DdZ7k&cx0+97Ie$9M|0$-AV
zQbnlfa{#JZa2N%~ZUh`fw@cfh{&L|<7Ep=^Z`iy9Tmo7$yBZdZ_g6(k*Z?5H*yJq-
zKCb{xt(c~%6?r$8Vj|@J)PSHb0~nP@$NL7!hLsBQfd9Cs7j#wvKCb{9%N((>%&9Ql
zyhYzyyy!+mST)a$RNJ5jo4l+2RM<H3_qVcsTUZHr$a5MEk2QB7YyuqMoKx2`BcG%0
zUNkGP!5DyRf>m<Qu~U9BaRg`-be-H<y&b?@I6oyAu091+hoR1o-{D=F2wuCIW(Jbo
zB+#ztDX;Zt-p%Z~2sjIR+D&NZqWlEpN7po(Uh--E$I|&wI1&mk0I0~=WcD-FUju4@
zu8H8YyB99Wb|qd2BzqG0xx$@@DR>;ep>ukeZaxFd6f|iuzjm&KuQF(-UK<JfmB5<6
z0j`-9cW?xIdU!v|Qsc>Ym=S+$JiNX(FCNxZuThaFP+dOKodtFZbU0_~w#)i$Vfg}%
zH9v*O_dsh$irz<g)(o0gg3E(jM!|sNz#6G_p~^w~Ga!1&%&tC(P(KQvIX7J61hgZ%
z8D!>2n-@V|3>|&Cs-^dxiI{FUQ_}SENmjEDA^KgA#*tzxmc7A6e~x6rIU<}?<#urd
z;to0(V5*%Dnc~d=(%PT>u?F@5U>&)+2ErkQ4)2!O7Fm2~uvDJ1QawGkw8<LVj`9s4
zcj&S<qXRb1Q0S{w4<ld|nGr)Ab6Wc|!)kRj1<e3Eu=Z(hRbO`$hKl5>+Pm~)*3(CU
z#~=qM-h8BXHCV--eighE)_#~ZSViC+6*^oSd+zETIg$WBndk<VRYC{=af7LGFt>dl
z%;a2IaEb7}U!a3|=V3Gx>GoEpR+!wiMg=Wnu@`-~`l3WYCVQCKRmc<%aVwC?YL2_?
zA*6~4l8IFa?Z7$=j!cguW-eyh8UVunKY{*xNMcew;$}tJX+=7mQ#F5-wqy{s|HuNg
z>+Y$(u^Wu);|g;DaLCGx_>dTxV*4{$0*xU8nhS@Cn-ffn?FZH}I_cqriu}~Q>%evS
z!A%j6-I-`IhIWNV$nCDVNf~3SnO^+>=mIkKU3)$|2S<>RWmMpt!gL_*PV&~-8s|$G
z`8KNafb&jW&-5q)O1c*szf+D3ZwtIG(BaIg+G8F53c3JD>qY-CFh{BkR68&js6q_r
z1L}jz{&sg@XcaBTei<BZZgZ`<0HA&KwbrTWML7>VW3rj8vM@DJjIC${hW8}qPP9{A
zcdES1>R@2_@4zIP8An{felWZbSf=RXf_#&42f(op)mL9@om-BMF2%sV%w0Y6bC+oO
z?fQH`F@9I#K0ldw*$Fw0@Fd7gghMKP%dL%l+-prekrzIs%^w_U1ttNz#m#-6(QHj%
zeX*oS>ie#kaNskl@^ytIaHtr3-U#@~#2dipMuQ;mlEwZi*4o!|jnD$;`H{P%<*ICS
zZmW78z`UEO4dVJfFxiTJHYQ$wzN2_C&_b4HL6#wbw?TgB2L31A*4~Y!!Vh;g+==Qk
z;IfyMZDTFopBfPOJ%CX*mU`P!ibYyR!*ugOpb0o?T<>0)x9<#q?ybKg2+V#&pYc{6
zed_A#_3X~ZrDF6=;IvyCyImF^@(U$JH(fxGUa|+Y%5lBbqwocUUh_WSCle_kAtGzt
zm8l(2II}C2CDNYm)*WbZ>w21t!RIqUeg>RV^ukzKnZv1KFDKb#!;1!Kanv?STi+G9
zu@{=Ck*LV~z);uSpAzH|g<J80NFOC?Bq}1nm2e|q6kd@P|GYd={X#F3QAAYcg+?$y
z2Gyrab13{WDfb*c>w0n@aFm>g9Tj1m5NY4%tH+mx>1G|B2RGbacjIh7ndtG8iQVPX
zMYM7RlxiQ@BVVQL{{lX0`=1vO`K7)TQ)KU0LVT0#zmg^!hBs(c_5c6?07*qoM6N<$
Eg0xHPyZ`_I

literal 0
HcmV?d00001

diff --git a/apps/geissclk/precompute.js b/apps/geissclk/precompute.js
new file mode 100644
index 000000000..91f41229b
--- /dev/null
+++ b/apps/geissclk/precompute.js
@@ -0,0 +1,108 @@
+// PALETTES ---------------------------
+E.showMessage("Precomputing\npalettes\n\nPlease wait...\n0 / 3");
+(function() { // fire
+  for (var i=0;i<256;i++) {
+    var r = Math.min(i*6,240);
+    var g = Math.min(i*3,240);
+    var b = E.clip((i-192)*8,0,240);
+    pal[i] = (b>>3) | ((g&0xFC)<<3) | ((r&0xF8)<<8);
+  }pal[255] = 65535;
+})()
+require("Storage").write("geissclk.0.pal",pal.buffer);
+E.showMessage("Precomputing\npalettes\n\nPlease wait...\n1 / 3");
+(function() { // gunge
+  for (var i=0;i<256;i++) {
+    var r = 0;
+    var g = Math.min(i*3,255);
+    var b = Math.min(i,255);
+    pal[i] = (b>>3) | ((g&0xFC)<<3) | ((r&0xF8)<<8);
+  }pal[255] = 65535;
+})()
+require("Storage").write("geissclk.1.pal",pal.buffer);
+E.showMessage("Precomputing\npalettes\n\nPlease wait...\n2 / 3");
+(function() { // rainbow
+  for (var i=0;i<256;i++) {
+    var cl = E.HSBtoRGB((48+i)/128,1,Math.min(i/16,0.9),true);
+    var r = cl[0];
+    var g = cl[1];
+    var b = cl[2];
+    pal[i] = (b>>3) | ((g&0xFC)<<3) | ((r&0xF8)<<8);
+  }pal[255] = 65535;pal[255] = 65535;
+})()
+require("Storage").write("geissclk.2.pal",pal.buffer);
+
+
+// MAPS ----------------------------------------------
+E.showMessage("Precomputing\nmaps\n\nPlease wait...\n0");
+// straight out
+(function() { "ram"; var n = 0; for (var y=0;y<H;y++) {
+  for (var x=0;x<W;x++) {
+    var dx = x-(W/2);
+    var dy = y-(H/2);
+    var d = Math.sqrt(dx*dx + dy*dy);
+    var s = -2 + Math.sin(d*0.5);
+    dx = dx*s/d;
+    dy = dy*s/d;
+    map[n++] = ((dx*2 + 8) & 0x0F) | (((dy*2 + 8) & 0x0F)<<4);
+  }
+}})();
+require("Storage").write("geissclk.0.map",map);
+E.showMessage("Precomputing\nmaps\n\nPlease wait...\n1 / 5");
+// ripple out
+(function() { "ram";  var n = 0; for (var y=0;y<H;y++) {
+  for (var x=0;x<W;x++) {
+    var dx = x-(W/2);
+    var dy = y-(H/2);
+    var d = Math.sqrt(dx*dx + dy*dy);
+    var s = -2 + Math.sin(d*0.5)/2;
+    dx = dx*s/d;
+    dy = dy*s/d;
+    map[n++] = ((dx*3 + 8) & 0x0F) | (((dy*3 + 8) & 0x0F)<<4);
+  }
+}})();
+require("Storage").write("geissclk.1.map",map);
+E.showMessage("Precomputing\nmaps\n\nPlease wait...\n2 / 5");
+// twisty outwards
+(function() { "ram";  var n = 0; for (var y=0;y<H;y++) {
+  for (var x=0;x<W;x++) {
+    var dx = x-(W/2);
+    var dy = y-(H/2);
+    var d = Math.sqrt(dx*dx + dy*dy);
+    dx = (-dx/d) + (((y&7)>3)?0.5:-0.5);
+    dy = (-dy/d) + (((x&7)>3)?0.5:-0.5);
+    map[n++] = ((dx*3 + 8) & 0x0F) | (((dy*3 + 8) & 0x0F)<<4);
+  }
+}})()
+require("Storage").write("geissclk.2.map",map);
+E.showMessage("Precomputing\nmaps\n\nPlease wait...\n3 / 5");
+// spiral
+(function() { "ram";  var n = 0; for (var y=0;y<H;y++) {
+  for (var x=0;x<W;x++) {
+    var dx = x-(W/2);
+    var dy = y-(H/2);
+    var d = Math.sqrt(dx*dx + dy*dy);
+    var cx = (2*dy-dx)/(2*d);
+    var cy = (-2*dx-dy)/(2*d);
+    map[n++] = ((cx*3 + 8) & 0x0F) | (((cy*3 + 8) & 0x0F)<<4);
+  }
+}})();
+require("Storage").write("geissclk.3.map",map);
+E.showMessage("Precomputing\nmaps\n\nPlease wait...\n4 / 5");
+// blur down
+(function() { "ram";  var n=0; for (var y=0;y<H;y++) {
+  for (var x=0;x<W;x++) {
+    map[n++] = 136 - 6*16 + (y&1)*8-4;
+  }
+}})()
+require("Storage").write("geissclk.4.map",map);
+E.showMessage("Precomputing\nmaps\n\nPlease wait...\n5 / 5");
+// twisty
+(function() { "ram";  var n=0; for (var y=0;y<H;y++) {
+  for (var x=0;x<W;x++) {
+    dx = Math.sin(y*0.2);
+    dy = Math.cos(x*0.2);
+    map[n++] = ((dx*6 + 8) & 0x0F) | (((dy*6 + 8) & 0x0F)<<4);
+  }
+}})()
+require("Storage").write("geissclk.5.map",map)
+E.showMessage("Finished!");