Langton Ameise

[cRayZo]

Hallo, ich bin dabei eine lagton Ameise zu programmieren..
(für alle, die nicht wissen, was das ist hier )
jedoch möchte ich nicht nur langweilig schwarz weiß benutzen sondern differenziertere Farben..
ich habe hier einen Code geschrieben, aber er funktioniert nicht. Das Programm mal nur 2 Pixel an, eigenltich sollte das anders aussehen...
Der Großteil des Codes ist Wiederholung, also bitte schreckt daran nicht zurück. ich wäre euch über Hilfe sehr verbunden!!
Grüße cRayZo

Delphi-Quellcode:

procedure Td.StartenClick(Sender: TObject);
var
pos:                                    integer;   //gibt an, in welche Richtung der nächste Pixel geht, 
                                                   {bzw woher er dann gekommen ist
0= von oben      /nach unten
1= von unten     /nach oben
2= von links     /nach rechts
3= von rechts    /nach links                                 }

posnewx, posnewy, posaktx, posakty:     integer;
durchlauf, i:                           integer;
begin
durchlauf:=strtoint(Edit2.Text);
posaktx:=strtoint(xedit.Text);
posakty:=strtoint(yedit.Text);

if topbutton.Enabled=False then pos:=1;     //bestimmt anfangsrichtung
if downbutton.Enabled=False then pos:=0;
if leftbutton.Enabled=False then pos:=3;
if rightbutton.Enabled=False then pos:=2;

for i:=0 to durchlauf do
begin
sleep(200);
//////
        if pos=0 then                             //bewegt den "Malpixel" um 1 in die bestimmte richtung
         begin
         posnewx:=posaktx; posnewy:=posaktx+1;
         end;
        if pos=1 then
         begin
         posnewx:=posaktx; posnewy:=posaktx-1;
         end;
        if pos=2 then
         begin
         posnewx:=posaktx+1; posnewy:=posaktx;
         end;
        if pos=3 then
         begin
         posnewx:=posaktx-1; posnewy:=posaktx;
         end;

if image1.Canvas.Pixels[posnewx,posnewy]=clWhite then     //fragt ab, welche Farbe der neue Pixel besitzt
 begin
      if pos=0 then     begin
       Image1.canvas.pixels[posnewx, posnewy]:= clblue;    //färbt abhängig von der Richtung, aus dem er gekommen ist, 
       pos:=2;          end;                               //den Pixel ein, und bestimmt neue "wanderrichtung"
      if pos=1 then     begin
       Image1.canvas.pixels[posnewx, posnewy]:= clred;
       pos:=3;          end;
      if pos=2 then     begin
       Image1.canvas.pixels[posnewx, posnewy]:= clyellow;
       pos:=1;          end;
      if pos=3 then     begin
       Image1.canvas.pixels[posnewx, posnewy]:= clgreen;
       pos:=0;          end;
 end
 else

        if image1.Canvas.Pixels[posnewx,posnewy]=clBlue then
         begin
              if pos=0 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00C65D40;
               pos:=2;          end;
              if pos=1 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00C68450;
               pos:=3;          end;
              if pos=2 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00C6AB60;
               pos:=1;          end;
              if pos=3 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00C6D270;
               pos:=0;          end;
         end else

                if image1.Canvas.Pixels[posnewx,posnewy]=$00C65D40 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6D270;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C65D40;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C68450;
                       pos:=1;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6AB60;
                       pos:=0;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00C68450 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6AB60;
                       pos:=2;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6D270;
                       pos:=3;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C65D40;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C68450;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00C6AB60 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C68450;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6AB60;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6D270;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C65D40;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00C6D270 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C65D40;
                       pos:=2;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C68450;
                       pos:=3;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6AB60;
                       pos:=1;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00C6D270;
                       pos:=0;          end;
                 end else


        if image1.Canvas.Pixels[posnewx,posnewy]=clRed then
         begin
              if pos=0 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00001388;
               pos:=3;          end;
              if pos=1 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00001770;
               pos:=2;          end;
              if pos=2 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00001B58;
               pos:=0;          end;
              if pos=3 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00001F40;
               pos:=1;          end;
         end else

                if image1.Canvas.Pixels[posnewx,posnewy]=$00001388 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001F40;
                       pos:=2;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001388;
                       pos:=3;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001770;
                       pos:=1;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001B58;
                       pos:=0;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00001770 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001B58;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001F40;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001388;
                       pos:=1;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001770;
                       pos:=0;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00001B58 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001770;
                       pos:=2;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001B58;
                       pos:=3;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001F40;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001388;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00001F40 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001388;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001770;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001B58;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00001F40;
                       pos:=1;          end;
                 end else


        if image1.Canvas.Pixels[posnewx,posnewy]=clYellow then
         begin
              if pos=0 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $0000D4E4;
               pos:=2;          end;
              if pos=1 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00008DCC;
               pos:=3;          end;
              if pos=2 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $0000FFDC;
               pos:=1;          end;
              if pos=3 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $0000A9EC;
               pos:=0;          end;
         end else

                if image1.Canvas.Pixels[posnewx,posnewy]=$0000D4E4 then
                 begin
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000A9EC;
                       pos:=2;          end;
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000D4E4;
                       pos:=3;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00008DCC;
                       pos:=1;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000FFDC;
                       pos:=0;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$0000FFDC then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000FFDC;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000A9EC;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000D4E4;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00008DCC;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$0000D4E4 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00008DCC;
                       pos:=2;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000FFDC;
                       pos:=3;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000A9EC;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000D4E4;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$0000A9EC then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000D4E4;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00008DCC;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000FFDC;
                       pos:=1;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0000A9EC;
                       pos:=0;          end;
                 end else

        if image1.Canvas.Pixels[posnewx,posnewy]=clGreen then
         begin
              if pos=0 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00025D78;
               pos:=3;          end;
              if pos=1 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $00028488;
               pos:=2;          end;
              if pos=2 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $0002AB98;
               pos:=0;          end;
              if pos=3 then     begin
               Image1.canvas.pixels[posnewx, posnewy]:= $0002D2A8;
               pos:=1;          end;
         end else

                if image1.Canvas.Pixels[posnewx,posnewy]=$00025D78 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00025D78;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00028488;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002AB98;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002D2A8;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$00028488 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002D2A8;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00025D78;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00028488;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002AB98;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$0002AB98 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002AB98;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002D2A8;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00025D78;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00028488;
                       pos:=1;          end;
                 end else
                if image1.Canvas.Pixels[posnewx,posnewy]=$0002D2A8 then
                 begin
                      if pos=0 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00028488;
                       pos:=3;          end;
                      if pos=1 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002D2A8;
                       pos:=2;          end;
                      if pos=2 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $0002AB98;
                       pos:=0;          end;
                      if pos=3 then     begin
                       Image1.canvas.pixels[posnewx, posnewy]:= $00025D78;
                       pos:=1;          end;
                 end;


