Plantilla 3D
Author: Rafael Losada Liste

Mitad

Nautilus

Buccinum

Asteroceras

Bellerophina

Euhoplites

Natica

Almeja

mitad = false
f = 0.18 (slider from 0.05 to 2.5, step 0.01)
e = 0 (slider from 0 to 5, step 0.5)
d = 1 (slider from 0.75 to 3.5, step 0.05)
c = 1 (slider from 1 to 3, step 0.5)
b = 0.6 (slider from 0.25 to 2.75, step 0.05)
a = 1 (slider from 0.25 to 2.75, step 0.05)
r = 4.4 (slider from 0 to 20, step 0.1)
u1 = -20 (slider from -60 to 5, step 0.1)
u2 = -1.2 (slider from -30 to 0, step 0.1)
v2 = 6.283185307179586 (slider from -5 to 10, step 0.1)
v1: (π * mitad)
h = 4 (slider from 0 to 10, step 0.1)
g = Surface(((((r * ℯ^((f * u))) * (d + (a * cos(v)))) * cos((c * u))), (((r * ℯ^((f * u))) * (d + (a * cos(v)))) * sin((c * u))), h + ((r * ℯ^((f * u))) * ((-1.4 * e) + (b * sin(v))))), u, u1, u2, v, v1, v2)
concha = 1
matiz: Random[(0 * concha), 55] / 100
texto1: "r=" + (LaTeX[r]) + ""
texto2: "a=" + (LaTeX[a]) + ""
texto3: "b=" + (LaTeX[b]) + ""
texto4: "c=" + (LaTeX[c]) + ""
texto5: "d=" + (LaTeX[d]) + ""
texto6: "e=" + (LaTeX[e]) + ""
texto7: "f=" + (LaTeX[f]) + ""
texto8: "u_1=" + (LaTeX[u1]) + ""
texto10: "h=" + (LaTeX[h]) + ""
texto9: "u_2=" + (LaTeX[u2]) + ""
t = -3.06 (slider from u1 to u2, step 0.01)
i = CurveCartesian((((r * ℯ^((f * t))) * (d + (a * cos(v)))) * cos((c * t))), (((r * ℯ^((f * t))) * (d + (a * cos(v)))) * sin((c * t))), h + ((r * ℯ^((f * t))) * ((-1.4 * e) + (b * sin(v)))), v, v1, v2)