AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Ein Bild als Kugel darstellen

Ein Bild als Kugel darstellen

Ein Thema von SirThornberry · begonnen am 1. Mär 2006 · letzter Beitrag vom 2. Mär 2006
Antwort Antwort
Seite 1 von 3  1 23   
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#1

Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 01:30
Hallo,

ich hab vor einem Bild einen Kugeleffekt zu verleigen. Also so als würde man ein Bild um eine Kugel wickeln. Leider weiß ich überhaupt nicht wo ich ansetzen soll oder wo ich eventuell schon eine fertige Lösung finde.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 06:34
Hi ho!

So aus dem Hut würde ich sagen: Nimm dir eine 3D-Engine, kreiere eine Kugel und leg dein Bild als Textur darauf.
Ja, das ist schnell in einem Satz gesagt, aber wahrscheinlich eine Heidenarbeit.

*such*

Falls es keine ganze Kugel sein muss, kanst du ja auch mal die Hemesphere-Buttons probieren (bzw. Sourcen ansehen). Screenshots von den Demos anbei.
Miniaturansicht angehängter Grafiken
hemes_410.png  
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat
tigerman33

Registriert seit: 30. Jul 2005
Ort: München
423 Beiträge
 
Delphi 2005 Professional
 
#3

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 09:16
Hallo,

solche Abbildungen schreien normalerweise direkt nach Matrizen. Dann bleibt natürlich nur noch, die richtige Matrix zu finden...

Ich würde empfehlen mal nach "Fischauge" zu suchen. Da müsste sich sicherlich was finden lassen. Interessiert mich jetzt auch--ich glaub da werd ich heute nachmittag mal direkt googlen.

Muss jetzt aber los...Vorlesung
Christian
Der Computer hilft mir, Probleme zu lösen, die ich ohne Computer nicht hätte.
  Mit Zitat antworten Zitat
Benutzerbild von MisterNiceGuy
MisterNiceGuy

Registriert seit: 1. Jul 2003
Ort: Mannheim
919 Beiträge
 
Delphi 7 Personal
 
#4

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 09:30
Willst du denn als Ausgabe eine 3D-Animation erhalten oder einfach ein 2D-Bild?
Jonas
Wenn mich jemand sucht, ich bin im Kühlschrank!

Informationen über das Duale Studium
www.jofre.de
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 12:41
erstmal will ich ein 2D bild erhalten. Ob das später eine Animation werden soll würde ich erstmal verneinen, aber nicht generell ausschließen. Vorerst geht es mir erstmal nur darum mehrere Kugelbilder zu erzeugen und auf einem anderen Bild zusammen zu setzen.
Werd auch mal nach Fischauge suchen, vielleicht findet sich da was.
Hab auch schon bischen rumprobiert mit Sinus/Cosinus zeugs um einen Kreis zu erhalten und die Werte dann zu verwenden für den Schatten bzw. wie weit zu stretchen ist. (Also je mehr der Halbkreis auf der X-Achse ausschlägt destso weniger Schatten etc.)
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#6

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 15:23
Also ich habe da einen Sourcecode der das einen Lupeneffekt berechnet.
Kann aber den Uhrheberlink nicht mehr finden. (..doch ist in der Readme)
Eigentlich ist das nur ein Eeffekt, wenn man mit den Parameter ein wenig
spiel kommt man schon hin.

Oder suchst du die exakte Vohrgehensweise om das Bild auf eine Kugel zu rechnen ?
Angehängte Dateien
Dateityp: zip delphifr_source_23853_145.zip (412,6 KB, 37x aufgerufen)
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 16:00
na toll, jetzt hab ich mir den halben Tag den Kopf zerbrochen und rumprobiert und auch soweit das ganze hinbekommen (siehe beispielprojekt im Anhang). Ist ist zwar nicht ganz eine Kugel aber die Darstellung als hätte man einen Globus (genau das wollte ich eigentlich hinn bekommen).
Bin jetzt eigentlich so weit das ich nur noch die Schatteneffekte hinzu fügen muss.

