Lumon-8 (#Pico1K)

<р>

LUMON-8 был попыткой создать программу очистки макроданных (MDR) из телешоу Severance, используя только 1024 сжатых байта кода. strong>, для #Pico1k Jam 2022.

Я также рекомендую слушать саундтрек Severance, пока вы уточняете цифры (это ваш любимый Outie! 🎵)

БЛАГОДАРНОСТИ

• Это творение фанатов и не имеет никакого отношения к Apple.
• Большой кусок кода был использован для создания пользовательского шрифта для крошечных чисел, который был вдохновлен шрифтами Not Jam. Pixel 5 и Particle.
• Carl Chimes для CRT HTML-пластины
  (использует шейдер @Mattias_G + на основе HTML-шаблона @Ultrabrite)
• 2DArray's Demo-Man — для lerping кода фрагменты.
• Упрощенный пользовательский интерфейс, вдохновленный этим онлайн-клоном интерфейса MDM.
• Severance, воссозданный в Blender 3.1
• The Severance — электронная книга Lexington Letter — для MDM ссылка.
• Этот фан-сайт Lumon Industries - для получения дополнительной информации
  (+ за то, что позволили мне создать эту замечательную визитную карточку... 🤓)

ИСТОЧНИК КОД (1024 байта) тыкать(24365,1)тыкать(22016,4,4,6)тыкать(22401,2,5,5,2,0,0,0,0,3,2,2,2,0,0,0, 0,3,4,2,7,0,0,0,0,7,2,4,3,0,0,0,0,5,5,15,4,0,0,0,0, 7,1,4,3,0,0,0,0,2,1,5,2,0,0,0,0,7,4,2,1,0,0,0,0,7, 5,7,7,0,0,0,0,2,5,4,2,0,0,0,0,0,5,2,5,0,0,0,0,9,4, 2,9,0,0,0,0,1,3,5,9,15,1,0) и=0 v=0 е={}г={ {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}}?"\astb3a#ga#a#gg" а={1,2,3,4,5}::_:: овал(90,1,126,15,12) оваль(99,2,116,14) прямоугольник (5,4,121,12) г = ложь х=статистика(32) у=статистика(33) если stat(34)>0 и #a>0, то если (не d) d=истина j=x k=y еще если (г), то г = правда v=0,01 s=rnd(а) конец г = ложь j=ноль конец прямоугольник (-1,17,128,19) прямоугольник (-1 101 128 103) для i=0,127 сделать n=f[i] или { n=rnd()*10\1, х=(я*8)%128+2, у=((я*8)\128)*10+22, а=(я*8)%128+2, б=((я*8)\128)*10+22, г = 0,5, v=rnd(), }z=n.z+sin(u+n.v) if(j)n.s=n.xj и n.yk и z>1,4 ?((((x-n.x)^2+(y-n.y)^2)^█<12 или z>1.4) и "" или "\14")..n.n,n.x,n.y,ns и 7 или 12 if(r и ns) n.u=(s-1)*24+12 если н.у. то n.x=n.a*(1-v)+n.u*v n.y=n.b*(1-v)+103*v если (v>1), то п=ноль k=rnd{1,2,3,4}g[s][k]=min(g[s][k]+1,25) конец конец е [я] = п конец если (d) прямоугольник(j,k,x,y) и+=.0005 если v>0, то v+=.04 l=(s-1)*24+5w=mid(0,77-abs(v/2%4-0,77), 0,37)-0,25 для i=1,4 сделать ?"⁶#"..({"WO","FC","DR","MA"})[i].." ",l+2,112+i*6-w*4*65,(" 3421")[я] rectfill(l+11,113+i*6-w*4*65,l+11+.36*g[s][i],113+i*6+3-w*4*65) строка(l,110,l+sin(w)*10,110-cos(w)*10,7) линия (l+20,110,l+20-sin(w)*10,110-cos(w)*10) конец если(v>4)v=0 конец p=0rectfill(0,110,127,127,c) для i=1,5 сделать б=г[я] б[0]=б[1]+б[2]+б[3]+б[4] л=(i-1)*24+5 rectfill(l,119,l+.2*b[0],126,7) ?"\14 0"..i.."\n\|j"..b[0]..";",(i-1)*24+8,111,12 прямоугольник(l,110,l+20,117) прямоугольник(l,119,l+20,126) если(б[0]==100)дел(а,я) р+=б[0]с=0 конец если(р\5==75)с=т()\1%4 ?"sIENA ⁶w⁶x3\#"..c.."⁶-bLUMON",9,6 если(p\5==100)?"⁶w⁶t⁶#100%",50,50,7 ?"\14\f7<⁶1⁶c"..cх, у ?(p\5).."% ЗАВЕРШЕНО",38,6 идти к _