CoolBasic Forums

Code: Select all

An error occured
Link Expired
The download link of d3dx9_32.dll has expired. Please go back and reload the page. A new link will be generated and you will be able to download the file.

If you're having major problems downloading the file even after reloading the previous page (step 3 of 3), please contact us using the form at http://www.dll-files.com/contact.php !
Thank you in advance! 

Code: Select all

Const Var sw = 200
Const Var sh = 150
Screen.Set sw, sh

Var i As Image = New Image
i.Create sw+1, sh+1

Repeat

	Var t = Timer() / 50
	
	i.Lock
		For w=0 To sw
		For h=0 To sh
			Var c As Float = (Sin((w+h+t)*3)+Cos((w-t)*3)+Cos(h-t)*3)*100+t/2
			i.SetPixel w,h, ((Sin(c)*64+128).ToInt() << 16) + ((Cos(c)*64+128).ToInt() << 8) + (255 << 24)
		Next
		Next
	i.Unlock
	
	i.Draw 0,0
	Screen.Text 0,0,"FPS: "+Screen.FPS()
	
Screen.Draw
Forever

Code: Select all

    Const sw = 200 //ikkunan leveys
    Const sh = 150 //ikkunen korkeus

    SCREEN sw,sh,32,2
    SetWindow "Plasma effect by misthema"


    Repeat

        t=timer()/50 //aikaluku

        For w=0 To sw
         For h=0 To sh
           
            c#=(Sin((w+h+t)*3)+Cos((w-t)*3)+Cos(h-t)*3)*100+t/2 //randomia sinikikkailua
           
            Lock
                PutPixel2 w,h, (Int(Sin(c)*64+128) Shl 16) + (Int(Cos(c)*64+128) Shl 8) + 0
            Unlock

         Next h
        Next w

        Text 0,0,FPS()
       
        DrawScreen

    Forever