Computer Science Canada

Dazzling and hypnotic kinetic pattern
Author:  Tallguy [ Thu Apr 03, 2008 7:58 am ]
Post subject:  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?
Author:  Jessica359 [ Thu Apr 03, 2008 8:01 am ]
Post subject:  RE:Dazzling and hypnotic kinetic pattern
Pretty awesome!
mayby changing the colours instead of just balck and white, like a rainbow pattern. Smile
Author:  CodeMonkey2000 [ Thu Apr 03, 2008 8:01 am ]
Post subject:  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.
Author:  Tallguy [ Thu Apr 03, 2008 8:06 am ]
Post subject:  Re: Dazzling and hypnotic kinetic pattern
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?
Author:  Doug101 [ Thu Apr 03, 2008 8:06 am ]
Post subject:  Re: Dazzling and hypnotic kinetic pattern
cool program it amde me dizzy
Author:  A.J [ Thu Apr 03, 2008 8:14 am ]
Post subject:  Re: Dazzling and hypnotic kinetic pattern
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.
Author:  Jestar [ Thu Apr 03, 2008 8:15 am ]
Post subject:  Re: Dazzling and hypnotic kinetic pattern
http://compsci.ca/v3/viewtopic.php?t=7734
Author:  Tallguy [ Thu Apr 03, 2008 8:20 am ]
Post subject:  Re: Dazzling and hypnotic kinetic pattern
Quote:
kaleidoscope

meaning?

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

been there done that
Author:  Jessica359 [ Thu Apr 03, 2008 12:52 pm ]
Post subject:  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. Smile
Author:  Tallguy [ Thu Apr 03, 2008 12:55 pm ]
Post subject:  RE:Dazzling and hypnotic kinetic pattern
and how would i do that jess?
Author:  Nick [ Thu Apr 03, 2008 2:24 pm ]
Post subject:  RE:Dazzling and hypnotic kinetic pattern
JFGI
Author:  Zampano [ Thu Apr 03, 2008 4:12 pm ]
Post subject:  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.
Author:  fishtastic [ Thu Apr 03, 2008 4:28 pm ]
Post subject:  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 Embarassed Embarassed

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
Author:  Jessica359 [ Fri Apr 04, 2008 9:24 am ]
Post subject:  RE:Dazzling and hypnotic kinetic pattern
Now thats awesome! Smile
Author:  petree08 [ Fri Apr 04, 2008 11:06 am ]
Post subject:  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

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

Author:  Jessica359 [ Fri Apr 04, 2008 11:12 am ]
Post subject:  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!
Author:  Tallguy [ Fri Apr 04, 2008 11:29 am ]
Post subject:  RE:Dazzling and hypnotic kinetic pattern
now that is the coolest thing i've ever seen, much better then random boxs......GREAT JOB!!!!!
Author:  Jessica359 [ Fri Apr 04, 2008 11:37 am ]
Post subject:  RE:Dazzling and hypnotic kinetic pattern
sry didn't comment the right thing lol oops
Author:  andrew. [ Sat Apr 05, 2008 9:36 pm ]
Post subject:  Re: Dazzling and hypnotic kinetic pattern
No offense, this is cool, but doesn't this count as "omfg sooo trippy cool flashes!"?

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy