BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Color Field", by desalvionjr

Code

Const SCREEN_WIDTH = 640
Const SCREEN_HEIGHT = 480
Const KEY_QUIT = 1

Global starsN = 500
Dim starsI(starsN)
Dim starsX(starsN)
Dim starsY(starsN)
Dim starsZ(starsN)

For x = 0 To starsN
 starsX(x) = Rnd(6400)
 starsY(x) = Rnd(4800)
Next

Graphics SCREEN_WIDTH , SCREEN_HEIGHT , 0 , 1

SetBuffer BackBuffer()

Repeat

If KeyDown(KEY_QUIT)
   FlushKeys
   End
 End If

For x = 0 To starsN
     
   diffsX = (starsX(x) - 3200)
   diffsY = (starsY(x) - 2400)
   If Abs(diffsX) < 20 Then diffsX = 20
   If Abs(diffsY) < 20 Then diffsY = 20
     
   tx = starsx(x)
   ty = starsy(x)
     
   starsX(x) = tx + (DiffsX/20)
   starsY(x) = ty + (DiffsY/20)
     
   tc = Abs(diffsx) + Abs(diffsy)
   If tc > 2600 Then Color 255,0,128
   If tc < 2600 And tc > 2000 Then Color 0,0,160
   If tc < 2000 And tc > 1500 Then Color 0,160,0
   If tc < 1500 And tc > 1250 Then Color 255,26,26
   If tc < 1250 And tc > 1000 Then Color 37,223,243
   If tc < 1000 And tc > 700 Then Color 251,152,4
   If tc < 700 And tc > 500 Then Color 122,168,179
   If tc < 500 And tc > 100 Then Color 90,143,207
   If tc < 100 Then Color 50,50,50

If starsX(x) < 0 Or starsX(x) > 6400 Or starsY(x) < 0 Or starsY(x) > 4800
     starsX(x) = 3200 + (Rnd(1600)) - 800
     starsY(x) = 2400 + (Rnd(1600)) - 800
   Else
     Plot starsX(x)/10, starsY(x)/10
   EndIf
     
 Next

Flip
 Cls

Forever

Code software created by Krylar's Kreations