Polygon.Inflate

[Jens01]

Grober Gedanke:
Zentrum festlegen (geht das?, wenn nicht gehts sowieso nicht). Den Vektor (Zentrum-Polygonpunkt) jeweils verlängern.

Gruss Jens

P.S. Mit einer Triangulation und der Vergrößerung der einzelnen Dreiecke könnte es auch gehen?

[bcvs]

Ich würde einfach die Kanten parallel verschieben, und zwar je nach Lage der Kante um Top, Bottom, Left oder Right. Du musst nur eine Regel für die schrägen Kanten festlegen: gilt da die Betondeckung für oben/ unten oder seitlich? (evtl. aghängig von der Neigung der Kante). Dann neue Schnittpunkte bestimmen. Das sind dann die neuen Polygonpunkte.

[DeddyH]

Aus der hohlen Hand würde mir einfallen: umgebendes Rechteck ermitteln und das prozentuale Verhältnis jedes einzelnen Punktes relativ zur linken oberen Ecke ermitteln. Dann das umgebende Rechteck vergrößern/verkleinern und die neuen Punkt-Positionen anhand des gemerkten Verhältnisses neu berechnen. Das jeweilige Original-Verhältnis sollte man dabei aber im Speicher behalten, sonst wird das nach ein paar Mal vergrößern/verkleinern wahrscheinlich zu ungenau. Vielleicht taugt das aber auch alles nix, so dolle bin ich nicht in Geometrie

[Jens01]

Sowas?

[Bjoerk]

Zitat von Jens01:

Sowas?

Leider nicht. Das ist wohl das:

Delphi-Quellcode:

procedure TPolygon.CenterZoom(const Faktor: double);
var
  I: integer;
  P1, P2: TFloatPoint;
begin
  P1 := Center;
  for I := 0 to FCount - 1 do
  begin
    FItems[I].X := FItems[I].X * Faktor;
    FItems[I].Y := FItems[I].Y * Faktor;
  end;
  P2 := Center;
  for I := 0 to FCount - 1 do
  begin
    FItems[I].X := FItems[I].X - (P2.X - P1.X);
    FItems[I].Y := FItems[I].Y - (P2.Y - P1.Y);
  end;
end;

Bin noch am rumprobieren. Melde mich nochmal.

[ibp]

Zitat von Jens01:

Sowas?

also die zentrische Streckung ist eigentlich genau das was du brauchst nur leicht abgewandelt.

Ich gehe davon aus, dass dein Ausgangspolygon das betonierte Resultat sein soll. Die Bewehrung muss zur Außenseite jeweils ein Mindestmaß an Betondeckung aufweisen. Du brauchst nun die Maße der Bewehrung.

Wenn du bei der zentrischen Streckung die Eckpunkte zum Zentrum verschiebst und zwar genau so weit bis der Soll-Abstand (Betondeckung) der Strecken zum Ausgangspolygon erreicht ist.

Richtig?


Zwei benachbarte Eckpunkte solange nach Z verschieben, bis die Strecke in der Ebenenansicht den gewollten Abstand erreicht hat, dann nächsten Punkt usw...

[Memnarch]

Es könnte aber auch sein, das der Threadersteller die Normale eines Punktes berechnen muss(Was der Durchschnitt der beiden Normalen der beiden abgehenden strecken ist) und die Punkte dahingehend skaliert?

[Uwe Raabe]

Zitat von ibp:

Ich gehe davon aus, dass dein Ausgangspolygon das betonierte Resultat sein soll. Die Bewehrung muss zur Außenseite jeweils ein Mindestmaß an Betondeckung aufweisen. Du brauchst nun die Maße der Bewehrung.

So wird das allerdings schon klarer. Die vier Margins sind dann die jeweilige Mindestdicke der Betondeckung links, rechts, oben und unten. Aber wie wird die Dicke der Betondeckung bei einer Schräge bestimmt?

[bcvs]

