Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Jaja is klar. Nach Zeile 28 einmal vertikal gespiegelt dann copy paste 10 Zeilen versetzt nacht unten und Überschnitt oben angefügt. Alles dann horizontal gespiegelt und noch mal copy paste. Repeat. Hat vielleicht 10 Minuten gedauert.
Jaja is klar. Nach Zeile 28 einmal vertikal gespiegelt dann copy paste 10 Zeilen versetzt nacht unten und Überschnitt oben angefügt. Alles dann horizontal gespiegelt und noch mal copy paste. Repeat. Hat vielleicht 10 Minuten gedauert.
Ich habe meine Methoden erweitert und erstelle jetzt solche Muster mit einem Computer. Hier ist der Code (ich kann nicht programmieren, habe das zusammengeschustert):
Code:
procedure TForm1.Button5Click(Sender: TObject);
var
X,Y, i, a, b: Integer;
colors : array[0..6] of TColor;
begin
colors[0] := CharToRGB('e');
colors[1] := CharToRGB('m');
colors[2] := CharToRGB('a');
colors[3] := CharToRGB('i');
colors[4] := CharToRGB('l');
colors[5] := CharToRGB('g');
colors[6] := CharToRGB('o');
X:=0;
Y:=0;
while (X < Image1.Width-30) do
begin
while (Y < Image1.Height-30) do
begin
a := Random(20);
b := Random(6);
for i := 0 to a do
Image1.Canvas.Pixels[X,Y+i] := colors[b];
for i := 0 to a do
Image1.Canvas.Pixels[X+1,Y+i] := colors[b];
Y:=Y+a;
end;
X:=X+2;
Y:=0;
end;
end;
Ich erzeuge aus den Buchstaben 'e', 'm', 'a', 'i', 'l', 'g' und 'o' RGB-Farben. Dann zeichne ich Linien mit einer zufälligen Länge zwischen 0 und 19 Pixel der Dicke 2 PX mit einer zufälligen Farbe aus der Emailgo-Palette.
Ich habe meine Methoden erweitert und erstelle jetzt solche Muster mit einem Computer. Hier ist der Code (ich kann nicht programmieren, habe das zusammengeschustert):
Code:
procedure TForm1.Button5Click(Sender: TObject);
var
X,Y, i, a, b: Integer;
colors : array[0..6] of TColor;
begin
colors[0] := CharToRGB('e');
colors[1] := CharToRGB('m');
colors[2] := CharToRGB('a');
colors[3] := CharToRGB('i');
colors[4] := CharToRGB('l');
colors[5] := CharToRGB('g');
colors[6] := CharToRGB('o');
X:=0;
Y:=0;
while (X < Image1.Width-30) do
begin
while (Y < Image1.Height-30) do
begin
a := Random(20);
b := Random(6);
for i := 0 to a do
Image1.Canvas.Pixels[X,Y+i] := colors[b];
for i := 0 to a do
Image1.Canvas.Pixels[X+1,Y+i] := colors[b];
Y:=Y+a;
end;
X:=X+2;
Y:=0;
end;
end;