@turboPASCAL: eigentlich stimmt der Effekt schon. Wenn man bei dem Teil was vom auto am höchsten absteht, die lupe leicht hin und her bewegt ist das schon der rotierende effekt einer kugel. Die kugel kommt ja dadurch zu stande das der Teile der zentral liegt normal-groß ist (bzw. vergrößert) und je weiter es dem rand zu geht destso kleiner (nach hinten verzerrt) wird es.
Angehängte Dateien
Dateityp: zip kugeleffekt_157.zip (282,0 KB, 56x aufgerufen)
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#8

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 16:04
Ha, das ist ja toll. Kann ich den Soursecode mal bekommen ?
So ein Programm, da juckt mich immer in den Fingern...

Zitat:
@turboPASCAL: eigentlich stimmt der Effekt schon. Wenn man bei [...]
Desswegen dachte ich er könnte dir behilflich sein...
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#9

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 16:12
Vorab kann ich schon sagen das es nicht so elegant gelöst ist wie in deinem Beispiel da bei mir nur auf der X-Achse gestretcht wird (das auskommentierte wäre die Variante nur auf der Y-Achse zu stretchen). Ich werde wohl versuchen das von dir gepostete so abzuwandeln das "pixels" weg fällt (dazu gibts ja pointer so das nicht ständig nen changed ausgelöst wird).

Den Sourcecode einzeln zu posten ist bissl schwer (da bissl verteilt), deswegen gleich mein ganzes Object als Unit:
Delphi-Quellcode:
unit uKugelPicObj;

interface

uses
  windows, graphics;

type
  TKugelPicObj = class(TObject)
  private
    fPicOrigin: TBitmap;
    fPicStretched: TBitmap;
    fPicTmp : TBitmap;
    fBallSize : DWord;
    fRotationX : Extended;
    fSizes : Array of DWord;
    procedure FCalcNewSize;
    procedure FOnPicChanged(Sender: TObject);
    procedure FRefreshStretchedPic;
    procedure FRefreshTmpPic;
    procedure FSetPicture(APic: TBitmap);
    procedure FSetRotation(AType: Integer; ARotation: Extended);
    procedure FSetSize(ASize: DWord);
  public
    constructor Create;
    destructor Destroy; override;

    property Picture: TBitmap read fPicOrigin write FSetPicture;
    property RotationX: Extended Index 0 read fRotationX write FSetRotation;
    property Size: DWord read fBallSize write FSetSize;

    function DrawBall(ADst: TBitmap): Boolean;
  end;

implementation

{==============================================================================}

constructor TKugelPicObj.Create;
begin
  inherited Create;
  fBallSize := 100;
  fPicOrigin := TBitmap.Create;
  fPicOrigin.OnChange := FOnPicChanged;
  fPicStretched := TBitmap.Create;
  fPicTmp := TBitmap.Create;
  fRotationX := 0;
  FCalcNewSize;
end;

{==============================================================================}

destructor TKugelPicObj.Destroy;
begin
  fPicTmp.Free;
  fPicStretched.Free;
  fPicOrigin.Free;
  inherited Destroy;
end;

{==============================================================================}

function TKugelPicObj.DrawBall(ADst: TBitmap): Boolean;
var LCount,
    LPosition: Integer;
    LSize : DWord;
begin
  if (fPicOrigin.Width > 0) and (fPicOrigin.Height > 0) then
  begin
    ADst.Width := fBallSize;
    ADst.Height := fBallSize;
    SetStretchBltMode(ADst.Canvas.Handle, STRETCH_HALFTONE);
    SetBrushOrgEx(ADst.Canvas.Handle, 0, 0, nil);

    for LCount := 0 to fBallSize - 1 do
    begin
      LSize := fSizes[LCount];
      LPosition := (fBallSize - LSize) div 2;

      //StretchBlt(ADst.Canvas.Handle, LCount, LPosition, 1, LSize,
      // fPicTmp.Canvas.Handle, LCount, 0, 1, fPicTmp.Height, SRCCOPY);

      StretchBlt(ADst.Canvas.Handle, LPosition, LCount, LSize, 1,
                 fPicTmp.Canvas.Handle, 0, LCount, fPicTmp.Width, 1, SRCCOPY);
    end;
    result := True;
  end else
    result := False;
end;

{==============================================================================}

procedure TKugelPicObj.FCalcNewSize;
var LCount,
    LHalfBallSize: Integer;
