Cambiar a Semicircunferencia

Cambiar a Segmento

Ver generación del cuerpo

D = PointIn(a)
A = (0, 0, 4)
B = (0, 0, -2)
b = Line(A, B)
i = OrthogonalPlane(D, b)
C = PointIn(a)
h = OrthogonalPlane(C, b)
E = Intersect(b, h)
F: Intersect[b, i] + (0.001, 0, 0)
polígono1, tt, s, bt, e = Polygon(E, C, D, F)
α = 0 rad (slider from 0 to 6.283185307179586, step inc)
polígono1' = Rotate(polígono1, (-α), b)
C' = Rotate(C, (-α), b)
D' = Rotate(D, (-α), b)
s' = Segment(C', D')
D'_1 = Rotate(D, (-α), b)
F' = Rotate(F, (-α), b)
bt' = Segment(D'_1, F')
E' = Rotate(E, (-α), b)
C'_1 = Rotate(C, (-α), b)
tt' = Segment(E', C'_1)
botonpausa: false
inc = 0.017453292519943295 rad (slider from ° to 10°, step °)
semi: false
f = Semicircle(D, C, a)
G = Point(f)
g = CircumcircleArc(C, G, D)
g' = Rotate(g, (-α), b)
f' = Rotate(f, (-α), b)
c = CurveCartesian(((t * x(C)) + ((1 - t) * x(D)), 0, (t * z(C)) + ((1 - t) * z(D))), t, 0, 1)
d = Surface(c, α, b)
j = CurveCartesian(((t * x(C)) + ((1 - t) * x(E)), 0, (t * z(C)) + ((1 - t) * z(E))), t, 0, 1)
k = CurveCartesian(((t * x(D)) + ((1 - t) * x(F)), 0, (t * z(D)) + ((1 - t) * z(F))), t, 0, 1)
l = Surface(j, α, b)
m = Surface(k, α, b)
n = false
M = Midpoint(C, D)
r = Segment(M, C)
β = Angle(F, D, C)
o = CurveCartesian((x(M) + (r * cos(t)), 0, z(M) + (r * sin(t))), t, β, β + π)
p = Surface(o, α, b)