-- Script for displaying GPS location of a model as a QR code. https://github.com/alufers/edgetx-gps-qrcode
local function a(b,c)local d=""while b>0 do rest=math.fmod(b,2)d=d..rest;b=math.floor((b-rest)/2)end;for e=#d+1,c do d=d.."0"end;return string.reverse(d)end;local function f(g,h,i,j)if h=="1"then g[i][j]=2 else g[i][j]=-2 end end;local k={19,34,55,80,108,136,156,194,232,274,324}local function l(m)local n=4;local c,o,p,q;local r=40;for s=1,#k do c=k[s]*8;c=c-4;if s<10 then o=8 elseif s<27 then o=10 end;p=c-o;q=math.floor(p*1/13)if q>=m then if s<=r then r=s end;break end end;return r end;local function t(s,u)local v,w;local x=k[s]*8;v=math.min(4,x-#u)if v>0 then u=u..string.rep("0",v)end;if math.fmod(#u,8)~=0 then w=8-math.fmod(#u,8)u=u..string.rep("0",w)end;while#u<x do u=u.."11101100"if#u<x then u=u.."00010001"end end;return u end;local y={[0]=1,2,4,8,16,32,64,128,29,58,116,232,205,135,19,38,76,152,45,90,180,117,234,201,143,3,6,12,24,48,96,192,157,39,78,156,37,74,148,53,106,212,181,119,238,193,159,35,70,140,5,10,20,40,80,160,93,186,105,210,185,111,222,161,95,190,97,194,153,47,94,188,101,202,137,15,30,60,120,240,253,231,211,187,107,214,177,127,254,225,223,163,91,182,113,226,217,175,67,134,17,34,68,136,13,26,52,104,208,189,103,206,129,31,62,124,248,237,199,147,59,118,236,197,151,51,102,204,133,23,46,92,184,109,218,169,79,158,33,66,132,21,42,84,168,77,154,41,82,164,85,170,73,146,57,114,228,213,183,115,230,209,191,99,198,145,63,126,252,229,215,179,123,246,241,255,227,219,171,75,150,49,98,196,149,55,110,220,165,87,174,65,130,25,50,100,200,141,7,14,28,56,112,224,221,167,83,166,81,162,89,178,121,242,249,239,195,155,43,86,172,69,138,9,18,36,72,144,61,122,244,245,247,243,251,235,203,139,11,22,44,88,176,125,250,233,207,131,27,54,108,216,173,71,142,0,0}local z={[0]=256,0,1,25,2,50,26,198,3,223,51,238,27,104,199,75,4,100,224,14,52,141,239,129,28,193,105,248,200,8,76,113,5,138,101,47,225,36,15,33,53,147,142,218,240,18,130,69,29,181,194,125,106,39,249,185,201,154,9,120,77,228,114,166,6,191,139,98,102,221,48,253,226,152,37,179,16,145,34,136,54,208,148,206,143,150,219,189,241,210,19,92,131,56,70,64,30,66,182,163,195,72,126,110,107,58,40,84,250,133,186,61,202,94,155,159,10,21,121,43,78,212,229,172,115,243,167,87,7,112,192,247,140,128,99,13,103,74,222,237,49,197,254,24,227,165,153,119,38,184,180,124,17,68,146,217,35,32,137,46,55,63,209,91,149,188,207,205,144,135,151,178,220,252,190,97,242,86,211,171,20,42,93,158,132,60,57,83,71,109,65,162,31,45,67,216,183,123,164,118,196,23,73,236,127,12,111,246,108,161,59,82,41,157,85,170,251,96,134,177,187,204,62,90,203,89,95,176,156,169,160,81,11,245,22,235,122,117,44,215,79,174,213,233,230,231,173,232,116,214,244,234,168,80,88,175}local A={[7]={21,102,238,149,146,229,87,0},[10]={45,32,94,64,70,118,61,46,67,251,0},[15]={105,99,5,124,140,237,58,58,51,37,202,91,61,183,8,0},[17]={136,163,243,39,150,99,24,147,214,206,123,239,43,78,206,139,43,0},[18]={153,96,98,5,179,252,148,152,187,79,170,118,97,184,94,158,234,215,0},[20]={190,188,212,212,164,156,239,83,225,221,180,202,187,26,163,61,50,79,60,17,0},[24]={21,227,96,87,232,117,0,111,218,228,226,192,152,169,180,159,126,251,117,211,48,135,121,229,0},[26]={70,218,145,153,227,48,102,13,142,245,21,161,53,165,28,111,201,145,17,118,182,103,2,158,125,173,0},[30]={180,192,40,238,216,251,37,156,130,224,193,226,173,42,125,222,96,239,86,110,48,50,182,179,31,216,152,145,173,41,0}}local function B(C,D)local E={[0]=0}for e=0,D-C-1 do E[e]=0 end;local F=A[C]for e=1,C+1 do E[D-C+e-1]=F[e]end;return E end;local function G(H)local I={}for e=0,#H do I[e]=z[H[e]]end;return I end;local function J(H)local I={}for e=0,#H do I[e]=y[H[e]]end;return I end;local function K(u,C)local L={}for e=1,#u,8 do L[#L+1]=tonumber(string.sub(u,e,e+7),2)end;local M=#L;local D=M+C-1;local E,N;local O;local P,Q;local R={}for e=1,M do R[D-e+1]=L[e]end;for e=1,D-M do R[e]=0 end;R[0]=0;Q=G(R)while D>=C do E=B(C,D)local S=Q[D]for e=D,D-C,-1 do if S~=256 then if E[e]+S>=255 then E[e]=math.fmod(E[e]+S,255)else E[e]=E[e]+S end else E[e]=256 end end;for e=D-C-1,0,-1 do E[e]=256 end;P=J(E)R=J(Q)N={}for e=D,0,-1 do N[e]=bit32.bxor(P[e],R[e])end;O=D;for e=O,0,-1 do if e<C then break end;if N[e]==0 then N[e]=nil;D=D-1 else break end end;R=N;Q=G(R)end;local T={}for e=#R,0,-1 do T[#T+1]=R[e]end;return T end;local U={{1,{26,19,2}},{1,{44,34,4}},{1,{70,55,7}},{1,{100,80,10}},{1,{134,108,13}},{2,{86,68,9}},{2,{98,78,10}},{2,{121,97,12}},{2,{146,116,15}},{2,{86,68,9},2,{87,69,9}},{4,{101,81,10}}}local V={0,7,7,7,7,7,0,0,0,0,0,0,0,3,3,3,3,3,3,3,4,4,4,4,4,4,4,3,3,3,3,3,3,3,0,0,0,0,0,0}local function W(s,u)if type(u)=="table"then local N=""for e=1,#u do N=N..a(u[e],8)end;u=N end;local X=U[s]local Y,Z;local _={}local a0={}local a1=1;local a2=0;local a3=0;for e=1,#X/2 do for a4=1,X[2*e-1]do Y=X[2*e][2]Z=X[2*e][1]-X[2*e][2]a3=a3+Z*8;_[#_+1]=string.sub(u,a2*8+1,(a2+Y)*8)local a5=K(_[#_],Z)local a6=""for i=1,#a5 do a6=a6 ..a(a5[i],8)end;a0[#a0+1]=a6;a2=a2+Y;a1=a1+1 end end;local a7=""a2=1;repeat for e=1,#_ do if a2<#_[e]then a7=a7 ..string.sub(_[e],a2,a2+7)end end;a2=a2+8 until#a7==#u;local a8=""a2=1;repeat for e=1,#a0 do if a2<#a0[e]then a8=a8 ..string.sub(a0[e],a2,a2+7)end end;a2=a2+8 until#a8==a3;return a7 ..a8 end;local function a9(aa)local ab=#aa;for e=1,8 do for ac=1,8 do aa[e][ac]=-2;aa[ab-8+e][ac]=-2;aa[e][ab-8+ac]=-2 end end;for e=1,7 do aa[1][e]=2;aa[7][e]=2;aa[e][1]=2;aa[e][7]=2;aa[ab][e]=2;aa[ab-6][e]=2;aa[ab-e+1][1]=2;aa[ab-e+1][7]=2;aa[1][ab-e+1]=2;aa[7][ab-e+1]=2;aa[e][ab-6]=2;aa[e][ab]=2 end;for e=1,3 do for ac=1,3 do aa[2+ac][e+2]=2;aa[ab-ac-1][e+2]=2;aa[2+ac][ab-e-1]=2 end end end;local function ad(aa)local ae,af;ae=7;af=9;for e=af,#aa-8 do if math.fmod(e,2)==1 then aa[e][ae]=2 else aa[e][ae]=-2 end end;for e=af,#aa-8 do if math.fmod(e,2)==1 then aa[ae][e]=2 else aa[ae][e]=-2 end end end;local ag={{},{6,18},{6,22},{6,26},{6,30},{6,34},{6,22,38},{6,24,42},{6,26,46},{6,28,50},{6,30,54}}local function ah(aa)local s=(#aa-17)/4;local ai=ag[s]local aj,ak;for i=1,#ai do for j=1,#ai do if not(i==1 and j==1 or i==#ai and j==1 or i==1 and j==#ai)then aj=ai[i]+1;ak=ai[j]+1;aa[aj][ak]=2;aa[aj+1][ak]=-2;aa[aj-1][ak]=-2;aa[aj+2][ak]=2;aa[aj-2][ak]=2;aa[aj][ak-2]=2;aa[aj+1][ak-2]=2;aa[aj-1][ak-2]=2;aa[aj+2][ak-2]=2;aa[aj-2][ak-2]=2;aa[aj][ak+2]=2;aa[aj+1][ak+2]=2;aa[aj-1][ak+2]=2;aa[aj+2][ak+2]=2;aa[aj-2][ak+2]=2;aa[aj][ak-1]=-2;aa[aj+1][ak-1]=-2;aa[aj-1][ak-1]=-2;aa[aj+2][ak-1]=2;aa[aj-2][ak-1]=2;aa[aj][ak+1]=-2;aa[aj+1][ak+1]=-2;aa[aj-1][ak+1]=-2;aa[aj+2][ak+1]=2;aa[aj-2][ak+1]=2 end end end end;local al={[-1]="111111111111111",[0]="111011111000100","111001011110011","111110110101010","111100010011101","110011000101111","110001100011000","110110001000001","110100101110110"}local function am(g,an)local ao=al[an]local ap;for e=1,7 do ap=string.sub(ao,e,e)f(g,ap,9,#g-e+1)end;for e=8,9 do ap=string.sub(ao,e,e)f(g,ap,9,17-e)end;for e=10,15 do ap=string.sub(ao,e,e)f(g,ap,9,16-e)end;for e=1,6 do ap=string.sub(ao,e,e)f(g,ap,e,9)end;ap=string.sub(ao,7,7)f(g,ap,8,9)for e=8,15 do ap=string.sub(ao,e,e)f(g,ap,#g-15+e,9)end end;local aq={"001010010011111000","001111011010000100","100110010101100100","110010110010010100","011011111101110100"}local function ar(g,s)if s<7 then return end;local ab=#g;local h=aq[s-6]local i,j,ap;local as,at;as=ab-10;at=1;for e=1,#h do ap=string.sub(h,e,e)i=as+math.fmod(e-1,3)j=at+math.floor((e-1)/3)f(g,ap,i,j)end;as=1;at=ab-10;for e=1,#h do ap=string.sub(h,e,e)i=as+math.floor((e-1)/3)j=at+math.fmod(e-1,3)f(g,ap,i,j)end end;local function au(s,an)local ab;local aa={}ab=s*4+17;for e=1,ab do aa[e]={}for ac=1,ab do aa[e][ac]=0 end end;a9(aa)ad(aa)ar(aa,s)aa[9][ab-7]=2;ah(aa)am(aa,an)return aa end;local function av(an,i,j,aw)i=i-1;j=j-1;local ax=false;if an==-1 then elseif an==0 then if math.fmod(i+j,2)==0 then ax=true end elseif an==1 then if math.fmod(j,2)==0 then ax=true end elseif an==2 then if math.fmod(i,3)==0 then ax=true end elseif an==3 then if math.fmod(i+j,3)==0 then ax=true end elseif an==4 then if math.fmod(math.floor(j/2)+math.floor(i/3),2)==0 then ax=true end elseif an==5 then if math.fmod(i*j,2)+math.fmod(i*j,3)==0 then ax=true end elseif an==6 then if math.fmod(math.fmod(i*j,2)+math.fmod(i*j,3),2)==0 then ax=true end elseif an==7 then if math.fmod(math.fmod(i*j,3)+math.fmod(i+j,2),2)==0 then ax=true end else assert(false,"mask must be <= 7")end;if ax then return 1-2*tonumber(aw)else return-1+2*tonumber(aw)end end;local function ay(g,i,j,az,aA)local T={}local a1=1;local aB=0;while a1<=#aA do if aB==0 and g[i][j]==0 then T[#T+1]={i,j}aB=1;a1=a1+1 elseif aB==1 and g[i-1][j]==0 then T[#T+1]={i-1,j}aB=0;a1=a1+1;if az==1 then j=j-1 else j=j+1 end elseif aB==0 and g[i-1][j]==0 then T[#T+1]={i-1,j}a1=a1+1;if az==1 then j=j-1 else j=j+1 end else if az==1 then j=j-1 else j=j+1 end end;if j<1 or j>#g then i=i-2;if i==7 then i=6 end;if az==1 then az=3;j=1 else az=1;j=#g end end end;return T,i,j,az end;local function aC(g,u,an)local ab=#g;local i,j,aD;local aE,aF,aG;local az=1;local aH=0;i,j=ab,ab;for aI=1,#u,8 do byte_end_idx=math.min(aI+7,#u)local aA=string.sub(u,aI,byte_end_idx)aH=aH+1;aD,i,j,az=ay(g,i,j,az,aA)for e=1,#aA do aE=aD[e][1]aF=aD[e][2]aG=av(an,aE,aF,string.sub(aA,e,e))if debugging then g[aE][aF]=aG*(e+10)else g[aE][aF]=aG end end end end;local function aJ(g)local aK,aL,aM=0,0,0;local ab=#g;local aN=0;local aO;local aP;local aQ;for i=1,ab do aQ=0;aO=nil;for j=1,ab do if g[i][j]>0 then aN=aN+1;aP=false else aP=true end;if aO==aP then aQ=aQ+1 else if aQ>=5 then aK=aK+aQ-2 end;aQ=1 end;aO=aP end;if aQ>=5 then aK=aK+aQ-2 end end;for j=1,ab do aQ=0;aO=nil;for i=1,ab do aP=g[i][j]<0;if aO==aP then aQ=aQ+1 else if aQ>=5 then aK=aK+aQ-2 end;aQ=1 end;aO=aP end;if aQ>=5 then aK=aK+aQ-2 end end;for i=1,ab do for j=1,ab do if j<ab-1 and i<ab-1 and(g[i][j]<0 and g[i+1][j]<0 and g[i][j+1]<0 and g[i+1][j+1]<0 or g[i][j]>0 and g[i+1][j]>0 and g[i][j+1]>0 and g[i+1][j+1]>0)then aL=aL+3 end;if j+6<ab and g[i][j]>0 and g[i][j+1]<0 and g[i][j+2]>0 and g[i][j+3]>0 and g[i][j+4]>0 and g[i][j+5]<0 and g[i][j+6]>0 and(j+10<ab and g[i][j+7]<0 and g[i][j+8]<0 and g[i][j+9]<0 and g[i][j+10]<0 or j-4>=1 and g[i][j-1]<0 and g[i][j-2]<0 and g[i][j-3]<0 and g[i][j-4]<0)then aM=aM+40 end;if i+6<=ab and g[i][j]>0 and g[i+1][j]<0 and g[i+2][j]>0 and g[i+3][j]>0 and g[i+4][j]>0 and g[i+5][j]<0 and g[i+6][j]>0 and(i+10<=ab and g[i+7][j]<0 and g[i+8][j]<0 and g[i+9][j]<0 and g[i+10][j]<0 or i-4>=1 and g[i-1][j]<0 and g[i-2][j]<0 and g[i-3][j]<0 and g[i-4][j]<0)then aM=aM+40 end end end;local aR=aN/(ab*ab)local aS=math.floor(math.abs(aR*100-50))*2;return aK+aL+aM+aS end;local function aT(s,u,an)local H=au(s,an)aC(H,u,an)local aU=aJ(H)return H,aU end;local function aV(s,u)local H,aU;local aW,aX;aW,aX=aT(s,u,0)for e=1,7 do H,aU=aT(s,u,e)if aU<aX then aW=H;aX=aU end end;return aW end;local function aY(aZ)local s=l(#aZ)local o;if s<10 then o=8 elseif s<27 then o=10 else assert(false,"version > 27 not supported")end;local a_=a(#aZ,o)local b0="0100"..a_;for e=1,#aZ do b0=b0 ..a(string.byte(string.sub(aZ,e,e)),8)end;b0=t(s,b0)local a7=W(s,b0)if math.fmod(#a7,8)~=0 then return nil end;a7=a7 ..string.rep("0",V[s])local H=aV(s,a7)return H end;local b1=false;local b2=15*100;local b3=LCD_W/2;local b4=nil;local b5=false;local b6,b7=0.0,0.0;local b8,b9=0.0,0.0;local ba=false;local bb=nil;local bc=0;local function bd()b4=getFieldInfo("GPS")and getFieldInfo("GPS").id or nil end;local function be()if b4 and getValue(b4)~=0 then local bf=getValue(b4)b8=string.format("%.6f",bf.lat)b9=string.format("%.6f",bf.lon)b5=true end;if ba then ba=false;bb=aY("geo:"..b6 ..","..b7)end end;local function bg()lcd.clear()if not b4 then lcd.drawText(b3-40,LCD_H/2-5,"No GPS sensor")lcd.drawText(b3-45,LCD_H/2+5,"Please discover")return 0 end;if not b5 then lcd.drawText(b3-40,LCD_H/2-5,"No GPS data yet")return 0 end;if b1==true then lcd.drawFilledRectangle(0,0,LCD_W,LCD_H,INVERS)end;local bh=getTime()if not bb or(b6~=b8 or b7~=b9)and bh-bc>=b2 then ba=true;b6=b8;b7=b9;bc=bh end;local bi=64;if bb then bi=#bb*2+4;for i=1,#bb do for j=1,#bb[i]do if bb[i][j]>0 then lcd.drawFilledRectangle(i*2,j*2,2,2)end end end else lcd.drawText(0,20,"QR...")end;if b1==true then lcd.drawFilledRectangle(bi,0,LCD_W-bi,LCD_H,0)end;bi=bi+2;lcd.drawText(bi,5,"Lat")lcd.drawText(bi,15,b8)lcd.drawText(bi,25,"Lon")lcd.drawText(bi,35,b9)lcd.drawText(bi,50,string.format("%.0fs ago",(bh-bc)/100))return 0 end;return{run=bg,init=bd,background=be}