%Amy Gilbank
%May 10 2006
%bounce2.t
%a progrsm that allows pictures to bounce around
var winMain : int := Window.Open ("graphics:800;600")
var pic1, pic1w, pic1h, pic1x, pic1y, speed1x, speed1y,backg : int
var pic2,pic2w,pic2h,pic2x,pic2y,speed2x,speed2y:int
pic1 := Pic.FileNew ("screwU.jpg")
pic1w := Pic.Width (pic1)
pic1h := Pic.Height (pic1)
pic1x := 100
pic1y := 200
pic2:=Pic.FileNew("1104710-movie-resized200.jpg")
pic2w:=Pic.Width(pic2)
pic2h:=Pic.Height(pic2)
pic2x:=200
pic2y:=150
speed1x := 90
speed1y := 80
speed2x:=700
speed2y:=450
loop
    backg := Pic.New (pic1x,pic1y, pic1x + pic1w,pic1y - pic1h)
             Pic.Draw (pic1, pic1x, pic1y,picCopy)
            delay (500)
    Pic.Draw ( backg,pic1x, pic1y, picCopy)
    backg:=Pic.New(pic2x,pic2y,pic2x+pic2w,pic2y-pic2h)
     Pic.Draw(pic2,pic2x,pic2y,picCopy)
     delay (200)
    Pic.Draw(pic2x,pic2y,backg,picCopy)
        if pic1y >= 400 - pic1h or pic1y <= 0 then
        speed1y := -speed1y
    end if
    if pic1x >= 700 - pic1w or pic1x <= 0 then
        speed1x := -speed1x
            end if
        if pic2y>=550-pic2h or pic2y<=0 then
    speed2y:=speed2x
    end if
    if pic2x>=600-pic2w or pic2x <=0 then
    speed2x:=-speed2x
    end if
      pic1y := pic1y + speed1y
    pic1x := pic1x + speed1x
    pic2y:=pic2y+speed2y
    pic2x:=pic2x+speed2x
    end loop

View.Set ("offscreenonly")

View.Update

var number := 1
loop
    const numberput := number * -1
    number := numberput
    put numberput
end loop