2 Bilder vergleichen

Übersicht

BlitzBasic

Beginners-Corner

	Svolf Betreff: 2 Bilder vergleichen	So, März 12, 2006 16:15 Antworten mit Zitat
Kann mir jemnad sagen wie man z.b man hat 2 bilder und wenn man mit de rmaustaste über isn geht das dann ein anderes erscheit wie z.B ein eingedrücktes und wenn man dann noch die linke maustaste drück dann was passieren kann wie z.B. mit include. Wäre nett wen mir eine rganz genau das erklären könnte ich glaube der Befehl lautete RectsOverlap ; hie rkommt dann was von den ich nicht weis wie ich da smit den 2 Bildern machen kann,...=(

Svolf

Betreff: 2 Bilder vergleichen

So, März 12, 2006 16:15
Antworten mit Zitat

Kann mir jemnad sagen wie man z.b man hat 2 bilder und wenn man mit de rmaustaste über isn geht das dann ein anderes erscheit wie z.B ein eingedrücktes und wenn man dann noch die linke maustaste drück dann was passieren kann wie z.B. mit include. Wäre nett wen mir eine rganz genau das erklären könnte ich glaube der Befehl lautete

RectsOverlap ; hie rkommt dann was von den ich nicht weis wie ich da smit den 2 Bildern machen kann,...=(

	FBI-blitz	So, März 12, 2006 17:16 Antworten mit Zitat
Guck mal in die OH da stehen alle Befehle drin
Computer 1: AMD Athlon64 3500+ \| nVidia GF 7900GT \| 1024 MB DDR-RAM \| ASUS A8N-SLI Preimium \| 250 GB SATA 2 \|\| WindowsXP \| Blitz3D \| Blitz+ Computer 2: AMD AthlonXP 2400+ \| ATI Radeon 9500 \| 512 MB DDR-RAM \| MSI K7N2 \| 80 GB IDE \| 160 GB IDE \|\| WindowsXP \| Blitz3D \| Blitz+ Computer 3: Intel Pentium MMX \| onBoard-Grafik \| 32 MB RAM \| 1 GB IDE \|\| Windows 98 SE \| Blitz+

FBI-blitz

So, März 12, 2006 17:16
Antworten mit Zitat

Guck mal in die OH da stehen alle Befehle drin

Computer 1: AMD Athlon64 3500+ | nVidia GF 7900GT | 1024 MB DDR-RAM | ASUS A8N-SLI Preimium | 250 GB SATA 2 || WindowsXP | Blitz3D | Blitz+
Computer 2: AMD AthlonXP 2400+ | ATI Radeon 9500 | 512 MB DDR-RAM | MSI K7N2 | 80 GB IDE | 160 GB IDE || WindowsXP | Blitz3D | Blitz+
Computer 3: Intel Pentium MMX | onBoard-Grafik | 32 MB RAM | 1 GB IDE || Windows 98 SE | Blitz+

	dark19 Gast	So, März 12, 2006 17:29 Antworten mit Zitat
Meinst du mit vergleichen sowas hier?: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 Dim alphaimage(800,600) Dim bil(400) bild1=LoadImage(Input("Bild 1:")) bild2=LoadImage(Input("Bild 2:")) Cls() drawalphaimage(bild1,0,0,50) drawalphaimage(bild2,0,0,50) Flip() WaitKey() Function drawalphaimage(pic,x,y,a) ;a=0(transp)-100(deckend) If a <= 0 Then Return If a => 100 Then DrawBlock(pic,x,y) Return End If SetBuffer ImageBuffer(pic) ;einlesen des Bildes LockBuffer ImageBuffer(pic) For scanx = 0 To ImageWidth(pic)-1 For scany= 0 To ImageHeight(pic)-1 alphaimage(scanx,scany)=ReadPixelFast(scanx,scany) Next Next UnlockBuffer ImageBuffer(pic) SetBuffer BackBuffer() ; auslesen des Hintergrundes und LockBuffer BackBuffer() ; mischen und malen der neuen Pixel For scanx = 0 To ImageWidth(pic)-1 For scany= 0 To ImageHeight(pic)-1 rgb2=ReadPixelFast(scanx+x,scany+y) rbg=(rgb2 And $FF0000)/$10000 gbg=(rgb2 And $FF00)/$100 bbg=rgb2 And $FF rpic=(alphaimage(scanx,scany) And $FF0000)/$10000 gpic=(alphaimage(scanx,scany) And $FF00)/$100 bpic=alphaimage(scanx,scany) And $FF rneu=rbg(1.0-(a/100.0))+rpica/100.0 gneu=gbg(1.0-(a/100.0))+gpica/100.0 bneu=bbg(1.0-(a/100.0))+bpica/100.0 rgbneu=255$1000000 + rneu$10000 + gneu*$100 + bneu WritePixelFast(scanx+x,scany+y,rgbneu) Next Next UnlockBuffer BackBuffer() End Function thx an triton für die alpha function

dark19

Gast

So, März 12, 2006 17:29
Antworten mit Zitat

Meinst du mit vergleichen sowas hier?:
Code: [AUSKLAPPEN]

Graphics 800,600,32,2

Dim alphaimage(800,600)
Dim bil(400)

bild1=LoadImage(Input("Bild 1:"))
bild2=LoadImage(Input("Bild 2:"))

Cls()
drawalphaimage(bild1,0,0,50)
drawalphaimage(bild2,0,0,50)

Flip()
WaitKey()

Function drawalphaimage(pic,x,y,a) ;a=0(transp)-100(deckend)
If a <= 0 Then Return
If a => 100 Then
DrawBlock(pic,x,y)
Return
End If

SetBuffer ImageBuffer(pic) ;einlesen des Bildes
LockBuffer ImageBuffer(pic)
For scanx = 0 To ImageWidth(pic)-1
For scany= 0 To ImageHeight(pic)-1
alphaimage(scanx,scany)=ReadPixelFast(scanx,scany)
Next
Next
UnlockBuffer ImageBuffer(pic)

SetBuffer BackBuffer() ; auslesen des Hintergrundes und
LockBuffer BackBuffer() ; mischen und malen der neuen Pixel
For scanx = 0 To ImageWidth(pic)-1
For scany= 0 To ImageHeight(pic)-1
rgb2=ReadPixelFast(scanx+x,scany+y)
rbg=(rgb2 And $FF0000)/$10000
gbg=(rgb2 And $FF00)/$100
bbg=rgb2 And $FF
rpic=(alphaimage(scanx,scany) And $FF0000)/$10000
gpic=(alphaimage(scanx,scany) And $FF00)/$100
bpic=alphaimage(scanx,scany) And $FF
rneu=rbg*(1.0-(a/100.0))+rpic*a/100.0
gneu=gbg*(1.0-(a/100.0))+gpic*a/100.0
bneu=bbg*(1.0-(a/100.0))+bpic*a/100.0
rgbneu=255*$1000000 + rneu*$10000 + gneu*$100 + bneu
WritePixelFast(scanx+x,scany+y,rgbneu)
Next
Next
UnlockBuffer BackBuffer()

End Function

thx an triton für die alpha function