Code archives/Graphics/Background or Texture creator

This code has been declared by its author to be Public Domain code.

Download source code

Background or Texture creator by n8r2k
(Posted 22 years ago)
I accidentally discovered the green one when i was messing around with a matrix of binary numbers. Then i decided to use plot instead of text. Then i messed around with the colors and found some neat stuff. Now is on http://n8r2k.deviousbytes.com/ . 
Graphics 800,600,16,2
SeedRnd MilliSecs()
cols = 800
rows = 600
Dim num(Cols)

Goto blue ;change this to what u want


.grass
For x = 0 To cols Step 1
	For y = 0 To rows Step 1
	Color 0,Rand(0,200),0
		Plot x,y
Next
Next
SaveBuffer(FrontBuffer(),"grass.png")
Goto close 

.foil
For x = 0 To cols Step 1
	For y = 0 To rows Step 1
	Color Rand(0,200),Rand(0,200),Rand(0,200)
		Plot x,y
Next
Next
SaveBuffer(FrontBuffer(),"foil.png")
Goto close

.blue
For x = 0 To cols Step 1
	For y = 0 To rows Step 1
	Color Rand(0,200),Rand(0,200),255
		Plot x,y
Next
Next
SaveBuffer(FrontBuffer(),"blue.png")
Goto close

.red
For x = 0 To cols Step 1
	For y = 0 To rows Step 1
	Color Rand(0,200),0,0
		Plot x,y
Next
Next
SaveBuffer(FrontBuffer(),"red.png")
Goto close

.close 
End