begin
  LHalfBallSize := Trunc(fBallSize / 2);
  SetLength(fSizes, fBallSize);
  for LCount := 0 to fBallSize - 1 do
  begin
    if (LCount > LHalfBallSize) then
      fSizes[LCount] := Round(Sqrt(Sqr(LHalfBallSize) - Sqr(LCount - LHalfBallSize))) * 2
    else
      fSizes[LCount] := Round(Sqrt(Sqr(LHalfBallSize) - Sqr(LHalfBallSize - LCount))) * 2;
  end;
  FRefreshStretchedPic;
end;

{==============================================================================}

procedure TKugelPicObj.FOnPicChanged(Sender: TObject);
begin
  FRefreshStretchedPic;
end;

{==============================================================================}

procedure TKugelPicObj.FRefreshStretchedPic;
begin
  if (fPicOrigin.Width = 0) or (fPicOrigin.Height = 0) then
    fPicStretched.Assign(fPicOrigin)
  else begin
    fPicStretched.Width := fBallSize;
    fPicStretched.Height := fBallSize;
    SetStretchBltMode(fPicStretched.Canvas.Handle, STRETCH_HALFTONE);
    SetBrushOrgEx(fPicStretched.Canvas.Handle, 0, 0, nil);
    StretchBlt(fPicStretched.Canvas.Handle, 0, 0, fBallSize, fBallSize,
               fPicOrigin.Canvas.Handle, 0, 0, fPicOrigin.Width, fPicOrigin.Height, SRCCOPY);
  end;
  FRefreshTmpPic;
end;

{==============================================================================}

procedure TKugelPicObj.FRefreshTmpPic;
var LLeft: Integer;
begin
  if (fPicStretched.Width > 0) and (fPicStretched.Height > 0) then
  begin
    fPicTmp.Width := fPicStretched.Width;
    fPicTmp.Height := fPicStretched.Height;

    LLeft := Round((fPicTmp.Width) / 360 * fRotationX);

    BitBlt(fPicTmp.Canvas.Handle, 0, 0, fPicTmp.Width - LLeft, fPicTmp.Height,
           fPicStretched.Canvas.Handle, LLeft, 0, SRCCOPY);

    BitBlt(fPicTmp.Canvas.Handle, fPicTmp.Width - LLeft, 0, fPicTmp.Width, fPicTmp.Height,
           fPicStretched.Canvas.Handle, 0, 0, SRCCOPY);
  end;
end;

{==============================================================================}

procedure TKugelPicObj.FSetPicture(APic: TBitmap);
begin
  if (APic <> fPicOrigin) then
  begin
    if (APic = nil) then
    begin
      fPicOrigin.Width := 0;
      fPicOrigin.Height := 0;
    end else
      fPicOrigin.Assign(APic);
  end;
end;

{==============================================================================}

procedure TKugelPicObj.FSetRotation(AType: Integer; ARotation: Extended);
  procedure LSetVal(var ACurrVal: Extended);
  begin
    if ARotation <> ACurrVal then
    begin
      while (ARotation >= 360) do
        ARotation := ARotation - 360;
      while (ARotation < 0) do
        ARotation := ARotation + 360;
      ACurrVal := ARotation;
      FRefreshTmpPic;
    end;
  end;
begin
  case AType of
    0: LSetVal(fRotationX);
  end;
end;

{==============================================================================}

procedure TKugelPicObj.FSetSize(ASize: DWord);
begin
  if ASize < 1 then
    ASize := 1;
  if ASize <> fBallSize then
  begin
    fBallSize := ASize;
    FCalcNewSize;
  end;
end;

{==============================================================================}

end.
Das mit den jucken in den Fingern kenn ich. Denn das ganze mit dem Kugel brauch ich nicht wirklich, bin nur auf die Idee gekommen als ich gestern das Sterne-Projekt gesehen hab und dann den Screensaver von Galileo wo auch planeten ihre Bahnen ziehen). War also nen reines fingerjuck-projekt
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#10

Re: Ein Bild als Kugel darstellen

  Alt 1. Mär 2006, 16:25
Jupp, ich guck mir halt gern solch einen Code an um die Herangehensweise zu untersuchen wie ein Probleb gelöst wurden ist. Solche Berechnungen sind immer sehr interessant, auch wenn ich nicht immer alles Verstehe. Gucken kostet ja nix und lernen kann man immer.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 07:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz