Computer Science Canada

Very Cool Effect

Author:  recneps [ Fri Feb 06, 2004 5:33 pm ]
Post subject:  Very Cool Effect

very cool effect i made in my opinion, easily created too Smile

code:
randomize
var x1,x2,y1,y2,clr:int:=0
var window:int:=Window.Open("graphics:max;max")

loop
randint(x1,0,maxx)
randint(x2,0,maxx)
randint(y1,0,maxy)
randint(y2,0,maxy)
randint(clr,0,15)
drawline(x1,y1,x2,y2,clr)
end loop

Author:  Cervantes [ Fri Feb 06, 2004 5:55 pm ]
Post subject: 

looks cool, pointless though Eh
those are fun to program.
try adding to that program. make some cool more cool stuff, and put in that program.. make a show! Smile

here's a neat one that you can add Smile

code:
View.Set ("graphics:567;567,title:Cervantes' Coolness")
for j : 1 .. maxy by maxy div 5
        Draw.FillBox (j, j, j + maxy div 5, j + maxy div 5, 255)
        Draw.FillBox (maxy - j - maxy div 5, j, maxy - j, j + maxy div 5, 255)
    end for
    Draw.FillBox (1, maxx div 2 - maxx div 10, maxy div 5, maxx div 2 + maxx div 10, 255)
    Draw.FillBox (maxx - maxx div 5, maxy div 2 - maxy div 10, maxx, maxy div 2 + maxy div 10, 255)
    Draw.FillBox (maxx div 2 - maxx div 10, 1, maxx div 2 + maxx div 10, maxy div 5, 255)
    Draw.FillBox (maxx div 2 - maxx div 10, maxy - maxy div 5, maxx div 2 + maxx div 10, maxy, 255)
var OR : int := maxy div 2
for a : 32 .. 103
    for as : 1 .. 4
        OR -= 1
        Draw.FillOval (maxx div 2, maxy div 2, OR + (maxx div 2 - maxy div 2), OR, a)
    end for
    delay (30)
end for
OR := 0
delay (1500)
for decreasing a : 44 .. 39
    for as : 1 .. 65
        OR += 1
        Draw.Oval (maxx div 2, maxy div 2, OR, OR, a)
    end for
    delay (1)
end for

Author:  Andy [ Fri Feb 06, 2004 5:56 pm ]
Post subject: 

we did that back in turing 3, when there was full screen....
btw randomize is obsolete cuz turing 4 auto does it
and ever tried to move the mouse to the top of the screen? prety cool

Author:  Delta [ Fri Feb 06, 2004 6:02 pm ]
Post subject: 

for recenps as basic as that is... its kinda kewl... reminds me of lots of strings being wrapped(strung) really fast... nice effect Smile

for cervantes... lol very pointless lol

for dodge... what are you talking about (mouse)... it does nothing... sure it looks like it gets drawn over... but its not really happening... is that what you meant?

Author:  Cervantes [ Fri Feb 06, 2004 6:07 pm ]
Post subject: 

move mouse to top??

anyways, here's another one to add to the show Smile (if you want Eh)

code:
var x, y, btn : int
var clr, OR : int
loop
    OR := 0
    Mouse.Where (x, y, btn)
    if x >= 0 and x <= maxx and y >= 0 and y <= maxy and btn = 1 then
        for i : 1 .. 50
            OR += 1
            clr := Rand.Int (32, 125)
            Draw.Oval (x, y, OR, OR, clr)
            delay (3)
        end for
    end if
end loop


this looks like crap until you fill the whole screen up, then it looks cool Smile

Author:  Andy [ Fri Feb 06, 2004 6:24 pm ]
Post subject: 

no i mean top of ur actual screen, like when u can see the stretch thing

Author:  white_dragon [ Sat Feb 07, 2004 6:00 pm ]
Post subject: 

wow tat's awesome

