Computer Science Canada :: View topic - Cool Ways To Clear Your Screen: (REVAMPED!) +2 More August13

Computer Science Canada

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

Author:	the_short1 [ Wed Jan 14, 2004 7:36 pm ]
Post subject:	Cool Ways To Clear Your Screen: (REVAMPED!) +2 More August13
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...

Author:	Maverick [ Wed Jan 14, 2004 8:56 pm ]
Post subject:
Jeez, try and give me a seizure why dont you.

Author:	the_short1 [ Mon Feb 09, 2004 6:03 pm ]
Post subject:
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!

Author:

Delta [ Mon Feb 09, 2004 6:36 pm ]

Post subject:

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 Wink

[/code]

Author:	the_short1 [ Tue Feb 10, 2004 4:10 pm ]
Post subject:
The whole purpose of this is to find cool ways to clear the screen.... so as not to use CLS

Author:	Delta [ Tue Feb 10, 2004 4:41 pm ]
Post subject:
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

Author:	jonos [ Tue Feb 10, 2004 8:44 pm ]
Post subject:
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.

Author:	GUI.GetScrollBarWidth : i [ Fri Feb 13, 2004 6:11 pm ]
Post subject:
i'm gonna use this in a school project to see wat the teacher does, tah's gonna be funny. btw nice code

Author:	the_short1 [ Fri Feb 13, 2004 10:16 pm ]
Post subject:
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)

Author:

Paul [ Sat Feb 14, 2004 12:39 am ]

Post subject:

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

Author:	apomb [ Wed Feb 18, 2004 8:11 pm ]
Post subject:
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

Author:	the_short1 [ Wed Feb 18, 2004 10:11 pm ]
Post subject:
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...

Author:	LiquidDragon [ Fri Feb 20, 2004 7:38 pm ]
Post subject:
Hmm, maybe you saw that pattern on top of a yummy cherry pie?

Author:	the_short1 [ Fri Feb 20, 2004 8:54 pm ]
Post subject:
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...

Author:

Paul [ Fri Feb 20, 2004 11:30 pm ]

Post subject:

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

Author:	jonos [ Sat Feb 21, 2004 9:42 am ]
Post subject:
nice!!! i say that on your site.

Author:

Paul [ Sat Feb 21, 2004 12:40 pm ]

Post subject:

Check this one out, watch it all:

code:

var col : int
for y : 0 .. 325 by 3
for x : 0 .. 500 by 3
randint (col, 32, 200)
var y2 := 100 - x - y
drawoval (320, 240, x, y, col)
drawoval (320, 240, y, x, col)

end for
end for
for decreasing y : 325.. 0 by 5
for decreasing x : 500 .. 0 by 5

var y2 := 100 + x + y
drawoval (320, 240, x, y, white)
drawoval (320, 240, y, x, white)

end for
end for

Author:

Paul [ Sat Feb 21, 2004 12:52 pm ]

Post subject:

oh yea, the cherry pie pattern, I improved it, now when it goes white, there are also some cool patterns on it. its not perfect though, does make for a nice border.

code:

var x, y, xx, yy, col: int:=50
xx:=3
yy:=3
for a: 1..8000
if a<2254 then
col:=12
else
col:=0
end if
drawbox (0, 0, maxx, maxy, black)
drawfilloval (x, y, 10, 10, col)
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

Author:	the_short1 [ Sat Feb 21, 2004 1:42 pm ]
Post subject:
WOW!!! paul taht is amazing.. firts 2 are just WOW.ive done the red cherry pie like one before (bounch prog modified)..i am going to do a variation of the square looking one.... . ty for submiting..

Author:	the_short1 [ Sat Feb 21, 2004 3:47 pm ]
Post subject:
Edit: I made the square programm that i was talking about.,... I posted file on first post...

Author:	Paul [ Sat Feb 21, 2004 5:13 pm ]
Post subject:
Cool, the first one, squarish and 3D too, the second one kind of flows if you look at it close enough and the third one is 3D too... a tower or a shaft? you'll never know. They all induce siesures.

