Lumon-8 (#Pico1K)

Welcome to the Lumon Family Congratulations! 🎉 We are all thrilled you've decided to become part of Macrodata Refinement department, here at Lumon Industries. We shall now begin your orientation on being a successful Macrodata Refiner. OBJECTIVE Examine the numbers displayed in the data field in front of you which need refining.Using the roller ball, move the magnifying glass around the data field and see the numbers enlarge as it passed over them. Periodically, certain numbers may start to make you feel a certain way.There are four categories of numbers, each of which elicits a different feeling.WO - These numbers elicit melancholy or despair.FC - These numbers elicit joy or ecstasy.DR - These numbers elicit fear, anxiety or apprehension.MA - These numbers elicit rage or a desire to do harm.When you are ready, try highlighting a group of numbers by clicking and dragging over a data set. Then release to automatically drop the numbers into a bin.Once dropped into a bin, a progress report will display, showing the levels of each number type within that bin.Your job is to fill all five bins evenly, with the four kinds of numbers.Should you have any further questions, feel free to ask your supervisor. ...and remember - when you reach 75% completion, you'll be rewarded with a Music/Dance Experience! 🕺🚥Happy Refining and Praise Kier! 🔢⤵️🗑️ Paul N. - Macrodata Refinement CONTROLS Move PointerMouse MoveRefine NumbersMouse Click+Drag to select numbers ABOUT LUMON-8 was an attempt to demake the Macrodata Refining (MDR) Program from the TV show Severance, using only 1,024 compressed bytes of code, for #Pico1k Jam 2022. I also recommend listening to the Severance Soundtrack while you are refining numbers (it's your Outie's favourite! 🎵) ACKNOWLEDGEMENTS This is a fan creation and has no affiliation with Apple.A large chunk of the code was taken up creating a custom font for the tiny numbers, which was inspired the fonts Not Jam Pixel 5 and Particle.Carl Chimes for CRT HTML plate (uses @Mattias_G's shader + based on @Ultrabrite's HTML template)2DArray's Demo-Man - for lerping code snippets.Simplified UI inspired by this online clone of MDM interface.Severance, Recreated in Blender 3.1The Severance - The Lexington Letter eBook - for MDM reference.This Lumon Industries fan site - for more reference (+for letting me generate this sweet business card... 🤓) SOURCE CODE (1,024 bytes) poke(24365,1)poke(22016,4,4,6)poke(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) u=0 v=0 f={}g={ {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}}?"\astb3a#ga#a#gg" a={1,2,3,4,5}::_:: oval(90,1,126,15,12) oval(99,2,116,14) rect(5,4,121,12) r=false x=stat(32) y=stat(33) if stat(34)>0 and #a>0 then if (not d) d=true j=x k=y else if (d) then r=true v=.01 s=rnd(a) end d=false j=nil end rect(-1,17,128,19) rect(-1,101,128,103) for i=0,127 do n=f[i] or { n=rnd()*10\1, x=(i*8)%128+2, y=((i*8)\128)*10+22, a=(i*8)%128+2, b=((i*8)\128)*10+22, z=.5, v=rnd(), }z=n.z+sin(u+n.v) if(j)n.s=n.x j and n.y k and z>1.4 ?((((x-n.x)^2+(y-n.y)^2)^█<12 or z>1.4) and "" or "\14")..n.n,n.x,n.y,n.s and 7 or 12 if(r and n.s) n.u=(s-1)*24+12 if n.u then n.x=n.a*(1-v)+n.u*v n.y=n.b*(1-v)+103*v if(v>1)then n=nil k=rnd{1,2,3,4}g[s][k]=min(g[s][k]+1,25) end end f[i]=n end if (d) rect(j,k,x,y) u+=.0005 if v>0 then v+=.04 l=(s-1)*24+5w=mid(.77-abs(v/2%4-.77),.37)-.25 for i=1,4 do ?"⁶#"..({"WO","FC","DR","MA"})[i].." ",l+2,112+i*6-w*4*65,("3421")[i] rectfill(l+11,113+i*6-w*4*65,l+11+.36*g[s][i],113+i*6+3-w*4*65) line(l,110,l+sin(w)*10,110-cos(w)*10,7) line(l+20,110,l+20-sin(w)*10,110-cos(w)*10) end if(v>4)v=0 end p=0rectfill(0,110,127,127,c)for i=1,5 do b=g[i] b[0]=b[1]+b[2]+b[3]+b[4] l=(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 rect(l,110,l+20,117) rect(l,119,l+20,126) if(b[0]==100)del(a,i) p+=b[0]c=0 end if(p\5==75)c=t()\1%4 ?"sIENA ⁶w⁶x3\#"..c.."⁶-bLUMON",9,6 if(p\5==100)?"⁶w⁶t⁶#100%",50,50,7 ?"\14\f7<⁶1⁶c"..c,x,y ?(p\5).."% cOMPLETE",38,6 goto _