По всем вопросам - пишите на эл.почтуКруглосуточно 24/7
We speak English

Урок 2.4. Рисование 3D волны

Мне хотелось нарисовать рисунок, где была бы такая светлая волна.

EXPORT DRAW3DWAVE()
BEGIN
  LOCAL t, a, b;
  RECT();
  HAngle := 0;

  FOR t FROM 0 TO 318 DO
    a := 25*SIN(3.95168887244ᴇ−2*t-π) + 100;
    b := a+25;
    PIXON_P(t, a, #FFh);
    PIXON_P(t, b, #FFh);

    LINE_P(t, a+1, t, b-1, #87CEEBh);
    LINE_P(t, b+1, t, 218, #964B00h);

  END;

  LINE_P(0, 100, 0, 125, #FFh);
  LINE_P(318, 100, 318, 125, #FFh);

  LINE_P(0, 125, 0, 218, #D4AF37h);
  LINE_P(318, 125, 318, 218, #D4AF37h);
  LINE_P(0, 218, 318, 218, #D4AF37h);

  WAIT(0);

END;