ImageBuffer und Maskimage ???

Übersicht

BlitzBasic

Allgemein

	winddancer Betreff: ImageBuffer und Maskimage ???	Do, Nov 18, 2004 20:37 Antworten mit Zitat
Hallo Leute bin heut zum ersten mal hier, allso erstmal a big hallo to everybody ! Ich bin WindDancer und hab hier ein kleines Prob mit MaskImage in Verbindung mit ImageBuffer. Die Farbe die ich mit MaskImage transparent machen will wird einfach nicht durchsichtig und ich find den Fehler nicht, das Prob macht mich echt mürbe weil ich seit Tagen den Fehler einfach net find. Ihr seid echt meine letzte Hoffnung !!!!!!!!!!!!!!!!!!!!!!!!!!! Hier mal ein bisschen BeispielCode : Graphics 800,600,16 SetBuffer BackBuffer() Global startangle = 0 Global Logo = LoadImage("transparentpic.bmp") Global TestPic = LoadImage("testpic.bmp") MaskImage Logo,0,0,0 Dim sinetable(59) For angle = 0 To 59 sinetable(angle) = 8 * Sin(angle * 6.101694915254237288135593220339) Next While Not KeyHit(1) Cls DrawImage testpic,180,80 LogoWave() Flip Wend Function LogoWave() angle=startangle For Y=0 To 162 CopyRect 0,Y,360,1,100+w+sinetable(angle),60+Y,ImageBuffer(Logo),BackBuffer() angle = (angle + 1) If angle=59 Then angle=0 Next startangle = startangle + 1 If startangle=59 Then startangle=1 End Function [/code] Logo (TransparentPic) ist das Pic bei dem die Transparenzfarme Schwarz sein soll und TestPic (testpic) soll darunter zu sehen sein !!!!!!!!!! Vielen Dank für eure Mühe schon mal !!!!!!!!!!!!!!!!!!!!!!!!!!!! WindDancer

winddancer

Betreff: ImageBuffer und Maskimage ???

Do, Nov 18, 2004 20:37
Antworten mit Zitat

Hallo Leute bin heut zum ersten mal hier,

allso erstmal a big hallo to everybody !

Ich bin WindDancer und hab hier ein kleines Prob mit MaskImage in Verbindung mit ImageBuffer.

Die Farbe die ich mit MaskImage transparent machen will wird einfach nicht durchsichtig und ich find den Fehler nicht, das Prob macht mich echt mürbe Sad

weil ich seit Tagen den Fehler einfach net find.

Ihr seid echt meine letzte Hoffnung !!!!!!!!!!!!!!!!!!!!!!!!!!! Smile

Hier mal ein bisschen BeispielCode :

Graphics 800,600,16
SetBuffer BackBuffer()
Global startangle = 0

Global Logo = LoadImage("transparentpic.bmp")
Global TestPic = LoadImage("testpic.bmp")

MaskImage Logo,0,0,0

Dim sinetable(59)
For angle = 0 To 59
sinetable(angle) = 8 * Sin(angle * 6.101694915254237288135593220339)
Next

While Not KeyHit(1)

Cls

DrawImage testpic,180,80
LogoWave()

Flip

Wend

Function LogoWave()

angle=startangle
For Y=0 To 162
CopyRect 0,Y,360,1,100+w+sinetable(angle),60+Y,ImageBuffer(Logo),BackBuffer()
angle = (angle + 1)
If angle=59 Then angle=0
Next
startangle = startangle + 1
If startangle=59 Then startangle=1
End Function

[/code]

Logo (TransparentPic) ist das Pic bei dem die Transparenzfarme Schwarz sein soll und TestPic (testpic) soll darunter zu sehen sein !!!!!!!!!!

Vielen Dank für eure Mühe schon mal !!!!!!!!!!!!!!!!!!!!!!!!!!!! Smile

WindDancer