Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Art Puzzle (https://www.delphipraxis.net/24627-art-puzzle.html)

jAcK oRsEn 23. Jun 2004 18:03


Art Puzzle
 
Hi,



wie kann ich ein Schiebepuzzel programmieren? Ich brauche mal nen Ansatz...

z.B. wie man eine Grafik in mehrere Teile teilt um sie dann zu verschieben!

supermuckl 23. Jun 2004 18:14

Re: Art Puzzle
 
z.B. wie man eine Grafik in mehrere Teile teilt um sie dann zu verschieben!

z.b. mit einem bildbearbeitungsprogramm ;)
wenn das mit delphi passieren soll dann copierste halt die recs aus dem gesamten bild in mehrere einzelne und dann verschiebst halt die kleinen stückchen auf deinem form umeinander..

oder du bestimmst für jedes teil ein record wo dann die aktuelle position drin ist und ein pointer zum bmp
und dann zeichnest bei jeder änderung das ganze wieder in ein großes bitmap und das zeigst an

oder oder oder oder

neolithos 23. Jun 2004 18:15

Re: Art Puzzle
 
Das zerlegen würde ich über Masken machen! Die dann die Teile quasi ausstanzen!

Die richte Positionierung der Teile würde ich über ein Array mir merken.

jAcK oRsEn 23. Jun 2004 18:16

Re: Art Puzzle
 
und wie?

neolithos 23. Jun 2004 18:24

Re: Art Puzzle
 
Zitat:

Zitat von jAcK oRsEn
und wie?

Ich dacht du wolltest nur eine Idee!


Zu den Masken:

Du sagst ein Bild ist z.B. 200x200 Pixel groß.
Dann Zeichnest du soviel Bilder wie es Teile gib!
Wesentlich komplzierte währe es die Maskten nach einem Bild zu errechnen was auch möglich ist.

Oder du läßt diesen Punkt weg, und hast dafür Rechtecke als Puzzle-Teile.

Zu dem Array:

Delphi-Quellcode:
type
  TPuzzle = array [0..9, 0..9] of reocrd
    ptPos : TPoint; // Aktuelle Position des Teils
    aDocked : array [0..3] of Boolean; // Verbunden mit diesen Teilen?
  end;
Währe die einfachste variante!


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:48 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