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