Problem mit Rotateimage

Übersicht

BlitzBasic

Beginners-Corner

	-BB Noob- Betreff: Problem mit Rotateimage	Mo, Feb 07, 2005 17:06 Antworten mit Zitat
Mein Problem ist wenn ich die Waffe mit rotateimage drehen will lädt das programm ewig und es passiert nichts. Ohne rotateimage klappts nur die pistole dreht sich nicht(woher kommt das wohl ) Hier der Code: WaffePistole = LoadImage("pistole16,26.bmp") Pistole = CreateImage(16,26,360) For i = 1 To 359 SetBuffer ImageBuffer(Pistole,i) DrawImage Waffepistole,0,0 RotateImage Waffepistole,1 Next winkel = 200 Repeat SetBuffer BackBuffer() DrawImage Pistole,MouseX(),MouseY(),winkel If KeyDown(200) Then winkel = winkel + 1 If KeyDown(208) Then winkel = winkel - 1 If winkel > 359 Then winkel = 0 If winkel < 0 Then winkel = 359 Flip Repeat Until MilliSecs() Mod 30 = 0 Cls Until KeyHit(1) Ich denk mal irgentwo ist ein Fehler und ihr findet ihn *hoff

-BB Noob-

Betreff: Problem mit Rotateimage

Mo, Feb 07, 2005 17:06
Antworten mit Zitat

Mein Problem ist wenn ich die Waffe mit rotateimage drehen will lädt das programm ewig und es passiert nichts.
Ohne rotateimage klappts nur die pistole dreht sich nicht(woher kommt das wohl Very Happy

)

Hier der Code:

WaffePistole = LoadImage("pistole16,26.bmp")

Pistole = CreateImage(16,26,360)

For i = 1 To 359
SetBuffer ImageBuffer(Pistole,i)
DrawImage Waffepistole,0,0
RotateImage Waffepistole,1
Next

winkel = 200

Repeat
SetBuffer BackBuffer()
DrawImage Pistole,MouseX(),MouseY(),winkel

If KeyDown(200) Then winkel = winkel + 1
If KeyDown(208) Then winkel = winkel - 1

If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359

Flip
Repeat Until MilliSecs() Mod 30 = 0
Cls
Until KeyHit(1)

Ich denk mal irgentwo ist ein Fehler und ihr findet ihn ***hoff**

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Feb 07, 2005 17:26 Antworten mit Zitat
Hallo, der Erste Fehler liegt schon mal an der Bildgröße, denn wenn ein bild gedreht wird was Unterschiedliche Seitenlängen hat, passt das nicht mehr in das kleine Bild ! Und aus dem Grund wird normalerweise ein Array benutzt und dort jedes Bild seperat gedreht , das spart auch Grafikspeicher! Bei kleinen Bildern reichen auch weniger gedrehte Bilder Code: [AUSKLAPPEN] [EINKLAPPEN] Dim WaffePistole (359) WaffePistole (0) = LoadImage ("pistole16,26.bmp") MidHandle WaffePistole (0) For i = 1 To 359 WaffePistole (i) = CopyImage (WaffePistole (0) ) RotateImage WaffePistole (0) ,i Next winkel = 200 Repeat SetBuffer BackBuffer () DrawImage WaffePistole (winkel) ,MouseX () ,MouseY () If KeyDown (200) Then winkel = winkel + 1 If KeyDown (208) Then winkel = winkel - 1 If winkel > 359 Then winkel = 0 If winkel < 0 Then winkel = 359 Flip Repeat Until MilliSecs () Mod 30 = 0 Cls Until KeyHit (1)
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Feb 07, 2005 17:26
Antworten mit Zitat

Hallo,
der Erste Fehler liegt schon mal an der Bildgröße, denn wenn ein bild gedreht wird was Unterschiedliche Seitenlängen hat, passt das nicht mehr in das kleine Bild !
Und aus dem Grund wird normalerweise ein Array benutzt und dort jedes Bild seperat gedreht , das spart auch Grafikspeicher!
Bei kleinen Bildern reichen auch weniger gedrehte Bilder
Code: [AUSKLAPPEN]

Dim WaffePistole (359)
WaffePistole (0) = LoadImage ("pistole16,26.bmp")
MidHandle WaffePistole (0)

For i = 1 To 359
WaffePistole (i) = CopyImage (WaffePistole (0) )
RotateImage WaffePistole (0) ,i
Next

winkel = 200

Repeat
SetBuffer BackBuffer ()
DrawImage WaffePistole (winkel) ,MouseX () ,MouseY ()
If KeyDown (200) Then winkel = winkel + 1
If KeyDown (208) Then winkel = winkel - 1
If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359
Flip

Repeat
Until MilliSecs () Mod 30 = 0

Cls
Until KeyHit (1)

[BB2D | BB3D | BB+]