EXPORT
DRAWPATTERN()
BEGIN
LOCAL
xincr,yincr,Farbe;
STARTAPP("Funktionen");
RECT();
xincr := (Xmax - Xmin)/318;
yincr := (Ymax - Ymin)/218;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
Farbe := RGB(X^3 MOD 255,Y^3 MOD 255, TAN(0.1*(X^3+Y^3)) MOD 255);
PIXON(X,Y,Farbe);
END;
END;
WAIT;
END;
FOR DOWN
Syntax: FOR Var FROM Start DOWNTO Ende DO Befehle END;
Legt für die Variable Var den Wert Start fest und führt, solange der Wert dieser Variablen kleiner oder gleich
dem Wert von Ende ist, die Befehlsfolge aus. Dann wird die Variable Var um 1 verringert (Substraktion).
FOR DOWN STEP
Syntax: FOR Var FROM Start DOWNTO Ende [STEP Schritt] DO Befehle END;
Programmbefehle 587