(495) 240-82-80ПН-СБ с 10:00 до 18:00
We speak English

Урок 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;