Периодическая окраска плоских частей коробок

Периодическая окраска плоских частей коробок

Я использую код ниже, который создает слои разных цветов. Возникли проблемы с тем, чтобы сделать украшение, которое будет работать одновременно для каждого слоя в трех осях. Пожалуйста, помогите мне. Я надеюсь использовать 3 цвета a, b, c, чтобы раскрасить коробку в позиции (a, b, c) цветом a+b+c mod 3.

Код

% Plane partition
% Author: Jang Soo Kim
\documentclass{standalone}
\usepackage[danish]{babel}
\usepackage{ifthenx}
\usepackage{verbatim}
\usepackage{tikz}

% Three counters
\newcounter{x}
\newcounter{y}
\newcounter{z}
% The angles of x,y,z-axes
\newcommand{\xaxis}{210}
\newcommand{\yaxis}{-30}
\newcommand{\zaxis}{90}
% The top side of a cube
\newcommand{\topside}[3]{%
  \fill[fill=cubecolor, draw=black,shift={(\xaxis:#1)},shift={(\yaxis:#2)},
  shift={(\zaxis:#3)}] (0,0) -- (30:1) -- (0,1) --(150:1)--(0,0);
}
% The left side of a cube
\newcommand{\leftside}[3]{%
  \fill[fill=cubecolor, draw=black,shift={(\xaxis:#1)},shift={(\yaxis:#2)},
  shift={(\zaxis:#3)}] (0,0) -- (0,-1) -- (210:1) --(150:1)--(0,0);
}
% The right side of a cube
\newcommand{\rightside}[3]{%
  \fill[fill=cubecolor, draw=black,shift={(\xaxis:#1)},shift={(\yaxis:#2)},
  shift={(\zaxis:#3)}] (0,0) -- (30:1) -- (-30:1) --(0,-1)--(0,0);
}
% The cube 
\newcommand{\cube}[3]{%
  \topside{#1}{#2}{#3} \leftside{#1}{#2}{#3} \rightside{#1}{#2}{#3}
}

    % Definition cubecolors
\newcommand*\cubecolors[1]{%
  \ifcase#1\relax
  \or\colorlet{cubecolor}{green}%
  \or\colorlet{cubecolor}{blue}%
  \or\colorlet{cubecolor}{red}%
  \or\colorlet{cubecolor}{green}%
  \or\colorlet{cubecolor}{blue}%
  \or\colorlet{cubecolor}{red}%

  \else
    \colorlet{cubecolor}{white}%
  \fi
}

% Definition of \planepartition
\newcommand\planepartition[1]{
 \setcounter{x}{-1}
  \foreach \a in {#1} {
    \addtocounter{x}{1}

    \setcounter{y}{-1}
    \foreach \b in \a {
      \addtocounter{y}{1}

      \setcounter{z}{-1}
      \foreach \c in {0,...,\b} {
        \addtocounter{z}{1}

        \cubecolors{\a}
      \ifthenelse{\c=0}{\setcounter{z}{-1},\addtocounter{y}{0}}{
        \cube{\value{x}}{\value{y}}{\value{z}}}
      }
    }
  }
}

    \begin{document}
\begin{tikzpicture}
\planepartition{{5,3,2,2},{4,2,2,1},{3,2,1},{2,1},{1}}
\end{tikzpicture}
   \end{document}

решение1

Я думаю, что должен быть способ сделать раскраску с помощью , modно я не уверен, как на данный момент (в свою защиту, это немного поздно). Однако в то же время я могу предложить вам альтернативу, которая позволит вам избавиться от счетчиков, которые полезны, но это все еще лишний код, а также от пакета ifthenxи \ifthenelseкоманды, замененных на \ifnum### ... \else ... \fi.

Поэтому вы можете заменить вашу \planepartitionкоманду следующим образом:

\newcommand\planepartition[1]{
  \foreach \a [count=\x starting from -1] in {#1} {
    \foreach \b [count=\y starting from -1] in \a {
      \foreach \c [count=\z starting from -1] in {0,...,\b} {
        \cubecolors{\a}
        \ifnum\c=0
        \else
            \cube{\x}{\y}{\z} 
        \fi
      }
    }
  }
}

Связанный контент