Построение сферы в Visual Basic.

[Sergantes]

Заранее прошу прощения, если данная тема уже существует (в поисковике вроде нет). Задача состоит в том, чтобы по точкам построить сферу. Для этого надо сперва 3-мерные координаты (x3,y3,z3) выразить через двумерные (x2,z2). Для этого дана система:

x2 = x3 + y3*Cos(alfa)
z2 = z3 - y3*Sin(alfa) , alfa - видимый угол между осями x3 и y3

затем трехмерные координаты выражаются через сферические:

z3 = R*Sin(fi)
y3 = R*Sin(nu)*Cos(fi)
x3 = R*Cos(nu)*Cos(fi), 
fi - угол между R и ее проекцией на плоскость x3oy3
nu - угол между осью x3 и проекцией R на x3oy3

И наконец, выразив сферические координаты через двумерные получается такая система:
x2 = R*Cos(nu)*Cos(fi) + R*Sin(nu)*Cos(fi)*Cos(alfa)
z2 = R*Sin(fi) - R*Sin(nu)*Cos(fi)*Sin(alfa)

Кажется довольно таки просто, но не получается , вместо сферы выходит что то вроде какого то "перекошенного эллипсоида".
Делал я так:

Private Sub Command1_Click()
xc = 500
yc = 500
zc = 500
pi = 3.14159265
R = 100
For nu = (0) To (2 * pi) Step 0.4
For fi = -pi / 2 To (pi / 2) Step 0.01
X2 = R * Cos(nu) * Cos(fi) + R * Cos(fi) * Sin(nu) * Cos(pi / 4)
z2 = R * Sin(fi) - R * Sin(nu) * Cos(fi) * Sin(pi / 4)
a.PSet (xc + X2, zc + z2)
Next fi
Next nu
End Sub

Не пойму, что неправильного? Чего только не пытался делать - результат все тот же((. Буду очень признателен тому, кто объяснит в чем дело или подскажет другой способ построения. Заранее спасибо.

[Black Fregat]

Неправильно - что не учитываешь сокращение длин вдоль наклонной оси.

Например, если рисовать в стандартной диметрии, альфа будет 45 градусов, а сокращение длины вдвое:

x2 = x3 + y3*sqrt(2)/4
y2 = z3 - y3*sqrt(2)/4

Кстати, знаки при y3 в этих формулах можно выбирать по вкусу

[Sergantes]

Black Fregat, спасибо большое! Точно, забыл я о наклонной.

[Hoross]

А тогда такой вопрос: как нарисовать модель Земли со всеми широтами и долготами и при этом нулевой меридиан и экватор выделялись цветом и была возможность задания в форме долготы и широты в градусах и чтобы сфера поворачивалась на данную точку?