Урок 2.3. Рисование 3D сферы
Сфера. Мне нравится эффект, который можно добавить на калькуляторе HP Prime с помощью команды ARC в цикле с оператором FOR.
EXPORT DRAW3DSPH()
BEGIN
// 2021-01-22
LOCAL t;
RECT();
// цикл сферы
FOR t FROM 100 DOWNTO 1 DO
ARC_P(159, 109, t, 0, 2*π, #808080h);
END;
// наружная сторона
FOR t FROM 59 TO 259 DO
PIXON_P(t, −.0025*t^2+.795*t+70.975);
END;
WAIT(0);
END;