AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Bitmap perspektivisch in 3D drehen
Thema durchsuchen
Ansicht
Themen-Optionen

Bitmap perspektivisch in 3D drehen

Ein Thema von Cylence · begonnen am 6. Jun 2007 · letzter Beitrag vom 26. Jan 2009
 
Benutzerbild von Cylence
Cylence

Registriert seit: 2. Sep 2004
Ort: Allgäu
246 Beiträge
 
Delphi 7 Enterprise
 
#16

Re: Bitmap perspektivisch in 3D drehen

  Alt 26. Jan 2009, 11:43
Hi,

also einmal DANKE für das mit den Streams das klappt jetzt *freu*

und dann hab ich nun den zweiten winkel auch noch hinbekommen:

l3DObj.WinkelXY := trunc(90 - ((XTop -(Screen.Height/2))/30));
l3DObj.WinkelYZ := trunc( ( (XLeft - (Screen.Width/2) ) /30) *-1 );

so jetzt klappt fast alles nur transparentcolor wird verhaun von meiner trapezverzerrung an dieser stelle:

DstBMPX.Bitmap.Clear(Color32(TransparentColorValue ));

und natürlich muss ich da die winkel auch noch anpassen...also rumprobieren *g*
so falls jemand das brauchen kann:

Delphi-Quellcode:
procedure TForm2.DoDrawEx(ACanvas: TCanvas; ALeft, ATop: Integer);
var
  l3DObj : T3DObj;
  lDestPoints : Array[0..2] of TPoint;
  lPoint : T3DPoint;
  lDrawHeight,
  lDrawWidth : Integer;
  XLeft, XTop : Integer;
begin
  //------------Trapezverz.
  if not CalculatingPic then begin
   CalculatingPic := True;
   fBmp := image2.Picture.Bitmap;
  l3DObj := T3DObj.Create(nil);
  lDrawHeight := fBmp.Height; // + StretchX damit irgendwie das resizen zur ca originalgröße machen
  lDrawWidth := fBmp.Width;
  l3DObj.DoubleBuffered := True;
  l3DObj.Add((lDrawWidth - fBmp.Width) div 2, (lDrawHeight - fBmp.Height) div 2, lDrawWidth div 2);
  l3DObj.Add((lDrawWidth - fBmp.Width) div 2 + fBmp.Width, (lDrawHeight - fBmp.Height) div 2, lDrawWidth div 2);
  l3DObj.Add((lDrawWidth - fBmp.Width) div 2, fBmp.Height + (lDrawHeight - fBmp.Height) div 2, lDrawWidth div 2);
  lPoint := l3DObj.CenterPoint;
  lPoint.X := l3DObj.Points[0].X + (l3DObj.Points[1].X - l3DObj.Points[0].X) div 2;
  lPoint.Y := l3DObj.Points[0].Y + (l3DObj.Points[2].Y - l3DObj.Points[0].Y) div 2;
  lPoint.Z := lDrawWidth div 2;
  l3DObj.CenterPoint := lPoint;
  XLeft := Left + Trunc(lDrawWidth / 2);
  XTop := Top + Trunc(lDrawHeight / 2);
  l3DObj.WinkelXY := trunc(90 - ((XTop -(Screen.Height/2))/30));
  l3DObj.WinkelYZ := trunc( ( (XLeft - (Screen.Width/2) ) /30) *-1 );
  //---------------------------------------------------------

  if Left > (Screen.Width / 2) then begin
     if Top > (Screen.Height / 2) then begin
       //rechts unten
       MakeTrapezStretch(0,trunc((XTop -(Screen.Height/2))/60), //unten/Linke
                       fBmp.Width--trunc((XTop -(Screen.Height/2))/60),0, //Oben/links
                       fBmp.Width,fBmp.Height, //oben/Rechts
                       0,fBmp.Height, //Unten/rechts
                       fBmp,fBmp);
     end
     else begin
       //rechts oben
       MakeTrapezStretch(0,trunc((XTop -(Screen.Height/2))/60), //unten/Linke
                       fBmp.Width--trunc((XTop -(Screen.Height/2))/60),0, //Oben/links
                       fBmp.Width,fBmp.Height, //oben/Rechts
                       0,fBmp.Height, //Unten/rechts
                       fBmp,fBmp);
     end;
  end
  else begin
     if Top > (Screen.Height / 2) then begin
       //links unten
       MakeTrapezStretch(trunc((XTop -(Screen.Height/2))/60),0, //unten/Linke
                       fBmp.Width-trunc((XTop -(Screen.Height/2))/60),0, //Oben/links
                       fBmp.Width,fBmp.Height, //oben/Rechts
                       0,fBmp.Height, //Unten/rechts
                       fBmp,fBmp);
     end
     else begin
       //links oben
       MakeTrapezStretch(trunc((XTop -(Screen.Height/2))/60),0, //unten/Linke
                       fBmp.Width-trunc((XTop -(Screen.Height/2))/60),0, //Oben/links
                       fBmp.Width,fBmp.Height, //oben/Rechts
                       0,fBmp.Height, //Unten/rechts
                       fBmp,fBmp);
     end;
  end;

  //---------------------------------------------------------
  SetStretchBltMode(ACanvas.Handle, STRETCH_HALFTONE);
  SetBrushOrgEx(ACanvas.Handle, 0, 0, nil);
  lDestPoints[0] := Point(l3DObj.CalcedPoints[0].Z, l3DObj.CalcedPoints[0].Y);
  lDestPoints[1] := Point(l3DObj.CalcedPoints[1].Z, l3DObj.CalcedPoints[1].Y);
  lDestPoints[2] := Point(l3DObj.CalcedPoints[2].Z, l3DObj.CalcedPoints[2].Y);
  Windows.PlgBlt(ACanvas.Handle, lDestPoints, fBmp.Canvas.Handle, 0, 0, fBmp.Width, fBmp.Height, 0, 0, 0);
  l3DObj.Free;
  CalculatingPic := False;
  end;
