(495) 240-82-80ПН-СБ с 10:00 до 18:00
We speak English

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

А так выглядит клетчатая ткань.