joi-style-mag

joi-style-mag.tex

% Original: https://git.io/vQwmS
% convert -delay 4 -loop 0 -density 400 -alpha remove joi-style-mag.pdf joi-style-mag.gif
% !TeX program = lualatex
\RequirePackage{luatex85}
\documentclass[multi=my]{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}
	\foreach \mag in {1.00000,1.03526,1.07177,1.10957,1.14870,1.18921,1.23114,1.27456,1.31951,1.36604,1.41421,1.46409,1.51572,1.56917,1.62450,1.68179,1.74110,1.80250,1.86607,1.93187,2.00000,2.07053,2.14355,2.21914,2.29740,2.37841,2.46229,2.54912,2.63902,2.73208,2.82843,2.92817,3.03143,3.13834,3.24901,3.36359,3.48220,3.60500,3.73213,3.86375,4.00000,4.14106,4.28709,4.43828,4.59479,4.75683,4.92458,5.09824,5.27803,5.46416,5.65685,5.85634,6.06287,6.27667,6.49802,6.72717,6.96440,7.21000,7.46426,7.72749,8.00000,8.28212,8.57419,8.87656,9.18959,9.51366,9.84916,10.19649,10.55606,10.92832,11.31371,11.71269,12.12573,12.55335,12.99604,13.45434,13.92881,14.42001,14.92853,15.45498,16.00000,16.56424,17.14838,17.75311,18.37917,19.02731,19.69831,20.39297,21.11213,21.85664,22.62742,23.42537,24.25147,25.10669,25.99208,26.90869,27.85762,28.84001,29.85706,30.90996}{
		\begin{my}
			\begin{tikzpicture}
				\clip (-8.2,8.2) rectangle (0.2,-0.2);
%				\clip (-8.15,8.15) rectangle (0.15,-0.15);
	%			\draw[white] (-8.2,8.2) rectangle (0.2,-0.2);
				\luaexec{
					s = {"joiblack", "joiblue", "joiyellow", "joigreen", "joired"}
					tp=tex.print
					two = {\mag*4}
					gap = {\mag*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{my}
	}
\end{document}

Result: https://i.imgur.com/a5gosFu.gif (Warning! Size large: 4.3MB)