JOI style profile picture

joi-style.tex

% !TeX program = lualatex
\RequirePackage{luatex85}
\documentclass{standalone}
\usepackage{tikz}
\usepackage{luacode}
\usepackage{graphicx}
\definecolor{joired}{RGB}{218,11,49}
\definecolor{joigreen}{RGB}{18,136,104}
\definecolor{joiyellow}{RGB}{250,210,49}
\definecolor{joiblue}{RGB}{15,105,180}
\definecolor{joiblack}{RGB}{0,0,1}

\begin{document}
	\begin{tikzpicture}
		\draw[white] (-8.2,8.2) rectangle (0.2,-0.2);
		\luaexec{
			s = {"joiblack", "joiblue", "joiyellow", "joigreen", "joired"}
			tp=tex.print
			two = {4}
			gap = {0.2}
			textscale = 1
			for i=2,50 do
				two[i] = two[i-1]*0.5
				gap[i] = gap[i-1]*0.5
			end
			for i=1,15 do
				tp("\\fill[" .. s[math.fmod(i+8,5)+1] .. "] (" .. (-2)*two[i] .. "," .. two[i]+gap[i] .. ") rectangle (" .. (-1)*two[i]-gap[i] .. "," .. 2*two[i] .. ");")
				tp("\\fill[" .. s[math.fmod(i+5,5)+1] .. "] (" .. (-1)*two[i] .. "," .. two[i]+gap[i] .. ") rectangle (" .. 0 .. "," .. 2*two[i] .. ");")
				tp("\\fill[" .. s[math.fmod(i+7,5)+1] .. "] (" .. (-2)*two[i] .. "," .. 0 .. ") rectangle (" .. (-1)*two[i]-gap[i] .. "," .. two[i] .. ");")
				tp("\\node at (" .. (3*two[i]+gap[i])*(-0.5) .. "," .. (3*two[i]+gap[i])*(0.5) .. ") {\\includegraphics[width=" .. textscale*(two[i]-gap[i]) .. "cm]{park.png}};")
				tp("\\node at (" .. (two[i])*(-0.5) .. "," .. (3*two[i]+gap[i])*(0.5) .. ") {\\includegraphics[width=" .. textscale*(two[i]-gap[i]) .. "cm]{seung.png}};")
				tp("\\node at (" .. (3*two[i]+gap[i])*(-0.5) .. "," .. (two[i])*(0.5) .. ") {\\includegraphics[width=" .. textscale*(two[i]-gap[i]) .. "cm]{won.png}};")
			end
		}
	\end{tikzpicture}
\end{document}