| Plasma Effekt für Blitz3D von ??? |
| Ist auch nicht von mir sondern von Norc, sieht aber immer noch gut aus ;) Für alle nicht B3D Besitzer: http://www.silentrumble.com/pblc/bb_playground/plasma1.zip [code:1:1b768fe997] ; Original QB-Plasma, portiert nach B3D und als Textur auf einen Würfel ; projiziert. Warnung: Herumspielen zwischen Lockbuffer und Unlockbuffer ; kann schnell zum Absturz von B3D führen. Lies erst mal die Beschreibung von ; WritePixelFast! ; Wichtig: Deduging-Mode ausschalten, sonst ist es VIEL zu langsam. Graphics3D 800,600,32,2 SetBuffer BackBuffer() plasma=CreateImage(320,320) platex=CreateTexture(256,256) Dim cosinus(640) position = 0 ; ich will meine eigene cos-es (grummel) 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 ;init 3D-scene SetBuffer BackBuffer() camera=CreateCamera() light=CreateLight() RotateEntity light,90,0,0 cube=CreateCube() EntityTexture cube,platex,0,0 PositionEntity cube,0,0,30 ScaleEntity cube,9,9,9 ; mainloop While a<>27 a=GetKey() Gosub qbplasma TurnEntity cube,0.8,1.2,1 RenderWorld() Flip 0 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 TextureBuffer(platex) DrawImage plasma,0,0 SetBuffer BackBuffer() Return [/code:1:1b768fe997] |