Line mit Winkel zeichnen

[Jens01]

Bei Graphics32 gibts solche TImage-Komponenten, die skalieren können.
Ansonsten Vektorgraphik benutzen.

[Bjoerk]

Dann wir es vermutlich Zeit sich von den CanvasPixeln zu verabschieden und mm Werte zu verwenden? Ich würde die Objekte in mm speichern und ausrechnen, mit ppMM in CanvasPunkte umrechnen und auf eine Metafile zeichnen. Die Metafile dann mit StrechDraw in einer Paintbox anzeigen (so kann man auch bequem zoomen). Die Objekte zentriert zu platzieren ist gar nicht so leicht, aber auch nix weltbewegendes (Zusammenspiel von Grafik-Schwerpunkt und Canvas-Schwerpunkt). Zunächst brauchst du eine Entscheidung wo der Ursprung deines mm Koordinatensystems liegen soll. Gebräuchlich sind unten links (mmY nach oben positiv) und oben links (mmY nach unten positiv).

[Peter666]

Das Spielfeld ist ja kein Bild sondern ein Array aus den entsprechenden Tiles. Gezeichnet wird das ganze dann in etwa so: Display.DrawTile(X,Y,ScaleFactor,Tile);

Wobei der Scalefactor dann der Anzeigelogik sagt wie groß das Tile gezeichnet werden soll. Das komplett auf ein Bild zu malen wäre zu viel des Guten.

Peter

[Bjoerk]

Dann hast du es doch schon fast so? Was für ein Canvas meinst du mit Display? Ist das FMX Zeugs?

[Peter666]

Die Anzeige ist abstrakt gehalten. Das Spiel nutzt lediglich ein Interface das die Hauptanwendung für die Anzeige anbietet.
Die Spieleklasse bekommt die Größe des Anzeigefenster, weiß die Spielfeldgröße und soll stets anhand des Skalierungsfaktors einen Spielausschnitt zeichnen, wobei bei Faktor 1 das Spielfeld komplett im Fenster (unter Berücksichtigung des Bildseitenverhältnisses) angezeigt wird.

Mir schwebt so etwas vor:

Delphi-Quellcode:

TScaleScene = class
  protected
    FScale: integer;
    FScreenWidth: integer;
    FScreenHeight: integer;

    FMousePos: TPointF;
    FCameraPos: TPointF;
    FPreMovePos: TPointF;
  public
    constructor Create;
    procedure SetScreen(const AWidth, AHeight: integer);

    procedure DoMouseMove(const x, y: single; const ButtonA, ButtonB: Boolean);
    procedure DoMouseDelta(const Delta: Integer);
  end;

constructor TScaleScene.create;
begin
  FScale := 32;
  FCameraPos := PointF(0, 0);
  FPreMovePos := PointF(-1, -1);
end;

procedure TScaleScene.SetScreen(const AWidth, AHeight: integer);
begin
  FScreenWidth := AWidth;
  FScreenHeight := AHeight;
end;

procedure TScaleScene.DoMouseDelta(const Delta: Integer);
var cmx, cmy: single;
begin
  if (Delta <> 0) then
  begin
    cmx := FCameraPos.X / FScale;
    cmy := FCameraPos.Y / FScale;
    FScale := FScale - Delta;
    if (FScale < 16) then
      FScale := 16;
    if (FScale > 64) then
      FScale := 64;
    FCameraPos.X := trunc(cmx * FScale);
    FCameraPos.Y := trunc(cmy * FScale);
  end;
end;

procedure TScaleScene.DoMouseMove(const x, y: single; const ButtonA, ButtonB: Boolean);
var
  cmx, cmy: single;
begin
  if ButtonA then
  begin
    if (FPreMovePos.X <> -1) and (FPreMovePos.Y <> -1) then
    begin
      FCameraPos.X := FCameraPos.X - (x - FPreMovePos.X);
      FCameraPos.Y := FCameraPos.Y - (y - FPreMovePos.Y);
    end;
    FPreMovePos.X := x;
    FPreMovePos.Y := y;
  end
  else
  begin
    FPreMovePos.X := -1;
    FPreMovePos.Y := -1;
  end;

  if ButtonB then
  begin
    cmx := FCameraPos.X / FScale;
    cmy := FCameraPos.Y / FScale;
    FScale := 32;
    FCameraPos.X := trunc(cmx * FScale);
    FCameraPos.Y := trunc(cmy * FScale);
  end;

  if (FCameraPos.X < 0) then
    FCameraPos.X := 0;
  if (FCameraPos.Y < 0) then
    FCameraPos.Y := 0;
  if FCameraPos.X > FScreenWidth then
    FCameraPos.X := FScreenWidth;
  if FCameraPos.Y > FScreenHeight then
    FCameraPos.Y := FScreenHeight;

  FMousePos.X := FMousePos.X / FScale;
  FMousePos.Y := FMousePos.Y / FScale;
end;

Peter