DGL • Thema anzeigen - @2D Engine, basiert auf Canvas

@2D Engine, basiert auf Canvas

Moderator: DGL-Team

Seite 1 von 1

[ 10 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Pluto

Betreff des Beitrags: @2D Engine, basiert auf Canvas

Verfasst: Mi Nov 19, 2008 17:30

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Hallo,
ich weiß nicht genau ob es hierfür schon ein Thread gibt, ich habe jetzt keinen gefunden. Daher erstelle ich einfach mal.
Es geht um dieses Projekt von mir:
viewtopic.php?t=7319

Ich habe vor einigen Tagen eine recht einfache Scroll Funktion eingebaut.

Das Problem ist jetzt was ich habe: Ich habe jetzt mehrer Objekte an verschiedenen Orten.
Diese Objekte könnten die Player sein. Die ich gerne auswählen möchte und die Engine soll dort hinscrollen.
Hier sind alle Relevanten stellen aus dem Soruce-Code die das Scrollen betreffen:

Code:

 
 
{Diese Procedure macht es noch nicht 100%ig richtig.
Ich möchte es Eigentlich so, dass das Objekt wo ich hinscrolle evlt. in der Mitte angezeigt wird.
}
procedure TPluto2DEngine.ScrollToObject(aSprite: TPluto2DSprite);
var
  r,r1:Boolean;
begin
  ViewRect:=Rect(0,0,0,0);
  r:=False; r1:=False;
  while not r do begin
    r1:=(ViewRect.Left >= aSprite.Left);
    if not r1 then
      ViewRect.Left:=ViewRect.Left+30
    else begin
      ViewRect.Top:=ViewRect.Top+30;
      r:=(ViewRect.Top >= aSprite.Top)
    end;
  end;
end; // TPluto2DEngine.ScrollToObject
 
{
Hier ein Ausschnitt aus der DrawSprite Methode und ein die Methode SetRect
}
 
procedure TPluto2DSprite.DrawSprite(const event:Boolean = True; const NewDraw:Boolean = True);
var
  x,y,i,c:Integer;
begin
  if isScrolledWindow then begin
    ChangeScrollWindow:=False;
    x:=Left; y:=top;
    ChangeScrollWindow:=True;
    Left:=x-ViewRect.Left;
    Top:=y-ViewRect.Top;
  end;
...
end;
 
procedure TPluto2DSprite.SetRect(Index: integer; const AValue: integer);
begin
  case index of
    0: begin
      if not ChangeScrollWindow then
        fLeft:=AValue
      else
        fPLeft:=AValue;
    end;
 
    1: begin
      if not ChangeScrollWindow then
        fTop:=AValue
      else
        fPTop:=AValue;
    end;
    2: fWidth:=AValue;
    3: fHeight:=AValue;
  end;
end; // TPluto2DSprite.SetRect
 
{
  Die Methode NewAllDraw regelt das Eigentiche Scrollen
}
procedure TPluto2DEngine.NewAllDraw;
var
  px,py,pw,ph:Integer;
  x,y:Integer;
  sprite:TPluto2DSprite;
begin
  Buffer.Canvas.Draw(0,0,BackupBuffer);
  for y:=0 to SpriteMangerList.Count-1 do begin
    for x:=0 to TPluto2SpriteManger(SpriteMangerList[y]).fItems.Count-1 do begin
      sprite:=TPluto2DSprite(TPluto2SpriteManger(SpriteMangerList[y]).fItems[x]);
      if sprite.Visible then begin
        sprite.ViewRect:=ViewRect;
        sprite.ChangeScrollWindow:=False;
        if (sprite.Left >=ViewRect.Left-100) and
           (sprite.Left <=ViewRect.Left+Buffer.Width+100) and
 
           (sprite.Top >=ViewRect.Top-100) and
           (sprite.Top <=ViewRect.Top+Buffer.Height+100) then
          sprite.DrawSprite(True);
       end;
    end; // for x
  end; // for y
  flip
end;
 
{
  Diese Methode wertet die Tatenevents aus. UNd scrollt.
}
procedure TPLRGame.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited KeyDown(Key, Shift);
  case Key of
    VK_RIGHT: begin
      Engine.ViewRect.Left:=Engine.ViewRect.Left+30;
      Engine.NewAllDraw;
    end; // VK_RIGHT
 
    VK_LEFT: begin
      if Engine.ViewRect.Left-30 >= 0 then begin
        Engine.ViewRect.Left:=Engine.ViewRect.Left-30;
//        Engine.NewAllDraw;
        Engine.NewAllDraw;
      end;
    end; // VK_RIGHT
 
    VK_DOWN: begin
      Engine.ViewRect.Top:=Engine.ViewRect.Top+30;
      Engine.NewAllDraw;
    end; // VK_RIGHT
 
    VK_UP: begin
      if Engine.ViewRect.Top-30 >=0 then begin
        Engine.ViewRect.Top:=Engine.ViewRect.Top-30;
        Engine.NewAllDraw;
    //    Engine.NewAllDraw;
      end;
    end; //
 
    VK_1: AktivPlayer:=0;
    VK_2: AktivPlayer:=1;
    VK_3: AktivPlayer:=2;
    VK_4: AktivPlayer:=3;
  end;
end; // TPLRGame.KeyDown 
 
{
  Dies ist ein Teil von einer Eigenschaft die in der Engine die Methode ScrollToObjekt aufruft die ich als erste zeige.
}
procedure TPLRGame.SetAktivPlayer(const AValue: Integer);
begin
  if fAktivPlayer=AValue then exit;
  fAktivPlayer:=AValue;
  Engine.ScrollToObject(Player[AValue]);
  engine.NewAllDraw;
end; // TPLRGame.SetAktivPlayer
 
 

Ich hoffe das ich alle stellen erwischt habe. Währe toll wenn ich/wir dieses Problem lösen könnte. Dann könne ich endlich weiter machen.

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Do Nov 20, 2008 10:16

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Code:

void SetScrollerPath(float AStartX,float AStartY,float AEndX, float AEndY,float Speed=0.5f)
{
 StartX=AStartX;
 StartY=AStartY;
 EndX=AEndX;
 EndY=AEndY;
 CurrentX=StartX;
 CurrentY=StartY;
 float DirX=StartX<EndX?1.0f:-1.0f;//if (StartX<EndX) DirX=1.0f; else DirX=-1.0f;
 float DirY=StartY<EndY?1.0f:-1.0f;
 StepsX=DirX*Speed;
 StepsY=DirY*Speed;
}
 
void UpdateScrollerPosition(float& stepsx,float& stepsy)
{
 currentx=currentx+(stepsx*DeltaTime);
 currenty=currenty+(stepsy*DeltaTime);
 SetScrollposition(currentx+TileOffsetX,currenty+TileOffsetY);
 if (IsPointOutsideRect(startx,starty,endx,endy,currentx,currenty))
 {
   stepsx=0;
   stepsy=0;
 }
}

UpdateScrollerPosition rufst einfach in deiner Schleife auf und die ganzen Variablen kannst ja irgend ein Objekt zuweisen oder halt procedural.
TileOffsetX/Y sind ist der Tileoffset auf dem Bildschirm, also wenn du 12 Tiles horizontal darstellen kannst dann wäre dieser offset 6, damit man eine zentrierte sicht hat.
SetScrollerPath überschreibt die Positionen.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Do Nov 20, 2008 14:59

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Erstmal vielen Dank. Ich werde den Code mal ausprobieren. Aufjedenfall.
(Natürlich werde ich ihn vorher an Pascal anpassen *G*)

Was genau macht "IsPointOutsideRec" Davon lese ich heute zum erstenmal.....

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Do Nov 20, 2008 16:10

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Ich hab gehofft, man erkennt den Sinn anhand des Namens.
Die Funktion musst du auch implementieren und ist nichts anderes als eine Prüfung, ob ein Punkt innerhalb eines Rechteckes liegt oder halt nicht.
Dafür werden Minimum und Maximum gesucht und dann der Punkt gepfrüft.

Code:

bool IsPointInRect(unsigned int P1X, unsigned int P1Y, unsigned int P2X, unsigned int P2Y,unsigned PointX,unsigned PointY)
{
  unsigned int minx=P1X;
  unsigned int miny=P1Y;
  unsigned int maxx=P1X;
  unsigned int maxy=P1Y;
 
  if (P1X<P2X)
    maxx=P2X;
  else
    minx=P2X
 
  if (P1Y<P2Y)
    maxy=P2Y;
  else
    miny=P2Y
 
  if (PointX<minx | PointX>maxx | PointY<miny | PointY>maxy)
    return false;
  else
    return true;
}

So eine Funktion wirst du im 2D Bereich sowieso des öfteren brauchen, von daher solltest du diese schon mal implementieren.

Code:

if (IsPointInRect(startx,starty,endx,endy,currentx,currenty)==false)//ziel überquert, aufgrund von ungenauigkeit von Delta
{
  stepsx=0;
  stepsy=0;//bewegung beenden
  currentx=endx;
  currenty=endy;
  SetScrollposition(currentx+TileOffsetX,currenty+TileOffsetY);//position korrigieren
}

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Do Nov 20, 2008 17:22

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

ach so. So eine Funktion besitzt schon Lazarus: ptinRect heißt sie.... Ich habe mich nur über den namen gewundert. Da ich damit nicht anfangen konnte....

ich kann leider diese Zeilen Code nicht Deuten:

Code:

 
float DirX=StartX<EndX?1.0f:-1.0f;//if (StartX<EndX) DirX=1.0f; else DirX=-1.0f;
 float DirY=StartY<EndY?1.0f:-1.0f;

Bedeutet das Fragezeichen "ungleich" ? und der : geteilt ?
ich würde das evlt. so deuten: if StartX < EndX ....1.0f wobei mir gerade auffällt: was ist mit f gemeint ist ?

So ganz kann ich den Code wie gesagt nicht deuten....

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Markus

Betreff des Beitrags:

Verfasst: Do Nov 20, 2008 18:03

DGL Member

Registriert: Fr Mär 30, 2007 18:35
Beiträge: 331

Hallo,

Code:

 
if (StartX < EndX) then
  DirX:= 1.0
else
  DirX:= -1.0;
 
if (StartY < EndY) then
  DirY:= 1.0
else
DirY:= -1.0;
 

Das f sagt nur, dass es ein float sein soll und kein double, da 1.0 in C++ ein double wäre.

Markus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Do Nov 20, 2008 18:10

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

a<b?a:b heisst nichts anderes als if ab) and (not b)) then d:=a else d:=0.0;
d=(a>b)&&(!b)?a:0.0f;
Optimierungsmässig geht bei der Variante auch mehr.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Di Dez 02, 2008 18:31

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Tut mir leid das ich erst jetzt antworte....
Ich habe die "sachen" mal heute übersetzt nach Pascal, doch leider bekomme ich nicht das gewünschte resultat:

