fickdichpump3.JPG

Kommentare

123 weiter

• 
  Bunter Hund 27 Apr. 2023, 10:45
  Und weida?
  Erklärung?
  • 

  KippmKauBoi
  zitieren
• 
  unwürdigerknecht 27 Apr. 2023, 10:49
  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.
  zitieren
• Mod/RDW
  Kenny F. Powers 27 Apr. 2023, 10:49
  10p für Einsendungstitel
  zitieren
• Gelöschtes Mitglied 388 27 Apr. 2023, 10:54
  Wenn man sich ganz doll anstrengt sieht es aus wie ein weit rausgezoomtes Großevent bei den Simpsons.
  • 
  • 

  panic und Klaus
  zitieren
• 
  G O T T 27 Apr. 2023, 11:02
  Zitat von: unwürdigerknecht

  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.

  
  Falsch!
  
  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;

  • 

  Schuppenflechte
  zitieren
• 
  G O T T 27 Apr. 2023, 11:03
  Zitat von: Bunter Hund

  Und weida?
  Erklärung?

  
  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.
  • 

  Bunter Hund und unwürdigerknecht
  zitieren
• 
  unwürdigerknecht 27 Apr. 2023, 11:05
  Zitat von: G O T T

  Falsch!
  
  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;

  War ja auch komplett geraten
  • 

  G O T T
  zitieren
• 
  unwürdigerknecht 27 Apr. 2023, 11:23
  Wenn man ein bisschen blinzelt sieht es aus wie besoffener Teddybär, der auf dem Rücken liegt
  zitieren
• 
  snippet 27 Apr. 2023, 11:34
  Habe Walter gesucht, lel
  • 

  panic
  zitieren
• 
  Lyoner 27 Apr. 2023, 12:28
  was
  zitieren

123 weiter

Neue Mitglieder