Bitmap perspektivisch in 3D drehen

[Cylence]

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