Computer Science Canada

bouncing stars
Author:  cool dude [ Fri Oct 08, 2004 2:44 pm ]
Post subject:  bouncing stars
i made this when i was really!!! bored. it really sux and the stars keep flickering. if u have any suggestions please share otherwise heres the code

code:

setscreen("graphics:max;max")
View.Set ("offscreenonly")
color(yellow)
colorback(blue)
cls

var x : int :=  320   
var y : int := 350     
var xchange:int:=1
var ychange:int:=1



loop
cls

    x := x - xchange
    y := y + ychange
   
    drawfillstar (x, y, 100, 100, yellow)
    delay(5)   
   
   
    if x = 10 or x =630 then
        xchange:=xchange*-1
   
    end if
    if y = 10 or y = 390 then
        ychange :=ychange*-1
    end if

   
   

    x := x - xchange
    y := y + ychange
   
    drawfillstar (x, y, 300, 300, yellow)
    delay(5)   
   
   
    if x = 20 or x =710 then
        xchange:=xchange*-1
   
    end if
    if y = 20 or y = 400 then
        ychange :=ychange*-1
    end if
end loop

Author:  Cervantes [ Fri Oct 08, 2004 3:07 pm ]
Post subject: 
Where's the View.Update? Would be nice Confused
Also, if you want to encoporate the entire screen into the program, you could use the maxx and maxy functions.
also,
code:
color (yellow)

does not need to be there, since it only affects the colour of text (and that doesn't include Font.Draw or Draw.Text), and you don't have any text in your program.

Good work 8)
Author:  cool dude [ Mon Nov 08, 2004 7:11 pm ]
Post subject: 
sorry i did this program just when i started learning turing. right now i am making much more complex programs. as well i did have the View.Update there before but when i posted it, it got erased somehow.
Author:  cool dude [ Mon Nov 08, 2004 7:13 pm ]
Post subject: 
if anybody wants to see this program then just put a View.Update right before delay (5) line 22.

:


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

Terms of Use | Privacy Policy