function Length_Find (X1, Y1, X2, Y2 : real4) : real
    result sqrt ((X1 - X2) ** 2 + (Y1 - Y2) ** 2)
end Length_Find

setscreen ("graphics:max,max,nobuttonbar,offscreenonly")
const NUM_OF_POINTS := 5
const MID_X := maxx div 2
const MID_Y := maxy div 2

var XP, YP : array 1 .. NUM_OF_POINTS of int

var XM, YM, Click : int
var Length : real4
var Angle : int2

Length := 100
Angle := 0

for I : 1 .. NUM_OF_POINTS
    XP (I) := round (cosd (I * (360 / NUM_OF_POINTS)) * Length) + MID_X
    YP (I) := round (sind (I * (360 / NUM_OF_POINTS)) * Length) + MID_Y
end for

loop
    cls
    mousewhere (XM, YM, Click)
    Length := Length_Find (MID_X, MID_Y, XM, YM)
    if (XM - MID_X) = 0 then
        if YM > MID_Y then
            Angle := 90
        else
            Angle := 270
        end if
    else
        Angle := round (arctand ((MID_Y - YM) / (MID_X - XM)))
        if XM < MID_X then

            Angle := Angle - 180

        end if
    end if
    for I : 1 .. NUM_OF_POINTS
        XP (I) := round (cosd (I * (360 / NUM_OF_POINTS) +
            Angle) * Length) + MID_X
        YP (I) := round (sind (I * (360 / NUM_OF_POINTS) +
            Angle) * Length) + MID_Y
    end for
    drawfillpolygon (XP, YP, NUM_OF_POINTS, 10)
    View.Update
end loop