Dazzling and hypnotic kinetic pattern

[Tallguy]

OBJECTIVE : Write a program that creates a dazzling and hypnotic kinetic pattern. The display must take place within aspecified
area of the screen and ends when any key is pressed.

so is this Dazzling and hypnotic?
how can i make it better?

[Jessica359]

Pretty awesome!
mayby changing the colours instead of just balck and white, like a rainbow pattern.

[CodeMonkey2000]

This counts as a "omfg sooo trippy cool flashes!". And most of us have already done some thing like this in class at some point. And this is pretty lame.

[Tallguy]

CodeMonkey2000 wrote:

This counts as a "omfg sooo trippy cool flashes!". And most of us have already done some thing like this in class at some point. And this is pretty lame.

yay i know, but it was one of my assigments to get us used to loops wat one have u done codemonkey?

[Doug101]

cool program it amde me dizzy

[A.J]

CodeMonkey2000 wrote:

This counts as a "omfg sooo trippy cool flashes!". And most of us have already done some thing like this in class at some point. And this is pretty lame.

Don't be so pessimistic...........
Its pretty cool, but to make it better try giving it a kaleidoscope effect.

[Jestar]

http://compsci.ca/v3/viewtopic.php?t=7734

[Tallguy]

Quote:

kaleidoscope

meaning?

Quote:

http://compsci.ca/v3/viewtopic.php?t=7734

been there done that

[Jessica359]

Kaleidoscope is those awesome thingies you look through that have an awesome pattern thing when you look in it.

[Tallguy]

and how would i do that jess?

[Nick]

JFGI

[Zampano]

I agree with Codemonkey. Though these are sometimes impressive, they are seldom the first of their kind. The fewer these kinds of submissions become, the better.

[fishtastic]

by changing all numbers to randint and adding colours and a little pause it looks much better to me.
sorry for editting your code i just felt like it

code:

loop %repeat code until stoped     Draw.FillBox (0, 0, maxx, maxy, Rand.Int (1, 255))     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, 255))     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), 0)     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, 255))     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), 0)     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), 0)     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, 255))     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), 0)     Draw.FillBox (Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, maxx), Rand.Int (1, 255))     exit when hasch %TAKES A WHILE FOR HASCH TO KICK IN . . .     delay(100) end loop %end the reapetative loop

[Jessica359]

Now thats awesome!

[petree08]

No, that's stupid. Anyone can draw flashing boxes that change colour. It takes very little brain power to write these flashy things.

Now if you were to write code for something that looks cool but requires mathimatical calculations to generate the image then that might be worth posting

code:

setscreen ("graphics:max,max,nobuttonbar,offscreenonly") % Use the space bar to increase the number of points % use enter key to lower num of points % use left/right arrows to change the degree of spiral % use mouse to rotate var NUM_OF_POINTS : int := 360 % increase this to make a bigger spiral const ORB_X := maxx div 2 const ORB_Y := maxy div 2 var SPIRAL : int := 1 var T_R : int := 1 var XM, YM, Click : int var Key : array char of boolean const C1 := 0 const C2 := 0 var DP : int := 0 var DP2 : int := 0 colorback (7) loop     Input.KeyDown (Key)     if Key (KEY_UP_ARROW) then         DP += 1         if DP > 5 then             SPIRAL += 1             DP := 0         end if     end if     if Key (KEY_DOWN_ARROW) and SPIRAL > 1 then         DP += 1         if DP > 5 then             SPIRAL -= 1             DP := 0         end if     end if     if Key (KEY_RIGHT_ARROW) then         DP2 += 1         if DP2 > 5 then             T_R += 1             DP2 := 0         end if     end if     if Key (KEY_LEFT_ARROW) then         DP2 += 1         if DP2 > 5 then             DP2 := 0             T_R -= 1         end if     end if     if Key (' ') then         NUM_OF_POINTS += 1     end if     if Key (KEY_ENTER) then         NUM_OF_POINTS -= 1     end if     cls     mousewhere (XM, YM, Click)     drawfilloval (ORB_X, ORB_Y, 10, 10, 0)     for I : 0 .. NUM_OF_POINTS         if I mod 2 = 1 then             drawline (round (cosd (I * T_R + (XM + ORB_X + 90)) * (I div 2)) + ORB_X,                 round (sind (I * T_R + (YM + ORB_Y + 90)) * (I div 2)) + ORB_Y,                 round (cosd ((I + 1) * T_R + (XM + ORB_X + 90)) * ((I + 1) div 2)) + ORB_X,                 round (sind ((I + 1) * T_R + (YM + ORB_Y + 90)) * ((I + 1) div 2)) + ORB_Y, 14)         else             drawline (round (cosd (I * T_R + (XM + ORB_X + 90)) * (I div 2)) + ORB_X,                 round (sind (I * T_R + (YM + ORB_Y + 90)) * (I div 2)) + ORB_Y,                 round (cosd ((I + 1) * T_R + (XM + ORB_X + 90)) * ((I + 1) div 2)) + ORB_X,                 round (sind ((I + 1) * T_R + (YM + ORB_Y + 90)) * ((I + 1) div 2)) + ORB_Y, 12)         end if     end for     View.Update end loop