Azulejo

Dibujo libre

Rastro

Color manual

grupo = 1 (slider from 1 to 2, step 1)
orden = 5 (slider from 1 to 20, step 1)
n: orden
α: (360 * ° / n)
α2 = If(grupo ≟ 1, α, α / 2)
CRot' = (8.52, 0.34)
A' = (2.92, 0.34)
m: n / 2
Q: Corner[pincel, 1] + (0.05, 0)
k = 2.8 (slider from -5 to 5, step 0.1)
B' = Rotate(A', α, CRot')
rB = Line(CRot', B')
rA = Line(CRot', A')
g = Circle(CRot', A')
R0: CRot' + (0.78, 1.47)
yQ = 1.16
xQ = 5.6000000000000005 (slider from 2.26 to 20, step 0.01)
E = (-2.58, -2.3000000000000003)
fi = 1.618033988749895
H = (0.2, -4.88)
A1 = 1
A2 = 2
xGoma = -0.4 (slider from -0.4 to 0.1, step 0.01)
yGoma = -2 (slider from -2 to -1.7, step 0.01)
azulM = 22 (slider from 0 to 100, step 1)
rojoM = 70 (slider from 0 to 100, step 1)
verdeM = 54 (slider from 0 to 100, step 1)
patrón = true
libre = true
rastro = false
manual = false
b = Ray(CRot', A')
qx = Circle(CRot', Q)
qy = Ray(CRot', Q)
Qx = Intersect(qx, b)
PuntoGoma: (xGoma, yGoma)
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
azulA: (Distance[Q, A'] / Distance[CRot', A'] * 0.8)
rojoA: Distance[Q, rB] / Distance[A', rB]
rojo = If(manual, rojoM / 100, rojoA)
verdeA: Distance[Q, rA] / Distance[B', rA]
verde = If(manual, verdeM / 100, verdeA)
azul = If(manual, azulM / 100, azulA)
muestraColor: {Polygon[H, H + (1, 0), H + (1, fi), H + (0, fi)]}
texto1_1: "% Rojo = " + rojoM + "

% Verde = " + verdeM + "

% Azul = " + azulM
QR = Mirror(Q, CRot')
PPP: (xQ, yQ)
ε = 2
Qy = Intersect(g, qy)
listaP = Sequence(Rotate[Q, (s * α), CRot'], s, 0, n - 1)
B1 = Element(listaP, A1)
c = Circle(CRot', A')
C' = Rotate(A', α2, CRot')
patron = CircleSector(CRot', A', C')
texto1: "Orden " + n
rectas1 = Sequence(Segment[Rotate[CRot', (s * α), CRot'], Rotate[A', (s * α), CRot']], s, 1, n)
test: (AffineRatio[CRot', A', Qx] ≥ 0) ∧ (AffineRatio[CRot', A', Qx] ≤ 1) ∧ libre ∧ rastro ∧ (Angle[A', CRot', Qy] ≤ α2)
B2 = Element(listaP, A2)
B3 = Element(listaP, A3)
B4 = Element(listaP, A4)
B5 = Element(listaP, A5)
B6 = Element(listaP, A6)
B7 = Element(listaP, A7)
B8 = Element(listaP, A8)
B9 = Element(listaP, A9)
B10 = Element(listaP, A10)
B11 = Element(listaP, A11)
B12 = Element(listaP, A12)
B13 = Element(listaP, A13)
B14 = Element(listaP, A14)
B15 = Element(listaP, A15)
B16 = Element(listaP, A16)
B17 = Element(listaP, A17)
B18 = Element(listaP, A18)
B19 = Element(listaP, A19)
B20 = Element(listaP, A20)
B = Rotate(A', α / 2, CRot')
Q2 = Mirror(Q, Line[CRot', B])
listaP2 = Sequence(Rotate[Q2, (s * α), CRot'], s, 0, n - 1)
C1 = Element(listaP2, A1)
C2 = Element(listaP2, A2)
C3 = Element(listaP2, A3)
C4 = Element(listaP2, A4)
C5 = Element(listaP2, A5)
C6 = Element(listaP2, A6)
C7 = Element(listaP2, A7)
C8 = Element(listaP2, A8)
C9 = Element(listaP2, A9)
C10 = Element(listaP2, A10)
C11 = Element(listaP2, A11)
C12 = Element(listaP2, A12)
C13 = Element(listaP2, A13)
C14 = Element(listaP2, A14)
C15 = Element(listaP2, A15)
C16 = Element(listaP2, A16)
C17 = Element(listaP2, A17)
C18 = Element(listaP2, A18)
C19 = Element(listaP2, A19)
C20 = Element(listaP2, A20)
texto2: "" + (If[grupo ≟ 1, "Cíclico", "Diedro"])