- Код: Выделить всё
For ring = 0 To Prim.Rings - 1
r0 = Sin((ring + 0) * RingAngle)
r1 = Sin((ring + 1) * RingAngle)
y0 = Cos((ring + 0) * RingAngle)
y1 = Cos((ring + 1) * RingAngle)
For seg = 0 To Prim.Segments
x0 = r0 * Sin(seg * SegAngle)
z0 = r0 * Cos(seg * SegAngle)
x1 = r1 * Sin(seg * SegAngle)
z1 = r1 * Cos(seg * SegAngle)
v(i + 0).Pos = Vec3(x0, y0, z0)
v(i + 0).TU = 1
v(i + 0).TV = 1
i = i + 1
v(i + 0).Pos = Vec3(x1, y1, z1)
v(i + 0).TU = 1
v(i + 0).TV = 1
i = i + 1
Next seg
Next ring
SegAngle = 2PI / Segments
RingAngle = Pi / Rings
Пока поставил по 1. Подскажите как можно посчитать координаты в таком коде. Чё то не пойму!