Author:  the_short1 [ Sun Feb 22, 2004 8:46 pm ]
Post subject: 

hahah dude

i made taht EXACT program RECNEPS like first 5 days of turing class...

then i added to my First REAL program.....
Kevin The Shorts Visuals...

funny.... great minds think alike rite?

Author:  the_short1 [ Mon Feb 23, 2004 6:56 pm ]
Post subject: 

Nice progs Cervantes... specially the circle one..
EDIT: srry Shorthair... Bad habit that i should stop


removed link to my program..thx for telling me Shorthair...

PS: shorthair wahts that stand for/mean???

Author:  shorthair [ Mon Feb 23, 2004 7:03 pm ]
Post subject: 

Short you dont have to listen to me ,but you should stop plugging threads , literally every thread you post in has something of your in it , your always advertising your stuff in other peopels threads ,sorry if that sounds harsh but i really dont like seeing your stuff insomeone elses submission thread

Author:  recneps [ Sun Mar 14, 2004 12:58 pm ]
Post subject: 

Anywho, heres one i made with the Draw.ThickLine, it doesnt look as nice, but its still funky. And Note that its only 3 lines! (The setscreen doesnt need to be there, it doesnt have to be max Wink)
code:
setscreen("graphics:max;max")
loop
Draw.ThickLine(Rand.Int(0,maxx),Rand.Int(0,maxy),Rand.Int(0,maxx),Rand.Int(0,maxy),Rand.Int(1,10),Rand.Int(0,15))
end loop

Author:  octopi [ Sun Mar 14, 2004 1:16 pm ]
Post subject: 

Shorthair, No one cares what you like seeing.

I think its perfectly acceptable for anyone to post anything they want as long as its related to the topic. If theshort1, wants to post something, he can do what ever he wants to.....maybe he likes seeing his stuff in 'other people's submission threads'

Who says your idea of what should happen is more valid then theshort1's?
Maybe cause your a mod of a different group for what like a month?

If someone posts something in submissions, and someone posts something similar, which falls under the same topic name theres no problem with that......people don't 'own' a topic just because they made it. Thats my oppinion. If you want a 'real' anwser you should ask someone who's been a mod longer then Me. (Dan, Tony, etc...)

Author:  the_short1 [ Sun Mar 14, 2004 4:23 pm ]
Post subject: 

well said octopi....its all good tho... that was realy old ( and i was at fault...).... also... recneps that lookz cool.... and know i get the use of Rand.Int coool stuff....i never used Rand.Int cuz im fine with my primitive ways.... but now i am accepting new things... like Rand.Int and whatdotcolor... <<<ROCKS>>> using it in my shooter game

so yea/// good job...
another cool thing to see with Thick.Line. is in my Cool Ways To Clear screen thread...... i have 2 using thick line that are pretty cool.... but you got to experiment.. Wink Octopi


-ShOrTy

Author:  Paul [ Sun Mar 14, 2004 5:32 pm ]
Post subject: 

I guess your right, I learned something new today, Draw.ThickLine
Draw.ThickLine(x1,y1,x2,y2,2,clr)
yes, nice effect, I wonder how many ppl did this when they began turing. I know I did.

Author:  the_short1 [ Sun Mar 14, 2004 6:23 pm ]
Post subject: 

thats cool paul.... yea... it think spencer's need to keep size of line constant at 2... i think it lookz better that way...




EDIT: thickness of line to = 2... Razz

Author:  valor [ Thu Apr 01, 2004 10:05 pm ]
Post subject: 

those effects are sweet. is it ok if i can use some of them to slear screen in my missile defense game i am making (soon)

Author:  recneps [ Fri Apr 02, 2004 9:09 pm ]
Post subject: 

Use it as you wish, just not for harmful intent (dont ask me how, someone could thing of something im sure.) And this doesnt really matter if its copied, its a 3 line prog (depending on how its written) Wink And you learn how to do it in like first week of turing.


: