Einzelkacheln und Listenkacheln
Author: Werner Knobloch
Date: 2 April 2013

\text {Eine Kachel wird in y Richtung über 2 x-Reihen definiert:       Punkt(j,k),   Punkt(j+1,k) ,   Punkt(j,k+1),   Punkt(j+1,k+1) } 

Färbung bei Einzelkacheln und Listenkacheln

Listenkacheln können nur einheitlich gefärbt  bzw. mit Attributen versehen werden.
Zum individuellen Färben muss jede Kachel einzeln aus der Liste herauskopiert werden.

 \scalebox{1}\text   {Werner Knobloch, 2013} \
 \scalebox{0.9}\text   {Animationsidee: Raymond 'Rami'} 

r_2 = 1 (slider from 1 to 5, step 0.1)
F = (9.92, -5.12)
r_1 = 1 (slider from 1 to 5, step 0.1)
H = (0.6, -7.18)
I = (0.1, -6.88)
G = (13.3, -4.52)
A = (-0.44, 0.88)
n_x = 4 (slider from 1 to 5, step 1)
step_y = 1 (slider from 0 to 2, step 0.1)
step_x = 1.7 (slider from 0 to 2, step 0.1)
n_y = 3 (slider from 1 to 5, step 1)
Punkte = Sequence(Sequence[((j * step_x), (k * step_y)) + A, j, 0, n_x], k, 0, n_y)
Kacheln = Sequence(Sequence[Polygon[Element[Element[Punkte, j], k], Element[Element[Punkte, j], k + 1], Element[Element[Punkte, j + 1], k + 1], Element[Element[Punkte, j + 1], k]], k, 1, n_x], j, 1, n_y)
select_y = 2 (slider from 1 to n_x, step 1)
select_x = 1 (slider from 1 to n_x, step 1)
Vieleck_1 = Element(Element[Kacheln, select_y], select_x)
Text1 = LaTeX(Vieleck_1, false, true)
Text2 = LaTeX(Kacheln, false, true)
Text3 = LaTeX(Punkte, true, true)
Kacheln_{Verbund} = Join(Kacheln)
m = 8 (slider from 1 to nxy, step 1)
Vieleck_2 = Element(Kacheln_{Verbund}, m)
nxy: (n_x * n_y)
Spalte_x = If(Mod[m, n_x] > 0, Mod[m, n_x], n_x)
Zeile_y: (m - Spalte_x) / n_x + 1
m_{Ziel}: (n_x * (select_y - 1)) + select_x
Text8: "" + (LaTeX[LaTeX[Spalte_x, false, true]]) + "=" + (LaTeX[Spalte_x]) + ""
Text5: "" + (LaTeX[LaTeX[Zeile_y, false, true]]) + "= " + (LaTeX[Zeile_y]) + ""
Text7: "" + (LaTeX[LaTeX[m_{Ziel}, false, true]]) + "=" + (LaTeX[m_{Ziel}]) + ""
Text6: "nxy =n_x \cdot n_y =" + (LaTeX[nxy]) + ""
k_2 = Circle(F, r_2)
C = Point(k_2)
k_1 = Circle(H, r_1)
B = Point(k_1)
E = (1.66, -4.86)
D = (9.48, -7.88)
globalesVieleck, b, d, c, e = Polygon(B, D, C, E)
stepx_2: (x(C) - x(B)) / n_x
stepy_2: (y(C) - y(B)) / n_y
Punkte2_{unverzerrt} = Sequence(Sequence[((j * stepx_2), (k * stepy_2)) + B, j, 0, n_x], k, 0, n_y)
Kacheln2_{unverzerrt} = Sequence(Sequence[Polygon[Element[Element[Punkte2_{unverzerrt}, j], k], Element[Element[Punkte2_{unverzerrt}, j], k + 1], Element[Element[Punkte2_{unverzerrt}, j + 1], k + 1], Element[Element[Punkte2_{unverzerrt}, j + 1], k]], k, 1, n_x], j, 1, n_y)
Linien_nx = Zip(Segment[A, B], A, Sequence[Point[Segment[B, D], j / n_x], j, 0, n_x], B, Sequence[Point[Segment[E, C], j / n_x], j, 0, n_x])
Linien_ny = Zip(Segment[A, B], A, Sequence[Point[Segment[B, E], j / n_y], j, 0, n_y], B, Sequence[Point[Segment[D, C], j / n_y], j, 0, n_y])
Punkte2 = Zip(Zip[Intersect[L1, L2], L2, Linien_nx], L1, Linien_ny)
Kacheln2 = Sequence(Sequence[Polygon[Element[Element[Punkte2, j], k], Element[Element[Punkte2, j], k + 1], Element[Element[Punkte2, j + 1], k + 1], Element[Element[Punkte2, j + 1], k]], k, 1, n_x], j, 1, n_y)
Kacheln2_{Verbund} = Join(Kacheln2)
Vieleck1_1 = Element(Element[Kacheln2, select_y], select_x)
Vieleck2_1 = Element(Kacheln2_{Verbund}, m)
unverzerrt = true
Blau_1: 1 - sin(select_x)
Blau_2: 1 / m
Rot_2: 1 / m
Grün_2: 1 - sin(m)
k = 7 (slider from 1 to nxy, step 0.1)
Rot_3: sin(k)
Grün_3: 1 - Rot_3
Grün_1: 1 - Rot_3
Rot_1: 1 - sin(select_x)
Blau_3: 1 - (Rot_3 * Grün_3)
Text10: "" + (LaTeX[LaTeX[Punkte, false, true]]) + ""
Text11 = LaTeX(Vieleck_2, false, true)
Animationskreise = true
Position2 = (2.96, 5.08)