Code:

 
function IsPointOutsideRect(P1X, P1Y, P2X, P2Y:Real; PointX, PointY:Real):Boolean;
var
  minX, minY, maxX, maxY:Real;
begin
  MinX:=P1X; MinY:=P1Y;
  MaxX:=P1X; MaxY:=P1Y;
 
  if (P1X<P2X) then
    maxx:=P2X
  else
    minx:=P2X;
 
  if (P1Y<P2Y) then
    maxy:=P2Y
  else
    miny:=P2Y;
 
  result:=(PointX<minx) and (PointX>maxx) and (PointY<miny) and (PointY>maxy);
end;
 
procedure TPluto2DEngine.SetScrollerPath(AStartX, AStartY, AEndX, AEndY:real; Speed:Real=0.5);
var
  DirX, DirY:Real;
begin
  // ViewRect ist ein TRect und damit arbeite ich in meiner Paint Methode.
  ViewRect:=Rect(Round(AStartX), Round(AStartY), Round(AEndX), Round(AEndY));
  if (aStartX < aEndX) then
    DirX:= 1.0
  else
    DirX:= -1.0;
 
  // Gobal Definiert
  currentX:=AStartX; currentY:=AStartY; endX:=aEndX; endY:=aEndY;
  if (aStartY < aEndY) then
    DirY:= 1.0
  else
    DirY:= -1.0;
 
  // Gobal Definiert
  StepsX:=DirX*Speed;
  StepsY:=DirY*Speed;
