module Ball
    export Initialize, Move

    View.Set ("offscreenonly,graphics:max;max")

    type line :
        record
            x, y : int
            flag : boolean
        end record

    proc DrawLine (lineArray : array 1 .. * of line)
        for x : 1 .. upper (lineArray)
            %error here "variable has no value"
            Draw.ThickLine (lineArray (x).x - 25, lineArray (x).y - 25, lineArray (x).x + 25, lineArray (x).y + 25, 3, black)
        end for
    end DrawLine

    const lengtH : int := 25
    const radius : int := 10
    const thickness : int := 3
    var x, y, xx, yy, b : int
    var xVel, yVel : int := 1
    var LineArray : flexible array 1 .. 1 of line

    proc Initialize (xVal, yVal : int)
        x := xVal
        y := yVal
    end Initialize

    proc CheckCollision
        if View.WhatDotColor (x + radius, y) = black then
            xVel *= -1
        elsif View.WhatDotColor (x - radius, y) = black then
            xVel *= -1
        elsif View.WhatDotColor (x, y + radius) = black then
            yVel *= -1
        elsif View.WhatDotColor (x, y - radius) = black then
            yVel *= -1
        end if
    end CheckCollision

    proc CheckMouse
        if b = 1 then
            LineArray (upper (LineArray)).x := xx
            LineArray (upper (LineArray)).y := yy
            LineArray (upper (LineArray)).flag := true
        end if

        DrawLine (LineArray)

        View.Update

        new LineArray, upper (LineArray) + 1

    end CheckMouse

    proc Move
        loop

            Mouse.Where (xx, yy, b)
            Draw.Cls
            Draw.Box (0, 0, maxx, maxy, black)
            Draw.FillOval (x, y, radius, radius, green)
            x += xVel
            y += yVel
            CheckMouse
            CheckCollision
            exit when hasch

        end loop
    end Move

end Ball

import Ball

Ball.Initialize (maxx div 2, maxy div 2)
loop
    Ball.Move
end loop