Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Cool Ways To Clear Your Screen: (REVAMPED!) +2 More August13
Index -> Programming, Turing -> Turing Submissions
Goto page Previous  1, 2, 3, 4, 5  Next
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
guruguru




PostPosted: Thu Mar 18, 2004 5:29 pm   Post subject: (No subject)

Trigonometry (cos, sin, tan) is part of Grade 10 math... Why does your school have it in Grade 11 Compsics?!?!? Confused
Sponsor
Sponsor
Sponsor
sponsor
jonos




PostPosted: Thu Mar 18, 2004 10:28 pm   Post subject: (No 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.
the_short1




PostPosted: Fri Mar 19, 2004 5:28 pm   Post subject: (No 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 COUGH*Asian sensation*COUGH... 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 Wink Twisted Evil


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
the_short1




PostPosted: Fri Mar 19, 2004 7:35 pm   Post subject: (No 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..
the_short1




PostPosted: Sat Mar 27, 2004 2:30 pm   Post subject: (No 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!!!
valor




PostPosted: Sat Apr 03, 2004 1:39 pm   Post subject: (No subject)

here is a clear screen thingy i made to use in my missile defense game Surprised
the_short1




PostPosted: Sat Apr 03, 2004 2:03 pm   Post subject: (No 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 ) Wink Wink

ill check out yer missle command in a bit...
the_short1




PostPosted: Wed Apr 28, 2004 8:36 pm   Post subject: (No subject)

hey all....... afta a month of inactivity... i though i would post something again so this wicked thread wont die.. Smile


check my 2nd post on the first page for Rainbow Clear.... its REALLY nice......


hope u all enjoy Smile
Sponsor
Sponsor
Sponsor
sponsor
the_short1




PostPosted: Sat Jun 12, 2004 5:49 pm   Post subject: (No 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!!!
Paul




PostPosted: Sun Jun 13, 2004 10:16 am   Post subject: (No subject)

Nice, the second one is great Smile might be able to include that in some title screen.
the_short1




PostPosted: Sun Jun 13, 2004 10:23 am   Post subject: (No 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!
mynameisbob




PostPosted: Mon Jun 21, 2004 7:13 pm   Post subject: (No 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
the_short1




PostPosted: Mon Jun 21, 2004 8:36 pm   Post subject: (No 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..



circle.t
 Description:
THE RING! its compelx more then u think! learn some math then ull understand this code :P

Download
 Filename:  circle.t
 Filesize:  653 Bytes
 Downloaded:  76 Time(s)


WEIRD CIRCLE EFFECT!.T
 Description:
odd

Download
 Filename:  WEIRD CIRCLE EFFECT!.T
 Filesize:  502 Bytes
 Downloaded:  84 Time(s)

the_short1




PostPosted: Thu Jun 24, 2004 11:07 am   Post subject: (No 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.. !!



spectrascope winamp vis.t
 Description:

Download
 Filename:  spectrascope winamp vis.t
 Filesize:  894 Bytes
 Downloaded:  78 Time(s)

this_guy




PostPosted: Mon Jul 05, 2004 3:12 pm   Post subject: (No 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.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 4 of 5  [ 70 Posts ]
Goto page Previous  1, 2, 3, 4, 5  Next
Jump to:   


Style:  
Search: