Spiegeln von Importierten Bildern/Animationen

Übersicht

BlitzBasic

Beginners-Corner

	Dob-bi14 Betreff: Spiegeln von Importierten Bildern/Animationen	Sa, März 05, 2005 22:51 Antworten mit Zitat
Hi! Ich hab mal folgende Frage: Wie oder kann man überhaupt Bilder in einer bmp Datei von BB spiegeln lassen?? Gobts da einen Befehl. Bsp.: ich hab ne Figur nach rechts guckend gezeignet, ich will sie aber von BB so gespiegelt haben, dass sie nach links guckt. Danke schonmal für die Hilfe. Dobbi

Dob-bi14

Betreff: Spiegeln von Importierten Bildern/Animationen

Sa, März 05, 2005 22:51
Antworten mit Zitat

Hi!

Ich hab mal folgende Frage: Wie oder kann man überhaupt Bilder in einer bmp Datei von BB spiegeln lassen?? Gobts da einen Befehl.
Bsp.: ich hab ne Figur nach rechts guckend gezeignet, ich will sie aber von BB so gespiegelt haben, dass sie nach links guckt.

Danke schonmal für die Hilfe.

Dobbi

	Hot-Bit Sieger des B2D Retro Wettbewerb / Aug 04	Sa, März 05, 2005 22:53 Antworten mit Zitat
Hoi. Und warum benutzt du dafür nicht dein Zeichen-Proggi ? Toni
... ..... .i.. ... * Sieger des BB-Gameboy-Contest 2004 Sieger des Blitzbaster 2D-Minigolf-Contest 2005 *

Hot-Bit

Sieger des B2D Retro Wettbewerb / Aug 04

Sa, März 05, 2005 22:53
Antworten mit Zitat

Hoi.

Und warum benutzt du dafür nicht dein Zeichen-Proggi ?

Toni

... ..... .i.. ...

***
Sieger des BB-Gameboy-Contest 2004
Sieger des Blitzbaster 2D-Minigolf-Contest 2005
***

	Dob-bi14	Sa, März 05, 2005 22:56 Antworten mit Zitat
Weil ich ein SPiel habe, wo die Grafik dateien einzeln aufrufbart sind, und die Figuren da auch nur nach rechts gucken, also muss das wohl so programierbar sein, denk ich mal,... hoffe ich mal...

Dob-bi14

Sa, März 05, 2005 22:56
Antworten mit Zitat

Weil ich ein SPiel habe, wo die Grafik dateien einzeln aufrufbart sind, und die Figuren da auch nur nach rechts gucken, also muss das wohl so programierbar sein, denk ich mal,... hoffe ich mal...

	ke^kx	Sa, März 05, 2005 22:58 Antworten mit Zitat
Natürlich geht das, mit RotateImage, einfach mal in der OH nachgucken. Jiriki
http://i3u8.blogspot.com Asus Striker II Intel Core2Quad Q9300 @ 2,5 GHz (aber nur zwei Kerne aktiv aufgrund der Instabilität -.-) Geforce 9800 GTX 2GB RAM

ke^kx

Sa, März 05, 2005 22:58
Antworten mit Zitat

Natürlich geht das, mit RotateImage, einfach mal in der OH nachgucken.

Jiriki

http://i3u8.blogspot.com
Asus Striker II
Intel Core2Quad Q9300 @ 2,5 GHz (aber nur zwei Kerne aktiv aufgrund der Instabilität -.-)
Geforce 9800 GTX
2GB RAM

	Ensign Joe	Sa, März 05, 2005 23:04 Antworten mit Zitat
Rotateimage hilft da nix, dann is die Figur aufm Kopf, net aber gespiegelt
Ich habe jetzt eine Pommesbude aufgemacht am Münchner Hauptbahnhof. Und da ich Herbert Görgens heiße, heißt diese Pommesbude Herbert's Pommesbude

Ensign Joe

Sa, März 05, 2005 23:04
Antworten mit Zitat

Rotateimage hilft da nix, dann is die Figur aufm Kopf, net aber gespiegelt Laughing

Ich habe jetzt eine Pommesbude aufgemacht am Münchner Hauptbahnhof.
Und da ich Herbert Görgens heiße, heißt diese Pommesbude
Herbert's Pommesbude Smile

	Hubsi	So, März 06, 2005 1:10 Antworten mit Zitat
TFormImage hilft da weiter, ist aber Realtime nicht zu gebrauchen.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, März 06, 2005 1:10
Antworten mit Zitat

TFormImage hilft da weiter, ist aber Realtime nicht zu gebrauchen.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, März 06, 2005 2:08 Antworten mit Zitat
Habe da mal was gecodet, Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 bild = LoadImage ("......BMP") Dim image(0,0) Time1 = MilliSecs() img =spiegeln(bild) time1 = MilliSecs()-time1 SetBuffer BackBuffer() While Not KeyDown(1);############## DrawBlock img,100,100 Text 200,10, time1 + " Dauer" Flip:Cls:Wend:End ;############ Function spiegeln (img) xx = ImageWidth (img) yy = ImageHeight (img) bild = CreateImage (xx,yy) LockBuffer ImageBuffer (img) LockBuffer ImageBuffer (bild) For x = 0 To xx - 1 For y = 0 To yy - 1 WritePixelFast xx-x,y, ReadPixelFast (x,y, ImageBuffer (img)),ImageBuffer (bild) Next Next UnlockBuffer ImageBuffer (img) UnlockBuffer ImageBuffer (bild) SetBuffer BackBuffer () Return bild End Function Was mich allerdings wundert ist das BlitzPlus 4-5 mal schneller ist als BB2D oder BB3D Mein Testbild war 450x400 Pix groß und benötigte 39 Millisekunden mit B+ Tformimage habe ich noch nich ausprobiert
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, März 06, 2005 2:08
Antworten mit Zitat

Habe da mal was gecodet, Code: [AUSKLAPPEN]

Graphics 800,600
bild = LoadImage ("......BMP")
Dim image(0,0)

Time1 = MilliSecs()
img =spiegeln(bild)
time1 = MilliSecs()-time1

SetBuffer BackBuffer()
While Not KeyDown(1);##############
DrawBlock img,100,100
Text 200,10, time1 + " Dauer"

Flip:Cls:Wend:End ;############

Function spiegeln (img)
xx = ImageWidth (img)
yy = ImageHeight (img)
bild = CreateImage (xx,yy)
LockBuffer ImageBuffer (img)
LockBuffer ImageBuffer (bild)
For x = 0 To xx - 1
For y = 0 To yy - 1
WritePixelFast xx-x,y, ReadPixelFast (x,y, ImageBuffer (img)),ImageBuffer (bild)
Next
Next
UnlockBuffer ImageBuffer (img)
UnlockBuffer ImageBuffer (bild)
SetBuffer BackBuffer ()
Return bild
End Function

Was mich allerdings wundert ist das BlitzPlus 4-5 mal schneller ist als BB2D oder BB3D
Mein Testbild war 450x400 Pix groß und benötigte 39 Millisekunden mit B+
Tformimage habe ich noch nich ausprobiert

[BB2D | BB3D | BB+]