Author:	the_short1 [ Sat Feb 21, 2004 10:38 pm ]
Post subject:
HAHHAH wilson... wuts the movie wit tom hanks called??? and that volleyball sold on Ebay for mega $$$$$ ARe u talking bout urs or the 2 new progs i made (check first page ??

Author:	shorthair [ Sun Feb 22, 2004 1:31 pm ]
Post subject:
CastAway

Author:	jonos [ Mon Feb 23, 2004 7:39 am ]
Post subject:
those are pretty cool, especially the circle that moves.

Author:	the_short1 [ Sun Feb 29, 2004 7:20 pm ]
Post subject:
FYI: you will be able to see many new visuals.. some of them are posted here... in my PacMAn v4.5 in FP contest march 3rd ish

Author:

apomb [ Mon Mar 01, 2004 5:45 pm ]

Post subject:

this is my patriotic screen clearer :

code:

% The "Mapleclear" program
% Moves a maple leaf around on
% the window like a smoke particle
% This is known as Brownian motion
% Color window black
colorback (black)
cls
setscreen ("nocursor,nooffscreenonly") % Hide cursor

loop
% Start at center
var row := maxx div 2 - 210
var column := maxy div 2 - 110
var x : int := 0
loop
% Start over when goes off the window
exit when column + 100 < 0 or column + 100 > maxy
or row + 200 < 0 or row + 200 > maxx
drawfillmapleleaf (row + 200, column + 100, row + 290, column + 190, brightred)
delay (75)
View.Update
% Erase maple leaf in old location by
% outputting a blank there
drawfillmapleleaf (row + 200, column + 100, row + 290, column + 190, white)
View.Update
% Compute new value for row
randint (row, row - 50, row + 50)
% Compute new value for column
randint (column, column - 50, column + 50)
x += 2
end loop
end loop

[/code]

Author:	the_short1 [ Thu Mar 04, 2004 7:11 pm ]
Post subject:
nice compwiz.. only thing i would do to change is... make the backround blue and make it draw a black one to clear the red... Good job.. and thanks for submiting... i think im going to do a total remake of checkered square but with Maple Leaf... i will submit prob tomorow..

Author:	Jodo Yodo [ Thu Mar 04, 2004 10:57 pm ]
Post subject:
Whoa, seizures! Ow! Super Juicy!

Author:	the_short1 [ Sun Mar 07, 2004 1:48 pm ]
Post subject:
The 2 new ones were added to the FIRST post of this Thread... Clear screen maple leaf style.... made by me.... both added on Mar.07

Author:	programer007 [ Sun Mar 07, 2004 4:52 pm ]
Post subject:
WHOA those are realy Trippy..... i think it gave my cat a seizure.. he was staring at my moniter and he jumped on the table but fell.... hahaha... thats realy amazing...

Author:

TheFerret [ Wed Mar 10, 2004 10:06 am ]

Post subject:

I have a cool way to clear the screen with out giving you a seisure...

code:

/* Travis Baker
March 9, 2004
Pyramid
*/
setscreen ("graphics:400;400")
var x, y, x1, y1, col, col1, num, changex, changex1, changey, changey1 : int
x := 0
y := 0
x1 := 400
y1 := 400
col := 1
col1 := 255
changex := 1
changex1 := 1
changey1 := 1
changey := 1
put "Enter number (Below 255)"
get num
cls
loop
for i : 1 .. 400
delay (25)
x += changex
y += changex1
x1 += changex1
y1 += changey1
x += 1
y += 1
x1 -= 1
y1 -= 1
col += 2
if col >= 255 then
col := 1
end if
drawbox (x, y, x1, y1, 0)
x += 1
y += 1
x1 -= 1
y1 -= 1
%col1-=num
col1 := num + 23
if col1 <= 1 or col1 >= 255 then
col1 := 255
end if
%You can change col to any colour number...
drawbox (x, y, x1, y1, col)
if x >= maxx then
changex *=-1
elsif x1>=maxx then
changex1*=-1
elsif y>=maxy then
changey*=-1
elsif y1>=maxy then
changey1*=-1
elsif x<=0 then
changex*=-1
elsif x1<=0 then
changex*=-1
elsif y<=0 then
changey*=-1
elsif y1<=0 then
changey1*=-1
end if
end for
end loop

Author:

Paul [ Wed Mar 10, 2004 12:10 pm ]

Post subject:

Hehe, pretty good, but ah, seizure! I get seizures from anything Very Happy

. we should make this also a screen saver thread since I have a mezmerizing one, and spend the whole class staring at it...
it makes a interesting tapestry patter one you look at it for a long time Very Happy

based on cherry pie pattern; I love the look of it
change the drawoval to drawfilloval, and it would have an interesting look too. If the movement disappears, just wait for 2 seconds.

code:

setscreen ("Graphics: max, max")
var col2, x, y, xx, yy, col: int:=50
xx:=3
yy:=3
loop
randint (col, 12, 150)
randint (col2, 12, 150)
for a: 1..5200
if a<2254 then

else
col:=col2
end if
drawbox (0, 0, maxx, maxy, black)
drawoval (x, y, 10, 10, col)
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
end loop

Author:	the_short1 [ Wed Mar 10, 2004 5:03 pm ]
Post subject:
yea ferreet.... i made one VERY VERY similiar to that... heres my version of it.. i made it like 3 weeks ago... but it got lost.... but its found now nice Cervants.... what we need to nag at Holtsolf is... ability to compile .t into .scr... that would KICK FRICKING AS$!!!! also... maybe put "nobuttonbar" into first line of code... for setscreen.... cuz it makes it look better.... also i like the partern taht happens....

Author:	the_short1 [ Thu Mar 11, 2004 7:42 pm ]
Post subject:
Check out the first post... i added 2 more... Thick line visuals.... must see and must experiment with them

Author:	Paul [ Thu Mar 11, 2004 8:07 pm ]
Post subject:
hm, nice, but you must shorten your avatar.

Author:	the_short1 [ Thu Mar 11, 2004 9:37 pm ]
Post subject:
yea,,.,, i noticed it right away..... i changed my avatar pic isntead of sig pic...... tahts the second time ive done that... at least this time it didn't take me ten minutes to realize my goof

Author:	guruguru [ Sat Mar 13, 2004 12:41 pm ]
Post subject:
What is an avator? or avator pic? And how can it be too large?

Author:	the_short1 [ Sat Mar 13, 2004 1:06 pm ]
Post subject:
an 'avatar' is the small picture under you name... for instance mine is a dodge viper... now... i acidently put my 'kevin the short' picture from my 'signature' into my 'avatar' slot... and therefore... you couln';t read anything.. the table with alll your name and stuff was pushed so far to the right/... now... if you go find a picture that you like.. PM me (click on the little PM button on one of my posts.. ) (tell me where and what the picture is) and i will hook you up, hosting the picture on my server for 4 BITS (normaly it costs 10 bits), and i will size it down as nesecary... PS: my server is fast...and wont fail

Author:	guruguru [ Sat Mar 13, 2004 8:17 pm ]
Post subject:
Nah, it's okay. I was jsut curious... thx anyways though!

Author:	the_short1 [ Sat Mar 13, 2004 10:32 pm ]
Post subject:
ok... i built those 2 Thick Line Visuals from this program: See Below i like this one the best due to its simplicity and effectiveness... also... it lookz the sweetest

Author:

Homer_simpson [ Tue Mar 16, 2004 12:35 pm ]

Post subject:

bored

code:

colorback (black)
cls
setscreen ("offscreenonly")

proc rotate (XX1, YY1 : real, var XX2, YY2 : real, Rotaion : real)
var xx := (((XX1 - XX2) * cosd (Rotaion)) + ((YY1 - YY2) * sind (Rotaion)))
var yy := (((YY1 - YY2) * cosd (Rotaion)) - ((XX1 - XX2) * sind (Rotaion)))
YY2 := YY1 - yy
XX2 := XX1 - xx
end rotate

color (white)
for i : 1 .. 25
put "Stuffs on the screen Stuffs on the screen Stuffs Stuffs on the screen Stuffs"
end for
View.Update
var x, y := 0.0;
for i : 1 .. 360
for j : 1 .. 14
for k : 1 .. 10
rotate (320, 200, x, y, .1)
drawline (320, 200, round (x), round (y), 16 + j)
end for
end for
rotate (320, 200, x, y, -13)
View.Update ()
drawfillarc (320, 200, 450, 450, 198 + (360 - i), 200 + (360 - i) + 14, black)
end for

Author:	Paul [ Tue Mar 16, 2004 12:40 pm ]
Post subject:
geez, homer, first time running your program, my turing goes fatal error, and I can't get it started up again.... reinstallation time...

Author:	the_short1 [ Tue Mar 16, 2004 12:49 pm ]
Post subject:
nice homer.... worked fine for me.... and looked GREAT>.... very effective.. i want to do a line rotation like that... but making a circle...tony gave me a formula to test if a line lies on a circle... but i need the turing commands to go at it... like... loop x := ??? y := ??? drawline (maxx div 2,maxy div 2,maxx div 2 + 10+x,maxy div 2 + 10 +y,colorz) end loop can someone fill me in.... i know xx + yy = r*r but thats just tests to see if it lies on line....but i dont know how to incorporate... or even if its needed...thx

Author:

Homer_simpson [ Thu Mar 18, 2004 3:21 am ]

Post subject:

like this:

code:

colorback (black)
cls
%setscreen ("offscreenonly")

proc rotate (XX1, YY1 : real, var XX2, YY2 : real, Rotaion : real)
var xx := (((XX1 - XX2) * cosd (Rotaion)) + ((YY1 - YY2) * sind (Rotaion)))
var yy := (((YY1 - YY2) * cosd (Rotaion)) - ((XX1 - XX2) * sind (Rotaion)))
YY2 := YY1 - yy
XX2 := XX1 - xx
end rotate

var x, y := 0.0;
for i : 1 .. 3600
rotate (320, 200, x, y, .1)
drawline (320, 200, round (x), round (y), white)
% View.Update ()
end for

Author:	the_short1 [ Thu Mar 18, 2004 4:44 pm ]
Post subject:
nice homer... took me a few seconds to figure out how to change line size and location... but its all good... i will be submitting a visual i made with it soon... ill add your name in title credits... thx.... id give ya bits but ur a MOD...... i sitll dont get that cosd and Sind... but thats ok... i learn it next year in comp sci...gr.11

Author:	guruguru [ Thu Mar 18, 2004 5:29 pm ]
Post subject:
Trigonometry (cos, sin, tan) is part of Grade 10 math... Why does your school have it in Grade 11 Compsics?!?!?

Author:	jonos [ Thu Mar 18, 2004 10:28 pm ]
Post subject:
im pretty sure ICS 3M and ICS 4M are math and applying it to computer science, that is what ours is. It is shown as a math course in our course calendar, and you are recommended to be good at math.

Author:	the_short1 [ Fri Mar 19, 2004 5:28 pm ]
Post subject:
yea... gr11 compsci in my school will be a lot of applying math to programming... i bet... i dont know yet.. i did tan sin cos all that in gr.9... in BC... they teach taht in gr.10 in ontario.??? ...funny... its cuz they start in gr.9 for highscoool.... BC starts in gr.8 .... so lots of stuff i already did last year i will have to do again...bummer... please keep this thread on ways to clear screen though.... if it got locked COUGHAsian sensationCOUGH... i think i would have to hack into the person's computer who got it locked (the spammer) ... and give them a bunch of viruses on another note... wow... over 600 + views... cool deal... the most ive ever had in one of my threads.....keep it up the most ive seen besides in spam, is the evasive manuevers thread... wow... thats a lot... 1000+ views.. and 10 pages.. o.0

Author:	the_short1 [ Fri Mar 19, 2004 7:35 pm ]
Post subject:
I added one more visual to the first post on the first page .... go check it out... its a mod of homers line rotation (the one that makes a circle) its more of a visual rite now but can be made into a clear screen by changing a few values... i dont fully understand all of his code, and i need to do a book report so il leave it at that..

Author:	the_short1 [ Sat Mar 27, 2004 2:30 pm ]
Post subject:
1 more added to first post... 2 more added to 3rd post...( on first page) each post cant have more then 10 files... so i had to move it down... ENJOY!!!

Author:	valor [ Sat Apr 03, 2004 1:39 pm ]
Post subject:
here is a clear screen thingy i made to use in my missile defense game

Author:	the_short1 [ Sat Apr 03, 2004 2:03 pm ]
Post subject:
thanks for sharing... it lookz cool..... you should also submit that line one..... but reupload that spots one, but in a for loop of 600 so it ends when its aprox done.... (same for line ) ill check out yer missle command in a bit...

Author:	the_short1 [ Wed Apr 28, 2004 8:36 pm ]
Post subject:
hey all....... afta a month of inactivity... i though i would post something again so this wicked thread wont die.. check my 2nd post on the first page for Rainbow Clear.... its REALLY nice...... hope u all enjoy

Author:	the_short1 [ Sat Jun 12, 2004 5:49 pm ]
Post subject:
was bored today afta doing a report for english.... so i made those little visuals from winamp! while i listened to musik! http://www.compsci.ca/v2/download.php?id=1804 <graph http://www.compsci.ca/v2/download.php?id=1805 <spectrascope ENJJOY!! please share ur cool clear screen methods... or any cool little visual u made!!!

Author:	Paul [ Sun Jun 13, 2004 10:16 am ]
Post subject:
Nice, the second one is great might be able to include that in some title screen.

Author:	the_short1 [ Sun Jun 13, 2004 10:23 am ]
Post subject:
yea i tried to make it end at the middle of the right side of the screen... but it dont work too good.... meh.. its close... so w/e! unless someone fixes it..! go ahead... its source!

Author:

mynameisbob [ Mon Jun 21, 2004 7:13 pm ]

Post subject:

Heres one I made

code:

View.Set ("graphics:200;250,nobuttonbar")
var bloodcount := 13
var fill := 0.0
var fillrate := .1
var dropspeed := 3
var xs, ys : int
var xb : array 1 .. bloodcount of int
var yb : array 1 .. bloodcount of int
var blood : array 1 .. bloodcount of int
var splash : array 1 .. bloodcount of int

%draw the bright blood drops
Draw.FillOval (45, 60, 4, 4, brightred)
Draw.ThickLine (42, 62, 45, 68, 2, brightred)
Draw.ThickLine (45, 68, 48, 61, 2, brightred)
for num : 1 .. bloodcount div 2
blood (num) := Pic.New (40, 55, 50, 70)
end for
%draw the dark blood drops
drawfill (45, 60, red, white)
for num : bloodcount div 2 .. bloodcount
blood (num) := Pic.New (40, 55, 50, 70)
end for
cls
%draws the blood splash
for i : 1 .. 40
xs := Rand.Int (0, 30)
ys := Rand.Int (0, 10)
drawdot (xs, ys, brightred)
end for
for num : 1 .. bloodcount
splash (num) := Pic.New (0, 0, 30, 10)
end for

for num : 1 .. bloodcount
xb (num) := Rand.Int (0, maxx)
yb (num) := Rand.Int (0, maxy)
end for

setscreen ("offscreenonly")
loop
drawfillbox (0, 0, maxx, maxy, black)
for num : bloodcount div 2 .. bloodcount
Pic.Draw (blood (num), xb (num), yb (num), picMerge)
yb (num) -= dropspeed - 1
end for
for num : 1 .. bloodcount div 2
Pic.Draw (blood (num), xb (num), yb (num), picMerge)
yb (num) -= dropspeed
end for
for num : 1 .. bloodcount
if yb (num) < fill - 30 then
Pic.Draw (splash (num), xb (num) - 8, yb (num) + 31, picMerge)
yb (num) := maxy
xb (num) := Rand.Int (0, maxx)
end if
end for
fill += fillrate
drawfillbox (0, 0, maxx, round (fill), brightred)
exit when fill > maxy
delay (10)
View.Update
end loop

Author:

the_short1 [ Mon Jun 21, 2004 8:36 pm ]

Post subject:

wow... thats DAM good.,... and the blood acually FILLING the screen... and two toned colored.....

im impressed.....

heres 2 BITS!

even splashes on impact..

only sugestion....

make that splash a CIRCLE not square...
this can be done using a formula (from math class)

the Quadratic Formula of a point on the cirlce is:

x**2 + y**2 = length of line**2
that is of course from origin at 0,0...

my origin is at 100, 100 that is why my x and y values are -100 before squarring...

code:

var x,y : int
loop
loop
x := Rand.Int (0,200)
y := Rand.Int (0,200)
exit when (y-100) **2 + (x-100)**2 <=100**2
end loop
drawdot (x,y,black)
end loop

so instead of drawing random dots in a square.. make them do it in a circle to look more real... other then that.. ur program is fricking awsome!

ENJOY!

o... and here is a couple oif things i just whiped up..

Author:	the_short1 [ Thu Jun 24, 2004 11:07 am ]
Post subject:
here is a cooler looking updated version of that spectrascope winamp visual.. added green and blue drashdashedline dashdot thngys to create a affect of multiple lines! note: i think u need the most recent turing edition cuz it uses draw dashline.. !!

Author:

this_guy [ Mon Jul 05, 2004 3:12 pm ]

Post subject:

i like this one, but it isnt exactly a screensaver

code:

setscreen ("graphics:400;400,nobuttonbar,offscreenonly")

const NUMBALLS := 8
const SIZE := 50
const LEDGE := 0 + SIZE
const REDGE := maxx - SIZE
const BEDGE := 0 + SIZE
const TEDGE := maxy - SIZE
const COLOUR1 := 7
%background
const COLOUR2 := 1
%ball colour
const DTIME := 8
const TILT := 8

var x : array 1 .. NUMBALLS of int
var y : array 1 .. NUMBALLS of int
var xspeed : array 1 .. NUMBALLS of int
var yspeed : array 1 .. NUMBALLS of int
var randi : int

for i : 1 .. NUMBALLS
x (i) := Rand.Int (LEDGE + TILT * 2, REDGE - TILT * 2)
y (i) := Rand.Int (BEDGE + TILT * 2, TEDGE - TILT * 2)
loop
xspeed (i) := Rand.Int (-TILT, TILT)
exit when xspeed (i) not= 0
end loop
loop
yspeed (i) := Rand.Int (-TILT, TILT)
exit when yspeed (i) not= 0
end loop
for j : 1 .. TILT div 2
if xspeed (i) / j = yspeed (i) then
xspeed (i) := j
yspeed (i) := 1
elsif yspeed (i) / j = xspeed (i) then
yspeed (i) := j
xspeed (i) := 1
end if
end for
end for

drawfillbox (LEDGE - SIZE - TILT, BEDGE - SIZE - TILT, REDGE + SIZE + TILT, TEDGE + SIZE + TILT, COLOUR1)

loop
for i : 1 .. NUMBALLS
if x (i) >= REDGE or x (i) <= LEDGE then
xspeed (i) := xspeed (i) * -1
end if
if y (i) >= TEDGE or y (i) <= BEDGE then
yspeed (i) := yspeed (i) * -1
end if
x (i) += xspeed (i)
y (i) += yspeed (i)
end for

for i : 1 .. NUMBALLS
drawfilloval (x (i), y (i), SIZE, SIZE, COLOUR2)
end for
View.Update
delay (DTIME)
for i : 1 .. NUMBALLS
drawfilloval (x (i), y (i), SIZE, SIZE, COLOUR1)
end for
end loop

i really liked the ring too

if u change the line drawdot (x, y, Rand.Int (0, 255))

to

drawdot (x, y, (x div 2 + y div 2) div 2)

or some other equation u get really cool patterns.

Author:

Paul [ Mon Jul 05, 2004 6:21 pm ]

Post subject:

can't believe you forgot my drawfillpolygon effect!

code:

%it is recommended that you enter sides amounting from 100-400
setscreen ("graphics: max;max;offscreenonly")
var number: int
put "How many sides?"
get number
colorback (black)
cls
var x : array 1 .. number of int
var y : array 1 .. number of int
var incx: array 1..number of int
var incy: array 1..number of int
for a: 1..number
randint (x(a), 100, maxx-100)
randint (y(a), 100, maxy-100)
incx(a):=Rand.Int(-5,5)
incy(a):=Rand.Int(-5,5)
end for
loop
for a: 1..number
x(a)+=incx(a)
y(a)+=incy(a)
end for
drawfillpolygon (x, y, number, 12)
View.Update
cls
for a: 1..number
if y(a)>=maxy or y(a) <= 0 then
incy(a):=-incy(a)
end if
if x(a)<=0 or x(a)>=maxx then
incx(a):=-incx(a)
end if
end for
end loop

Author:

the_short1 [ Tue Jul 06, 2004 10:19 am ]

Post subject:

try using thius iwht ur program

code:

setscreen ("graphics:max;max,nobuttonbar,offscreenonly")

const NUMBALLS := 250
const SIZE := 3
const LEDGE := 0 + SIZE
const REDGE := maxx - SIZE
const BEDGE := 0 + SIZE
const TEDGE := maxy - SIZE
const COLOUR1 := 7
%background
const COLOUR2 := 14
%ball colour
const DTIME := 8
const TILT := 75

i think it looks WICKEd that way.. hey.. if its apealing to the eyes.. post it here Razz

Author:	the_short1 [ Tue Jul 06, 2004 10:25 am ]
Post subject:
was i spoed to put it here? try this %it is recommended that you enter sides amounting from 100-400 setscreen ("graphics: max;max;nobuttonbar") var number: int put "How many sides?" get number View.Set ("offscreenonly") that works a little bett.er but me like... keep up good stuff paul

Author:	this_guy [ Tue Jul 06, 2004 9:36 pm ]
Post subject:
that looks really slow on my comp but heck, if it looks gud! does it look like a lotto 647 thing to any1?

Author:	the_short1 [ Tue Jul 06, 2004 10:33 pm ]
Post subject:
yea.. lotto649 try it at a friends houes with a good comp

Author:	the_short1 [ Thu Jul 08, 2004 7:18 pm ]
Post subject:
http://www.compsci.ca/v2/download.php?id=1912 ^ new one! july 8th! its calleed Tunel Vision! let it go for a while then check it out... to me its like drainage pipe with all the rifles... or... ur throat with all those rings of cartilage... either way... looks good.. i got this from the maze game i just made... and kidna revamped it a little.. ENOY!

Author:	this_guy [ Fri Jul 09, 2004 5:26 pm ]
Post subject:
reminds me of the really annoying window screensaver (pipes?)

Author:	the_short1 [ Fri Jul 09, 2004 7:18 pm ]
Post subject:
IN CONTEXT MAYBE... BUT DEFENATELY NOT LOOK.. EDIT :srry for caps.. forgot it was on.. u may want to look at some winamp 5 AVS visuals.... tunel vision also looks like Z-G-Maze (the circle one) <dont know exact name..

Author:

RaPsCaLLioN [ Fri Aug 13, 2004 1:20 am ]

Post subject:

Ok... here's one.
Efficient: No
Time Consuming: Yes
Easy: No
Cool: YES

This will clear any screen to black (with some patience). Use my attached .bmp or uncomment the 'cls' for just a white to black.

code:

var iWindow : int := Window.Open ("graphics : svga, noecho, offscreenonly")
View.Set ("offscreenonly")

var picToClear : int
var iSizeX : int := maxx
var iSizeY : int := maxy
var iTempColour : int
var rR, rG, rB, iRandDec : real
var iCount : int := 1
var iBlacked : int := 0
var iBlockSize : int := 40

picToClear := Pic.FileNew ("pic.bmp")
picToClear := Pic.Scale (picToClear, iSizeX, iSizeY)
Pic.Draw (picToClear, 1, 1, picCopy)

var aiGrid : array 1 .. maxx div iBlockSize, 1 .. maxy div iBlockSize of int
var abBlack : array 0 .. maxx div iBlockSize, 0 .. maxy div iBlockSize of boolean
for i : 0 .. maxx div iBlockSize
for j : 0 .. maxy div iBlockSize
abBlack (i, j) := false
end for
end for
%cls
loop
View.Update
for i : 0 .. (maxx div iBlockSize)
for j : 0 .. (maxy div iBlockSize)
if abBlack (i, j) = true then
else
iRandDec := (Rand.Real + 4)
for a : 1 .. iBlockSize
for b : 1 .. iBlockSize
iTempColour := whatdotcolour (i * iBlockSize + a, j * iBlockSize + b)
RGB.GetColour (iTempColour, rR, rG, rB)
if rR <= 0.1 and rG <= 0.1 and rB <= 0.1 then
iBlacked += 1
else
if iCount = 1 then
iTempColour := RGB.AddColour (rR / iRandDec, rG, rB)
elsif iCount = 2 then
iTempColour := RGB.AddColour (rR, rG / iRandDec, rB)
elsif iCount = 3 then
iTempColour := RGB.AddColour (rR, rG, rB / iRandDec)
end if
drawdot (i * iBlockSize + a, j * iBlockSize + b, iTempColour)
end if
end for
end for
if iBlacked >= iBlockSize * iBlockSize then
abBlack (i, j) := true
iBlacked := 0
else
iBlacked := 0
end if
iCount := Rand.Int (1, 3)
end if
end for
end for
exit when buttonmoved ("down")
end loop

Window.Close (iWindow)

Author:	the_short1 [ Fri Aug 13, 2004 3:09 pm ]
Post subject:
nice stuff raps... but so dam slow on my very dam slow pc... well u inspired me to make a couple more. whiped these up.. one clears the screen by eliminating one color at a time... dot by dot the other... continually fills the screen with squares of random color until they are all black... < cool stuff!!! disco squares!!! enjoy..

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

Terms of Use | Privacy Policy