Das war mir die ganze Zeit schon klar.

Das muss man anhand der Winkels der schrägen Kante bestimmen. Im einfachsten Fall: < 45° Betondeckung für oben bzw unten, >45°: Betondeckung für seitlich (rechts und links müssten eigentlich immer gleich sein). Es kann aber auch sein, dass die Grenze woanders liegen müsste. Das kann ich gerade nicht beurteilen, dazu müsste man sich tiefer in die technischen Gegebenheiten einarbeiten.

Das Problem des OP ist allerdings: wie unterscheide ich bei einer horizontalen Kante, ob die oben oder unten ist. Eine Lösungsmöglichkeit hat er selbst geliefert, einen anderen Vorschlag habe ich gemacht.

Das Grundprinzip der Parallelverschiebung der Kanten ist auch gelöst (#33). Also sollte momentan alles gut sein.

[Bjoerk]

Zitat von Uwe Raabe:

Zitat von ibp:

Ich gehe davon aus, dass dein Ausgangspolygon das betonierte Resultat sein soll. Die Bewehrung muss zur Außenseite jeweils ein Mindestmaß an Betondeckung aufweisen. Du brauchst nun die Maße der Bewehrung.

So wird das allerdings schon klarer. Die vier Margins sind dann die jeweilige Mindestdicke der Betondeckung links, rechts, oben und unten. Aber wie wird die Dicke der Betondeckung bei einer Schräge bestimmt?

Betondeckungen verstehen sich immer parallel zur Polygonline.

Vielleicht hierzu meine Methode CornerStyle. Die liefert das "Align" eines Knotens.
Zum Beispiel bekommt ein Polygonknoten CornerStyle = csTopLeft die Margens Top und Left.

Und in #33 ist noch ein Indexfehler drin. Punkt 0 wird nach 1 gespeichert, 1 nach 2 usw..

Delphi-Quellcode:

procedure TPolygon.Inflate(Value: double);
var
  I, J: integer;
  C: TFloatPoint;
  Line: TFloatLine;
  Lines: TFloatLines;
begin
  if FCount > 2 then
  begin
    Lines := TFloatLines.Create;
    try
      if Area < 0 then
        Value := -Value;
      for I := 0 to FCount - 1 do
      begin
        J := Next(I);
        Line.P1 := FItems[I];
        Line.P2 := FItems[J];
        Line.ShiftUV(0, Value);
        Lines.Add(Line);
      end;
      Clear;
      C.Clear;
      Add(C);
      for I := 0 to Lines.Count - 1 do
      begin
        J := Lines.Next(I);
        if Lines.Item[I].IntersectLines(Lines.Item[J], C) then
          Add(C);
      end;
      ExChange(0, FCount - 1);
      Del(FCount - 1);
    finally
      Lines.Free;
    end;
  end;
end;

function TPolygon.CornerStyle(const Index: integer): TCornerStyle;
var
  Temp: TPolygon;
  dX, dY: double;
begin
  if (FCount > 2) and (Index > -1) and (Index < FCount) then
  begin
    Temp := TPolygon.Create;
    try
      Temp.Assign(Self);
      Temp.Inflate(1);
      dX := Temp[Index].X - FItems[Index].X;
      dY := Temp[Index].Y - FItems[Index].Y;
      if (dX < 0) and (dY > 0) then
        Result := csTopRight
      else
        if (dX < 0) and (dY < 0) then
          Result :=  csBottomRight
        else
          if (dX > 0) and (dY < 0) then
            Result := csBottomLeft
          else
            Result := csTopLeft; // (dX > 0) and (dY > 0)
      // ShowMessage(Format('%d: (%2.f %2.f) %2.f (%2.f %2.f) %2.f = %d',
      //   [Index, FItems[Index].X, FItems[Index].Y, dX,
      //     Temp[Index].X, Temp[Index].Y, dY, Integer(Result)]));
    finally
      Temp.Free;
    end;
  end;
end;