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

"Simple color tester / finder", by alucard

Big colored rectangle in the center of the screen reflects the RGB value(s) you give it... just a way to find a specific color you want. Instructions right on the screen. Change graphics mode for your computer if necessary (I set it to 3D so that it flickers less). Happy coding!

-Alucard

Code

Graphics3D 800,600
SetBuffer=BackBuffer()

r=100
g=100
b=100

FrameTimer=CreateTimer(60)

While Not KeyHit(1)
     Cls

If KeyDown(2)
          r=r-1
          If r<0 r=0
     EndIf

If KeyDown(3)
          r=r+1
          If r>255 r=255
     EndIf

If KeyDown(4)
          g=g-1
          If g<0 g=0
     EndIf

If KeyDown(5)
          g=g+1
          If g>255 g=255
     EndIf

If KeyDown(6)
          b=b-1
          If b<0 b=0
     EndIf

If KeyDown(7)
          b=b+1
          If b>255 b=255
     EndIf
     
     If KeyHit(59)
          r=Rand(0,255)
          g=Rand(0,255)
          b=Rand(0,255)
     EndIf
     
     Color r,g,b
     Rect 50,200,GraphicsWidth()-300,GraphicsHeight()-300
     
     Color 255,255,255
     Text 50,50,"Red:   "+r
     Text 50,70,"Green: "+g
     Text 50,90,"Blue:  "+b

Text 200,50,"1 to decrease, 2 to increase"
     Text 200,70,"3 to decrease, 4 to increase"
     Text 200,90,"5 to decrease, 6 to increase"

Text 50,130,"Press ESC to end, or F1 for a random color..."

Flip
     WaitTimer(FrameTimer)
Wend

Code software created by Krylar's Kreations