Урок 1.2. Примеры программ
EXPORT PIX05()
BEGIN
LOCAL x, y, j, k;
RECT_P(#0h);
FOR x FROM 1 TO 318 DO
FOR y FROM 1 TO 218 DO
k := IP(√x+√y+√(x*y)) MOD 318;
j := (x^2+y^2+x*y) MOD 218;
PIXON_P(k, j, #87CEEBh);
END;
END;
TEXTOUT_P("DONE", 0, 219, 3, #FFFFFFh);
FREEZE;
END;
Выглядит как дымка:
EXPORT PIX09()
BEGIN
LOCAL x, y, j, k, n, l, s;
RECT_P(#0h);
n := 0;
l := {#FF0000h, #87CEEBh, #FFFF00h, #FF00h};
// основной цикл
FOR x FROM 1 TO 318 DO
FOR y FROM 1 TO 218 DO
n := n+1;
s := 1+n MOD 4;
k := IP((x^2*y)^3 + (x*y^2)^3) MOD 318;
j := IP(e^(x) + e^(y)) MOD 218;
// рисование пикселя
PIXON_P(k, j, l(s));
END;
END;
TEXTOUT_P("DONE", 0, 219, 3, #FFFFFFh);
FREEZE;
END;
Вот так выглядели экраны старых телевизоров еще до того, как телевидение стало кабельным или спутниковым. Да, я только что выдал свой возраст.
EXPORT PIX10()
BEGIN
LOCAL x, y, j, k, n, l, s;
RECT_P(#0h);
n := 0;
l := {#1560BDh, #87CEEBh, #FFFF00h, #9E60h};
FOR x FROM 1 TO 318 DO
FOR y FROM 1 TO 218 DO
n := n+1;
s := 1+n MOD 4;
k := IP(e^(x) + 2*e^(y)) MOD 318;
j := IP(2*e^(x) + e^(y)) MOD 218;
PIXON_P(k, j, l(s));
END;
END;
TEXTOUT_P("DONE", 0, 219, 3, #FFFFFFh);
FREEZE;
END;
EXPORT PIX11()
BEGIN
LOCAL x, y, j, k, n, l, s;
RECT_P(#0h);
n := 0;
l := {#C0C0C0h, #FFFFFFh, #D4AF37h, #FFFF00h};
FOR x FROM 1 TO 318 DO
FOR y FROM 1 TO 218 DO
n := n+1;
s := 1+n MOD 4;
k := IP(x-y) MOD 318;
j := IP(−2*e^(x) + .5*e^(y)) MOD 218;
PIXON_P(k, j, l(s));
END;
END;
TEXTOUT_P("DONE", 0, 219, 3, #FFFFFFh);
FREEZE;
END;
EXPORT PIX12()
BEGIN
LOCAL x, y, j, k, n, l, s;
RECT_P(#4000h);
n := 0;
l := {#FFFF00h, #FF00h, #964B00h, #0h};
FOR x FROM 1 TO 318 DO
FOR y FROM 1 TO 218 DO
n := n+1;
s := 1+n MOD 4;
k := IP(x*y) MOD 318;
j := IP(x^2+y^2) MOD 218;
PIXON_P(k, j, l(s));
END;
END;
TEXTOUT_P("DONE", 0, 219, 3, #FFFFFFh);
FREEZE;
END;
Может быть, так выглядит лес или джунгли с высоты вертолета?
EXPORT PIX14()
BEGIN
LOCAL x, y, j, k, n, l, s;
RECT_P(#400000h);
n := 0;
l := {#C0C0C0h, #FFFFCCh, #C0C0C0h, #FFFFCCh};
FOR x FROM 1 TO 318 DO
FOR y FROM 1 TO 218 DO
n := n+1;
s := 1+n MOD 4;
k := IP(21800*SIN(x)) MOD 318;
j := IP(31800*√(y)) MOD 218;
PIXON_P(k, j, l(s));
END;
END;
TEXTOUT_P("DONE", 0, 219, 3, #FFFFFFh);
FREEZE;
END;
А так выглядит клетчатая ткань.