Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#332

Re: Andorra 2D [Ver. 0.20 ALPHA 2, 05.10.07]

  Alt 21. Okt 2007, 12:33
Nochmal ein Screenshot von genau der gleichen Demo, dieses mal wurde die Linie jedoch texturiert. Alles was dazu nötig ist, sind folgende Zeilen:
Delphi-Quellcode:
Pen.Texture := AdImageList[0].Texture.Texture;
Pen.TextureMode := tmTile; //Alternativ auch "Stretch"
Wichtig ist jedoch, das die Textur eine "Power of Two"-Größe hat, sonst entstehen schwarze Lücken.

Übrigens: Mein Canvas-Code ist mittlerweile rund 1000 Zeilen lang - kann aber nur Linien zeichnen. Er wurde in die Unit "AdCanvas" ausgelagert, die jetzt bei der Benutzung extra eingebunden werden muss.

Man kann das mit den Texturen besonders gut für "Strahlenkanonen" verwenden.
Miniaturansicht angehängter Grafiken
spiral2_125.png  
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat