----------------------------------- Tallguy Thu Apr 03, 2008 7:58 am Dazzling and hypnotic kinetic pattern ----------------------------------- 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 Thu Apr 03, 2008 8:01 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- Pretty awesome! mayby changing the colours instead of just balck and white, like a rainbow pattern. :) ----------------------------------- CodeMonkey2000 Thu Apr 03, 2008 8:01 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- 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 Thu Apr 03, 2008 8:06 am Re: Dazzling and hypnotic kinetic pattern ----------------------------------- 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 Thu Apr 03, 2008 8:06 am Re: Dazzling and hypnotic kinetic pattern ----------------------------------- cool program it amde me dizzy ----------------------------------- A.J Thu Apr 03, 2008 8:14 am Re: Dazzling and hypnotic kinetic pattern ----------------------------------- 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 Thu Apr 03, 2008 8:15 am Re: Dazzling and hypnotic kinetic pattern ----------------------------------- http://compsci.ca/v3/viewtopic.php?t=7734 ----------------------------------- Tallguy Thu Apr 03, 2008 8:20 am Re: Dazzling and hypnotic kinetic pattern ----------------------------------- kaleidoscope meaning? http://compsci.ca/v3/viewtopic.php?t=7734 been there done that ----------------------------------- Jessica359 Thu Apr 03, 2008 12:52 pm RE:Dazzling and hypnotic kinetic pattern ----------------------------------- Kaleidoscope is those awesome thingies you look through that have an awesome pattern thing when you look in it. :) ----------------------------------- Tallguy Thu Apr 03, 2008 12:55 pm RE:Dazzling and hypnotic kinetic pattern ----------------------------------- and how would i do that jess? ----------------------------------- Nick Thu Apr 03, 2008 2:24 pm RE:Dazzling and hypnotic kinetic pattern ----------------------------------- [url=www.google.ca]JFGI ----------------------------------- Zampano Thu Apr 03, 2008 4:12 pm Re: Dazzling and hypnotic kinetic pattern ----------------------------------- 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 Thu Apr 03, 2008 4:28 pm RE:Dazzling and hypnotic kinetic pattern ----------------------------------- 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 :oops: :oops: 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 Fri Apr 04, 2008 9:24 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- Now thats awesome! :) ----------------------------------- petree08 Fri Apr 04, 2008 11:06 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- 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 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 ----------------------------------- Jessica359 Fri Apr 04, 2008 11:12 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- We'll sorry were not as "suffisticated" as you! And just cuz you think ur better don't need to comment it! ----------------------------------- Tallguy Fri Apr 04, 2008 11:29 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- now that is the coolest thing i've ever seen, much better then random boxs......GREAT JOB!!!!! ----------------------------------- Jessica359 Fri Apr 04, 2008 11:37 am RE:Dazzling and hypnotic kinetic pattern ----------------------------------- sry didn't comment the right thing lol oops ----------------------------------- andrew. Sat Apr 05, 2008 9:36 pm Re: Dazzling and hypnotic kinetic pattern ----------------------------------- No offense, this is cool, but doesn't this count as "omfg sooo trippy cool flashes!"?