end;

procedure TForm2.MakeTrapezStretch(PTX0,PTY0,PTX1,PTY1,PTX2,PTY2,PTX3,PTY3 : Integer;SrcBMP,DstBMP : TBitmap);
Var
  // Objekt für die Transformation
  PT: TProjectiveTransformation;
  srcBMPX, dstBMPX : TImage32;
  tempstream : TMemoryStream;
begin
  srcBMPX := TImage32.Create(Form2);
  dstBMPX := TImage32.Create(Form2);
  tempstream := TMemoryStream.Create;
  SrcBMP.SaveToStream(tempstream);
  tempstream.Position := 0;
  srcBMPX.Bitmap.LoadFromStream(tempstream);
  PT:=TProjectiveTransformation.Create;
  //Oben/Linke
  PT.X0:= PTX0; PT.Y0:= PTY0;
  //Oben/Rechts
  PT.X1:= PTX1; PT.Y1:= PTY1;
  //Unten/Rechts
  PT.X2:= PTX2; PT.Y2:= PTY2;
  //Unten/Links
  PT.X3:= PTX3; PT.Y3:= PTY3;
  PT.SrcRect:=FloatRect(0,0,SrcBMPX.Width,SrcBMPX.Height);
  DstBMPX.Bitmap.Width:=SrcBMPX.Bitmap.Width;
  DstBMPX.Bitmap.Height:=SrcBMPX.Bitmap.Height;
  DstBMPX.BeginUpdate;
    DstBMPX.Bitmap.Clear(Color32(TransparentColorValue));
    Transform(DstBMPX.Bitmap,SrcBMPX.Bitmap,PT);
  DstBMPX.EndUpdate;
  DstBMPX.Invalidate;
  tempstream.Clear;
  tempstream.Position := 0;
  dstBMPX.Bitmap.SaveToStream(tempstream);
  tempstream.Position := 0;
  DstBMP.LoadFromStream(tempstream);
  PT.Free;
  tempstream.Free;
  DstBMPX.Free;
  srcBMPX.Free;
end;

hmmm ob Apple da was gemacht hat weiß ich nich, es gibt aber eben die Freeware Madotate die auch so ähnlich is, und ich glaub von Stardock gibts auch sowas in der Art.

Gruß

Tom
Tom
Just DO it
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz