newyear
Author: Daniel Mentrard
Date: 16 Décembre 2015

Stop

2022

Šťastný

Nový Rok

Music

i_1 = -4.1 (slider from -5 to 5, step 0.1)
h = 7.8 (slider from 1 to 8)
v = 1.39 (slider from 0.2 to 2, step 0.01)
o = 7.97 (slider from 2 to 10, step 0.01)
I: (Random[-6, 0] + (0 * h), Random[3, 5] + (0 * h))
n = 19.3 (slider from 3 to 23, step 0.1)
nn: Random[10, 20] + (0 * n)
ang: (360 * ° / nn)
a = 4.3 (slider from 2 to 5, step 0.1)
A: (Random[2, 10] + (0 * h), Random[5, 8] + (0 * h))
c = Circle(A, a)
B = Point(c)
b = Segment(A, B)
m = 2.36 (slider from 1 to 5, step 0.01)
d = Circle(A, m)
C, H = Intersect(d, b)
liste1 = Sequence(Rotate[B, (i * ang), A], i, 0, nn)
liste3 = Sequence(Rotate[C, (i * ang) + ang / 2, A], i, 0, nn)
e = OrthogonalLine(A, b)
u = Vector(A, B)
liste8 = Sequence(Semicircle[Element[liste1, i], Element[liste1, i + 1]], i, 0, 30)
Vitesse = 1.4 (slider from 0 to 10, step 0.1)
liste2 = Sequence(Segment[A, Element[liste1, i]], i, 0, nn)
liste4 = Sequence(Semicircle[Element[liste3, i], Element[liste3, i + 1]], i, 0, nn)
liste5 = Sequence(Semicircle[Element[liste1, i], Element[liste3, i]], i, 0, nn)
liste6 = Sequence(CircumcircleArc[Element[liste1, i], A, Element[liste1, i + 1]], i, 0, nn)
liste9 = Sequence(Semicircle[Element[liste1, i], Element[liste3, i + 1]], i, 0, nn)
f = 3.96 (slider from 0.3 to 7, step 0.01)
g = Circle(A, f)
i = Line(A, yAxis)
E: A - (0, 12)
j = Segment(E, A)
k = Circle(E, If[(2 * a) < j, (2 * a), j])
F, G = Intersect(k, i)
p = Circle(I, o)
J = Point(p)
q = Circle(I, m)
l = Segment(I, J)
r = Circle(I, f)
L1 = Sequence(Rotate[J, (i * ang), I], i, 0, (2 * nn))
L2 = Sequence(Segment[I, Element[L1, i]], i, 0, nn)
K = Intersect(q, l)
L3 = Sequence(Rotate[K, (i * ang) + ang / 2, I], i, 0, nn)
L4 = Sequence(Semicircle[Element[L3, i], Element[L3, i + 1]], i, 0, nn)
L5 = Sequence(Semicircle[Element[L1, i], Element[L3, i]], i, 0, nn)
L6 = Sequence(CircumcircleArc[Element[L1, i], I, Element[L1, i + 1]], i, 0, nn)
L = Intersect(r, l)
L7 = Sequence(Rotate[L, (i * ang) + ang / 2, I], i, 0, nn)
L8 = Sequence(Semicircle[Element[L1, i], Element[L1, i + 1]], i, 0, 30)
L9 = Sequence(Semicircle[Element[L1, i], Element[L3, i + 1]], i, 0, nn)
L11_2 = Sequence(Semicircle[Element[L7, i], Element[L7, i + 1]], i, 0, nn)
liste10 = Sequence(Semicircle[Element[L1, i], Element[L7, i]], i, 0, nn)
L11 = Sequence(Semicircle[Element[L1, i], Element[L7, i + 1]], i, 0, nn)
M: I - (0, 12)
N: (Random[-5, 0] + (0 * h), Random[0, 8] + (0 * h))
s = Circle(N, (2 * v))
O = Point(s)
t = Segment(N, O)
c_1 = Circle(N, (m + v) / 2)
P = Intersect(c_1, t)
liste13 = Sequence(Rotate[P, (i * ang), N], i, 0, nn)
a_1 = Segment(I, M)
d_1 = Circle(M, If[(2 * o) < a_1, (2 * o), a_1])
Q = Intersect(d_1, a_1)
R: N - (0, 10)
b_1 = Segment(N, R)
e_1 = Circle(R, If[(5 * v) < b_1, (5 * v), b_1])
S = Intersect(e_1, b_1)
T: (Random[0, 10] + (0 * h), Random[2, 8] + (0 * h))
w = 1.32 (slider from 0.5 to 4, step 0.01)
f_1 = Circle(T, w)
U = Point(f_1)
liste14 = Sequence(Rotate[U, (i * ang), T], i, 0, nn, 0.2)
liste15 = Sequence(Rotate[A, (i * ang), O], i, 0, nn, 0.9)
liste11 = Sequence(Rotate[O, (i * ang), N], i, 0, nn, 0.3)
liste16 = Sequence(Segment[N, Element[liste11, i]], i, 0, (5 * nn))
liste17 = Sequence(Segment[T, Element[liste14, i]], i, 0, (5 * nn))
V = (-8.888891063154004, -10.078594353440847)
W = (28.861948936846012, -10.078594353440847)
AA: (Random[5, 10] + (0 * h), Random[2, 6] + (0 * h))
Ra = 1.205 (slider from 0 to 3, step 0.001)
g_1 = Circle(AA, Ra)
OO: AA + (Ra, 0)
liste18 = Sequence(Rotate[OO, i, AA], i, 0, 6.28319, 1.25664)
liste19 = Sequence((x(AA) + (Ra / 4 * cos(i)), y(AA) + (Ra / 4 * sin(i))), i, 1.5708, 6.28319, 0.2)
PP: AA + (Ra / 4, 0)
liste20 = Sequence(AA + (i * Vector[AA, PP]), i, 0, 1, 0.1)
liste21 = Sequence((x(AA) + (Ra * cos(i)), y(AA) + (Ra * sin(i))), i, 0, 6.28319, 0.1)
liste22 = Sequence(Circle[Element[liste18, i], Ra / 5], i, 1, Length[liste18])
zz = Mod(nn, 2)
D: (8.50155 + Ra, 0 + (2 * Ra))
Z = (22.286866961937733, -6.247445125236719)
A_1 = (25.77121663114861, -6.221247007423103)
C_1: (Random[2, 10] + (0 * i_1), Random[1, 4] + (0 * i_1))
B_1 = (20.42680059717102, -6.195048889609487)
z = 85 (slider from 1 to 90, step 1)
h_1 = 3.9 (slider from -5 to 5, step 0.1)
liste12 = Sequence((x(C_1), y(C_1)) + (((-4 * cos(0°)) * sin(i°)), (5 * cos(i°))), i, 0, z, h_1)
liste23 = Sequence((x(C_1), y(C_1)) + ((cos(0°) * sin(i°)), (5 * cos(i°))), i, 0, z, h_1)
liste24 = Sequence((x(C_1), y(C_1)) + (((-1 * cos(0°)) * sin(i°)), (5 * cos(i°))), i, 0, z, h_1)
liste7 = Sequence((x(C_1), y(C_1)) + (((5 * cos(0°)) * sin(i°)), (5 * cos(i°))), i, 0, z, h_1)
D_1 = (-7.127928813369443, -6.614215287455373)
E_1 = (17.46641518663054, -6.614215287455373)
F_1 = (15.920724333229133, -6.168850771795869)
G_1: (15 - o, -2.34393 + (1.5 * o))