Plasma

[zylum]

much better! another 20 bits awarded!

[AsianSensation]

I think I'll top that by giving double.

+40 bits.

Hell, + another 20 bits just because I like it.

Like tony said, definitely better than the "ZOMG! It's flashing!!" programs that we've been getting.

[zylum]

lol, i gave 70 total (read my previous post) and you only gave 60... i guess i win

[RaPsCaLLioN]

lol
Nice to know ppl are fighting over who gives me the most bits

Has anyone else played with the code and made anything of it themselves?

[AsianSensation]

zylum wrote:

lol, i gave 70 total (read my previous post) and you only gave 60... i guess i win

oooooo, so that's how it's going to be. lol.

well, check and match.

+10 bits.

[Mr. T]

its 70 - 70 now

and if you had won the battle, you would have said "checkmate," not "check." LOL

[Mr. T]

Check out this uber edit! (adjust the resolution for psychadellic squares)
It's uber!
and
It's an edit!
You cant lose!
-------------------

code:

var iWindow : int := Window.Open ("offscreenonly, graphics:200;200, noecho, nocursor") var iColour : int var x, y : int var rArb : real var rTime : real var iRes : int := 2 var sChar : string (1) procedure ColourSet (R, G, B : int)     for i : 1 .. 128         RGB.SetColor (9, 1 + 9 / 128, .5, .5)     end for     for i : 129 .. 256         RGB.SetColor (256 + 129 -  9, 1 + 9 / 128, .5, .5)     end for end ColourSet ColourSet (1, 0, 0) loop     rTime := Time.Elapsed / 100     for i : 1 .. maxx by iRes         for j : 1 .. maxy by iRes             rArb := sin (Math.Distance (i + rTime, j, 128.0, 128.0) / 8.0)                 + sin (Math.Distance (0, j, 64.0, 64.0) / 8.0)                 + sin (Math.Distance (i, j + rTime / 7, 192.0, 64) / 7.0)                 + sin (Math.Distance (i, j, 192.0, 100.0) / 8.0)             iColour := round (64 + 63 * sin (i / (37 + 15 * cos (j / 74))) * cos (j / (31 + 11 * sin (i / 57))) * +rArb)             if iColour < 2 or iColour > 256 then                 iColour := 2             end if             drawfillbox (i, j, i + iRes - 1, j + iRes - 1, iColour - 1)         end for     end for     if hasch then         getch (sChar)         if ord (sChar) = 200 then             if iRes < 8 then                 iRes += 2             end if         elsif ord (sChar) = 208 then             if iRes > 2 then                 iRes -= 2             end if         end if     end if     Window.Update (iWindow)     exit when buttonmoved ("down") end loop Window.Close (iWindow)

[Naveg]

all you did was change the colours no?

[Mr. T]

see for yourself.

[Naveg]

i did, and it looks like all you did was change the colours

what do you mean by squares and changing resolution?

[Mr. T]

but it on the worst possible resolution, and it has those flashy squares.
reminds of the old snes super mario. when u laoded into a level, those blurry little squares were used as intro.

[RaPsCaLLioN]

Vladimir wrote:

i did, and it looks like all you did was change the colours

what do you mean by squares and changing resolution?

i changed it so u can decrease/increase the resolution using the up/down arrow keys...

and Pwned..... i don't understand how ppl find flashing squares amusing. Ur like a moth to a porch light. Ur mis-using my code and I won't stand for that!

[Mr. T]

ya, sorry, i took the sophistication out of it

[Spartan_117]

it says Distance is not in export list of Math

[Mr. T]

You're probably using an older version of Turing.