posaktx:=posnewx;      //setzt die Pixelkoordinaten auf den aktuellen Pixel
posakty:=posnewy;

sleep(100);
image1.Refresh;
//////
end;






end;

[Neutral General]

War jetzt zu faul, deinen Code durchzugucken. Was willst du denn wann wie färben? Also nach welchen Kriterien?

Ich habs eben mal mit Schwarz-Weiß programmiert und es geht. Also falls du nicht weiterkommst, kann ich dir mal meinen QT zeigen wenn du willst. Aber ist halt wie gesagt nur mit Schwarz-Weiß (und auch ohne weiteres nicht auf mehrere Farben umstellbar).

[cRayZo]

ja das wäre cool, ih habe es auch einmal mit schwarz weiß probiert, aber auch dort klappt es nicht...
Ich glaube bei mir ist ein Denkfehler drin..
kannst du mir vll deine Lösung mal schicken?
lg

[Neutral General]

Hi,

Habs mal angehängt mit Source.

Edit: Neue Version.

Gruß
Neutral General

[Luckie]

Schön in Klassen verpakt. aber warum erzeugst du das Offscreen Bitmap im Paint Ereignis jedes mal neu:

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var bit: TBitmap;
      p: PRGBQuad;
    i,j: Integer;
begin
  if (Field.Width = 0) or (Field.Height = 0) then
  begin
    PaintBox1.Canvas.Rectangle(Rect(0,0,PaintBox1.Width,PaintBox1.Height));
    exit;
  end;
  
  bit := TBitmap.Create;

[Neutral General]

Zitat:

Zitat von Luckie

Schön in Klassen verpakt. aber warum erzeugst du das Offscreen Bitmap im Paint Ereignis jedes mal neu:

Mh ja stimmt eigentlich... Das Anfordern des Speicherplatz beim Setzen von Width,Height des Bitmaps bei jedem Zeichnen ist eigentlich unnötig..

Ich werds verbessern. Moment.

Edit: Neue Version zwei Posts weiter oben. Offscreen Bitmap ist jetzt eine Klassenvariable.