end; // SetScrollerPath
 
 
(*DeltaTime habe ich als Proceduren Parameter hinzugefügt. War in deiner Version nicht.*)
procedure TPluto2DEngine.UpdateScrollerPosition(aStepsX, aStepY, DeltaTime:Real);
begin
 currentx:=currentx+(stepsx*DeltaTime);
 currenty:=currenty+(stepsy*DeltaTime);
// SetScrollposition(currentx+TileOffsetX,currenty+TileOffsetY);
 if (IsPointOutsideRect(startx,starty,endx,endy,currentx,currenty)) then begin
   stepsx:=0;
   stepsy:=0;
 end;
 
end;
 
procedure TPluto2DEngine.ScrollToObject(aSprite: TPluto2DSprite);
var
  r,r1:Boolean;
begin
//  ViewRect:=Rect(0,0,0,0);
  r:=False; r1:=False;
//  while not r do begin
(*Mit was für Paramenter wird das aufgerufen ? aSprite.Left orentiert sich an der Linken oberen Ecke*)
    UpdateScrollerPosition(aSprite.Left, Sprite.Top, 1.5);
{    r1:=(ViewRect.Left >= aSprite.Left);
    if not r1 then
      ViewRect.Left:=ViewRect.Left+30
    else begin
      ViewRect.Top:=ViewRect.Top+30;
      r:=(ViewRect.Top >= aSprite.Top)
    end;}
//  end;
end; // TPluto2DEngine.ScrollToObject   
 

Es passiert gar nix... einiges ist mir auch unklar:

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Di Dez 02, 2008 23:38

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Hehe du hast da ein kleinen Fehler in der Prüffunktion, du musst die Ausdrücke nicht durch UND verketten sondern durch ODER.
Du Prüfst mit der letzten Zeile, ob dein Punkt kleiner,größer als dein Maximaler und Minimaler ist und wenn eine der Bedingungen zutrifft, dann ist er ausserhalb und wenn keine Zutrifft, dann ist der Punkt Innerhalb des Rechteckes.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Mi Dez 03, 2008 14:48

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Code:

result:=(PointX<minx) and (PointX>maxx) and (PointY<miny) and (PointY>maxy);

ich nehme an du meinst diese Zeile.... Danke für den Hinweis.

edit01: Es passiert trotzdem nichts !

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Seite 1 von 1

[ 10 Beiträge ]

Foren-Übersicht » Sonstiges » Meinungen zu den Projekten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 21 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.