Inversão

$Cores \\aleatórias$

Colorir

$Cores \\aleatórias\\paleta$

Borda

Modo escuro

Variáveis

Cores complementares:

 RGB = {000, 072, 183} (azul)
 RGB = {255, 183, 072} (laranja)

Soma = {255, 255, 255} (branco)

Azulejo

$\scriptsize{Imagem \\como\; Traço}$

Fábrica

$\text{\bf\textcolor{red}{ATIVE O TRAÇO DO CÍRCULO ENCHIDO COM A IMAGEM DO AZULEJO}}$

Imagen "casi final"

3D

Imagen “casi final” desde la vista 3D con perspectiva 

$\text{\colorbox{white}\bf{Expandir e dimensionar}}$

animación = false
anima = 0.33 (slider from 0 to 1, step 0.001)
ulamX = 0
ulamY = 0
vel: 1
ulamC = 0
uC = 3
uX = -3
uY = -2
Centro: (0, 0)
u: (3.17515, 0)
v: (0, x(u))
t: (ulamX * u) + (ulamY * v) - Centro
p1: {Polygon[(0.32472, 0), (0.55433, 0.22961), (1.01355, 0.22961), (1.24316, 0), (1.01355, -0.22961), (0.55433, -0.22961)]}
lista1 = Join(Sequence[Rotate[p1, (k * pi / 4)], k, 0, 7])
tras1 = Translate(lista1, t)
p2: {Polygon[(0.87905, 0.22961), (0.87905, 0.55433), (1.20376, 0.87905), (1.35796, 0.72485), (1.35796, 0.22961)]}
p2' = Mirror(p2, xAxis)
lista2 = Join(Join[Sequence[Rotate[{p2, p2'}, (k * pi / 2)], k, 0, 3]])
tras2 = Translate(lista2, t)
c = Circle((0, 0), 4)
inv1 = Mirror(tras1, c)
inv2 = Mirror(tras2, c)
ulamN = 0
invertir = false
Export_1 = Corner(1, 1)
Export_2 = Corner(1, 3)
azar = false
p3: {Polygon[(1.35796, 1.03325), (1.35796, 0.72485), (1.58757, 0.49524), (1.81718, 0.72485), (1.81718, 1.03325), (1.58757, 1.26286)]}
p3' = Mirror(p3, xAxis)
p5: {Polygon[(0.87905, 0.87905), (1.20376, 0.87905), (1.35796, 1.03325), (1.35796, 1.35796), (1.03325, 1.35796), (0.87905, 1.20376)]}
lista3 = Join(Join[{Sequence[Rotate[{p3, p3'}, (k * pi / 2)], k, 0, 1], Sequence[Rotate[{p5}, (k * pi / 2)], k, 0, 3]}])
tras3 = Translate(lista3, t)
inv3 = Mirror(tras3, c)
p4: {Polygon[(1.35796, 0.11481), (1.24316, 0), (1.35796, -0.11481), (1.35796, -0.22961), (1.81718, -0.22961), (1.81718, -0.11481), (1.93198, 0), (1.81718, 0.11481), (1.81718, 0.22961), (1.35796, 0.22961)]}
lista4 = Join(Join[Sequence[Rotate[{p4}, (k * pi / 2)], k, 0, 1]])
tras4 = Translate(lista4, t)
inv4 = Mirror(tras4, c)
paleta: {{0, 72, 183}, {255, 183, 72}, {188, 155, 166}, {171, 171, 92}, {204, 0, 0}, {0, 180, 180}, {180, 180, 0}, {204, 0, 180}}
color: {{0, 0.2823529411764706, 0.7176470588235294},{1, 0.7176470588235294, 0.2823529411764706},{0.7372549019607844, 0.6078431372549019, 0.6509803921568628},{0.6705882352941176, 0.6705882352941176, 0.3607843137254902}}
colorear = true
azarP = false
borde = false
grosor = 1 (slider from 1 to 10, step 1)
textoGrosor: "" + grosor + ""
oscuro = false
númeroListas: 4
listaAzar = Sequence({random(), random(), random()}, k, 1, númeroListas)
cambiar = false
listaBorde = Sequence(If[oscuro, {1, 1, 1}, {0, 0, 0}], k, 1, númeroListas)
listaPaleta: Sequence[If[oscuro, 255 - paleta(k), paleta(k)], k, 1, númeroListas] / 255
listaAzarPaleta: Sequence[If[oscuro, 255 - paleta(Random[1, Length[paleta]]), paleta(Random[1, Length[paleta]])], k, 1, Length[paleta]] / 255
polígono1V: {(0.29472, 0), (0.49433, 0.19961), (0.199611714, 0.199611714), (0.259611714, 0.259611714), (0.55433, 0.25961), (0.84905, 0.55433), (0.90905, 0.55433), (0.61433, 0.25961), (1.01355, 0.25961), (1.38796, 0.19961), (1.07355, 0.19961), (1.27316, 0), (1.21316, 0), (1.01355, 0.19961), (0.55433, 0.19961), (0.35472, 0)}
polígono2V: {(0.84905, 0.22961), (0.84905, 0.55433), (1.20376, 0.90905), (1.38796, 0.72485), (1.38796, 0.19961), (1.01355, 0.19961), (1.01355, 0.25961), (1.32796, 0.25961), (1.32796, 0.72485), (1.20376, 0.84905), (0.90905, 0.55433), (0.90905, 0.22961)}
polígono3V: {(1.32796, 1.32796), (1.38796, 1.38796), (1.38796, 1.03325), (1.20376, 0.84905), (0.90905, 0.84905), (0.90905, 0.55433), (0.84905, 0.55433), (0.84905, 0.84905), (0.90905, 0.90905), (1.20376, 0.90905), (1.32796, 1.03325)}
polígono4V: {(1.32796, 1.03325), (1.58757, 1.29286), (1.84718, 1.03325), (1.84718, 0.72485), (1.58757, 0.46524), (1.32796, 0.72485), (1.38796, 0.72485), (1.58757, 0.52524), (1.78718, 0.72485), (1.78718, 1.03325), (1.58757, 1.23286), (1.38796, 1.03325)}
polígono5V: {(1.32796, 0.72485), (1.32796, 1.03325), (1.38796, 1.03325), (1.38796, 0.72485)}
negro01: {Polygon[polígono1V], Polygon[polígono2V], Polygon[polígono3V]}
negro01' = Mirror(negro01, y = x)
polígono1bV: {(1.24316, 0.03), (1.32796, 0.11481), (1.32796, 0.25961), (1.38796, 0.25961), (1.84718, 0.25961), (1.84718, 0.11481), (1.96198, 0), (1.90198, 0), (1.78718, 0.11481), (1.78718, 0.19961), (1.38796, 0.19961), (1.38796, 0.11481), (1.27316, 0), (1.21316, 0)}
negro02: {Polygon[polígono1bV], Polygon[polígono4V], Polygon[polígono5V]}
negro02a = Mirror(negro02, y = x)
negro02b = Mirror(negro02a, yAxis)
negro02c = Mirror(negro02, xAxis)
negro = Join({Sequence[Rotate[{negro01, negro01'}, (k * pi / 2)], k, 0, 3], negro02, negro02a, negro02b, negro02c})
negroT = Translate(negro, t)
negro' = Mirror(negroT, c)
A = (0.57, 0.62)
B = (4.63, 2.42)
f = Segment(A, B)
C = (1.17, 0.54)
D: (4.63, 1.78)
g = Segment(C, D)
op1 = true
op2 = false
op3 = false
E: (-7.37, 1.03)
d = Circle(E, 3)
e = Circle(E, 3)
activarRastroImagen = false
temp: false
P1 = NaN
imagenFinal = false
F: (x(polígono1V(11)), y(polígono1V(17)))
G: (x(polígono1V(13)), y(F))
H = Intersect(Line[F, G], Line[polígono1V(10), polígono1V(9)])
perspectiva3D = false
ampliar = false
escalar = 100 (slider from 5 to 100, step 5)
porcen: {porcen05, porcen10, porcen15, porcen20, porcen25, porcen30, porcen35, porcen40, porcen45, porcen50, porcen55, porcen60, porcen65, porcen70, porcen75, porcen80, porcen85, porcen90, porcen95, azulejosOriginales}
d': d
textoCopias: "Cópia: " + ulamN + "     
Volta: " + ulamC + ""