| Plasma Effekt 2D von ??? |
| Ist zwar nicht von mir, sieht aber trotzdem toll aus ;) [code:1:137c9b38d9] ; Original QB-Plasma, portiert nach BB . ; Warnung: Herumspielen zwischen LockBuffer und UnlockBuffer kann schnell ; zum Absturz von B3D führen. Lies erst mal die Beschreibung von WritePixelFast! ; Wichtig: "Debug Enabled" ausschalten, sonst ist es VIEL zu langsam. Graphics 800,600,32,2 SetBuffer BackBuffer() plasma=CreateImage(320,320) Dim cosinus(640) position = 0 For c = 0 To 640 cosinus(c) = Cos((115*3.14159265358 * c) / 320) * 32 + 32 Next ;Definieren eines Farbverlaufes Dim r(255) : Dim g(255) : Dim b(255) : Dim mrgb(255) For i=0 To 63 : r(i)=i*4 : g(i)=0 : b(i)=255-(i*4) : Next For i=0 To 63 : r(i+64)=255-(i*4) : g(i+64)=i*2 : b(i+64)=0 : Next For i=0 To 63 : r(i+128)=i*2 : g(i+128)=128-(i*2) : b(i+128)=i*4 : Next For i=0 To 63 : r(i+192)=128+(i*2) : g(i+192)=i : b(i+192)=255-(i*4) : Next For i=0 To 255 : mrgb(i)=((r(i)*$10000)+(g(i)*$100)+b(i))And $FFFFFF : Next ; mainloop While a<>27 a=GetKey() Gosub qbplasma Flip 1 Wend End .qbplasma wave1 = wave1 + 2 If wave1 >= 320 Then wave1 = 0 wave2 = wave2 + 2 If wave2 >= 320 Then wave2 = 0 wave3 = wave3 + 3 If wave3 >= 320 Then wave3 = 0 SetBuffer ImageBuffer(plasma) LockBuffer For y = 0 To 319 d = cosinus(y + wave2) + cosinus(y + wave3) For x = 0 To 319 f = (cosinus(x + wave1) + cosinus(x + y) + d) And $FF WritePixelFast x,y,mrgb(f) Next Next UnlockBuffer SetBuffer BackBuffer() DrawImage plasma,0,0 Return [/code:1:137c9b38d9] |
| von ??? |
| morszeck, das größte wäre, wenn du das prinzip dahinter erklären könntest (nein, ich pers. werde mich nicht dransetzen und es zu verstehen versuchen ;)), vielleicht als einen der guten beiträge zu makegame(). |