Урок 2.5. Рисунок заката

А этот рисунок мой любимый, потому что я люблю закаты.

EXPORT DRAWSUNSET()
BEGIN

  RECT(#87CEEBh);
  LOCAL t, a, b;
  HAngle := 0;

  // солнце
  FOR t FROM 50 DOWNTO 40 DO
    ARC_P(159, 109, t, 0, 2*π, #FFA500h);
  END;
  FOR t FROM 40 DOWNTO 0 DO
    ARC_P(159, 109, t, 0, 2*π, #FFFF00h);
  END;

  // горизонт
  LINE_P(0, 108, 318, 108);

  // суша и вода
  FOR t FROM 0 TO 159 DO
    a := 1.855525955687ᴇ−4*t^3
    -5.05717802449ᴇ−2*t^2
    +3.67070350319*t+109;
    LINE_P(t, a, t, 109, #80h);
    LINE_P(t, a+1, t, 242, #964B00h);
  END;

  FOR t FROM 159 TO 318 DO
    a := 1.23858063728ᴇ−4*t^3
    -9.61799073419ᴇ−2*t^2
    +23.6382711212*t
    -1664.83052851;
    LINE_P(t, a, t, 109, #80h);
    LINE_P(t, a+1, t, 242, #964B00h);
  END;

  // линии
  LINE_P(120, 111, 188, 111, #C0C0C0h);
  LINE_P(125, 113, 183, 113, #C0C0C0h);
  LINE_P(130, 115, 178, 115, #C0C0C0h);
  LINE_P(135, 117, 173, 117, #C0C0C0h);

  WAIT(0);

END;