Computer Science Canada

setscreen ("graphics:400;400")

const minClr := 16
const maxClr := 30
const smooth := 1
var clr : int := Rand.Int (minClr, maxClr)

for x : 1 .. maxx
clr += Rand.Int (-smooth, smooth)
clr := min (maxClr, max (clr, minClr))
drawdot (x, 1, clr)
end for

for y : 2 .. maxy
for x : 1 .. maxx
if x = 1 then
clr := whatdotcolor (x, y - 1)
elsif x = maxx then
clr := round ((max (whatdotcolor (x, y - 1), minClr) + max (whatdotcolor (x, y - 1), minClr) + max (whatdotcolor (x - 1, y - 1), minClr)) / 3)
else
clr := round ((max (whatdotcolor (x, y - 1), minClr) + max (whatdotcolor (x, y - 1), minClr) + max (whatdotcolor (x - 1, y - 1), minClr)) / 3)
end if
clr += Rand.Int (-smooth, smooth)
clr := max (minClr, min (clr, maxClr))
drawdot (x, y, clr)
end for
end for

setscreen ("graphics:300;100")

var minClr := 61
var maxClr := 103
var contrast := 0.55

put "what is the smallest colour?"
get minClr
put "what is the largest colour?"
get maxClr
put "what is the contrast? (>=0)"
get contrast

setscreen ("graphics:100;100")

var clr : real := Rand.Int (minClr, maxClr)

for x : 1 .. maxx
clr += Rand.Real * (2 * contrast) - contrast
clr := min (maxClr, max (clr, minClr))
drawdot (x, 1, round (clr))
end for

loop
for y : 2 .. maxy
for x : 1 .. maxx
if x = 1 then
clr := (whatdotcolor (x, y - 1) + whatdotcolor (x + 1, y - 1)) / 2
elsif x = maxx then
clr := (max (whatdotcolor (x, y - 1), minClr) + max (whatdotcolor (x - 1, y), minClr) + max (whatdotcolor (x - 1, y - 1), minClr)) / 3
else
clr := (max (whatdotcolor (x - 1, y), minClr) + max (whatdotcolor (x, y - 1), minClr) + max (whatdotcolor (x + 1, y - 1), minClr) + max (whatdotcolor (x - 1, y - 1), minClr)) / 4
end if
clr += Rand.Real * (2 * contrast) - contrast
clr := max (minClr, min (clr, maxClr))
drawdot (x, y, round (clr))
end for
end for
end loop

Author:	Paul [ Sun Feb 22, 2004 8:43 pm ]
Post subject:
Funky , at first it looks like a closeup of a tree, then if you change the max and min colors it looks great, like all neonish and stuff.

Author:	Delos [ Sun Feb 22, 2004 8:53 pm ]
Post subject:
Wow...that's awsome. Really!

Author:	Catalyst [ Sun Feb 22, 2004 9:09 pm ]
Post subject:
great job have 25 bits

Author:	Tony [ Sun Feb 22, 2004 11:46 pm ]
Post subject:
looks sweet, have another +25Bits

Author:	jonos [ Mon Feb 23, 2004 7:32 am ]
Post subject:
another awesome one from zylum!!! you should start c or blitz, you would do really well.

Author:	alikhan [ Wed May 12, 2004 6:50 pm ]
Post subject:
i dunno i like the first one a bit better, but maybe its cuz i dunt no how to use the second one pretty cool both of them though

Author:	MyPistolsIn3D [ Sat May 15, 2004 1:21 pm ]
Post subject:
Looks great, but any practical use?

Author:	Paul [ Sat May 15, 2004 1:23 pm ]
Post subject:
MyPistolsIn3D wrote: Looks great, but any practical use? yes it creates textures.