Урок 2.2. Рисование 3D цилиндра

Свой первый цилиндр я сделал буквально на этих выходных. Он похож на высокий стакан с водой.

EXPORT DRAW3DCYN()
BEGIN
  LOCAL t;
  HAngle := 0;
  RECT();
  // корпус цилиндра
  FOR t FROM 0 TO 100 STEP 1 DO
    ARC_P(159, 70+t, 20, 0, π, #7DF9FFh);
    ARC_P(159, 70+t, 20, π, 2*π, #1560BDh);
  END;
  // стороны
  LINE_P(139, 70, 139, 170, #1560BDh);
  LINE_P(179, 70, 179, 170, #1560BDh);
  ARC_P(159, 70, 20, 0, 2*π, #1560BDh);
  WAIT(0);

END;