Área lateral = %v

r = 3 (slider from 1 to 5, step 0.1)
h = 4 (slider from 1 to 9, step 0.1)
O: (0, 0, 0)
g_1: sqrt(h^(2) + r^(2))
A: (g_1, 0, 0)
a = 0 rad (slider from 0° to fin, step 0.1°)
xB: (h^(2) - r^(2) + g_1^(2)) / ((2 * g_1))
B: (xB, 0, sqrt(h^(2) - xB^(2)))
b, c, d = Cone(B, O, r)
A' = Rotate(A, a, O)
e = Plane(B, xOyPlane)
C = Intersect(zAxis, e)
B' = Rotate(B, a, C)
b', f, i = Cone(B', O, r)
fin: ((r / g_1 * 360))°
k = CircleSector(O, A, A', xOyPlane)
A'' = Rotate(A', ((-a) * g_1 / r), Line[O, B'])
j = Segment(B', A'')
g = Segment(O, A')
A''_1 = Mirror(A', B')
A''' = Mirror(A'', B')
polígono1, l, n, p = Polygon(B', O, A'')
area: ((π * g) * r)
texto1: "Área lateral = " + area + ""
base: (π * r^(2))
texto2: "Área base = " + base + ""
nulo = 0.2 (slider from 0 to 1, step 0.1)