Cool Ways To Clear Your Screen: (REVAMPED!) +2 More August13

[the_short1]

Please Post Your Cool Ways To Clear Screen..or any cool little visual u make that u want to share .. or Pm me them and i will ad to this post.. (with ur name of course)

August 13th! Disco squares... and clear screen dot by dot..

http://www.compsci.ca/v2/download.php?id=1978 < dot by dot

http://www.compsci.ca/v2/download.php?id=1979 < disco

NEW ONE! July 8th, Tunel Vision! (on Nest Post)

EDIT: Here i have a warning message for you, i took it from my PacMan game


EDIT: whenever i say in title + more on certain date... that means i put one here (this post).... other ppl's posts wont show up here so u should check this forum all the time for updates..

EDIT: u can onmly have a max of 10 attahcments per post... so check for my next post on this page for more files..


NOTE: new one .... Rainbox clear... its on my next post ... stupid ten attachments per page...

[Maverick]

Jeez, try and give me a seizure why dont you.

[the_short1]

yes... Asian has his new way.... already locked one of my Topics... PLease dont get this one locked..... Anyone else got any cool colored ways to clear screen???? did this program make anyones screen jerk and shake.??? mine did like crazy i was scared mine would go POOF!..

here are more visuals / clear screens more files since the first post cant have more then 10 files

1+ on July 8th!... Tunel Vision!

hey all.... another one added today... figured since its been a month... mine as well.. ..... plus someone gave me a cool idea...

Rainbow Clear....!!!! Added April 28th

2 winamp visuals! added june 12th!

[Delta]

Wow dude lol that sux lol .... its so0 flickery lol ... you should try doing something with View.Update... to get rid of the flickering... maybe then it'll be kewler... is there really a reason to have this thread not locked tho?

but sure... here

code:

View.Set ("graphics:400;300,nocursor,noecho") drawfillbox (0, 0, maxx, maxy, 16) var x, y : int := 4 var dir : int := 4 for i : 1 .. 100     for j : 1 .. 74         drawfilloval (x, y, 6, 6, 0)         y := y + dir     end for     delay (10)     dir := -dir     x := x + 4 end for

P.S. - Just clear the screen..... cls .... its faster [/code]

[the_short1]

The whole purpose of this is to find cool ways to clear the screen....
so as not to use CLS

[Delta]

well ya I kinda figured that... hence why I posted the code... and clearing the screen like that is really just a waste of time unless its a game or something... otherwise it makes your program look unprofessional

[jonos]

i thought that it looked professional, but it depends on what kind of program you are making, if your making a kid's game, then they will like that "oooh, the colours mommy", but if your making an accounting program for old men who just want to play golf or poker instead of working, then that would not be a wise thing to do.

[GUI.GetScrollBarWidth : i]

i'm gonna use this in a school project to see wat the teacher does, tah's gonna be funny. btw nice code

[the_short1]

ty... just dont say that my code is urs... and im happy....

i did all sorts of visuals and my teacher hated it... made him get headaches... and hurt pplz eyes....( well some of my work is more crazy)

[Paul]

I made this one, Im sure I saw this pattern somewhere though.

code:

var x, y, xx, yy: int:=50 xx:=3 yy:=3 for a: 1..2254 drawbox (0, 0, maxx, maxy, black) drawfilloval (x, y, 10, 10, 12) x+=xx y+=yy if whatdotcolor (x+11, y)= black or x+10>=maxx then xx:=-3 elsif whatdotcolor (x-11, y)=black or x-10<=0 then xx:=3 end if if whatdotcolor (x, y+11) = black or y+10>=maxy then yy:=-3 elsif whatdotcolor (x, y-11)=black or y-10<=0 then yy:=3 end if delay (3) end for x:=0 y:=0 yy:=maxy loop drawline (x, y, x, yy, 12) x+=1 exit when x=maxx delay(3) end loop x:=maxx y:=0 yy:=maxy loop drawline (x, y, x, yy, white) x-=1 exit when x=-1 delay(3) end loop

[apomb]

LOL i used that same type code in my final project last yesr ... i think a version of the code is in the TURING reference (Help). it is interesting though... i used it as a bullet for a 007 prog

[the_short1]

hey u from the SOO!!! nice....

i go to Korah.. Yuou???

Also how would that integrate into a bullet????

i dont get it.... anyways....(see my pac man game off my site) and look at the cool visuals if you look at credits...

i like em...

[LiquidDragon]

Hmm, maybe you saw that pattern on top of a yummy cherry pie?

[the_short1]

i was kinda thinking that... it looked like the cross weave on a apple pie....
but red...

i wish more ppl would submit their cool ways to clear screen... i curious...

[Paul]

Hmm... heres another one, its quite big

code:

var col : int var xx, yy, counter: int:=0 xx:=320 yy:=240 loop for x : 0 .. 100         randint (col, 32, 200)         var y := maxx - x         drawoval (xx, yy, x, y, col)         drawoval (xx, yy, y, x, col)         delay (10)     end for     counter+=1     if counter=1 then     xx:=50     yy:=50     elsif counter=2 then     xx:=50     yy:=maxy - 50     elsif counter = 3 then     xx:=maxx - 50     yy:=maxy-50     elsif counter = 4 then     xx:=maxx - 50     yy:=50     else     exit     end if end loop var x, y: int:=0 yy:=maxy loop randint (col, 34, 150) drawline (x, y, x, yy, col) x+=1 exit when x=maxx delay(3) end loop x:=maxx y:=0 yy:=maxy loop drawline (x, y, x, yy, white) x-=1 exit when x=-1 delay(3) end loop