setscreen ("offscreenonly")
var chars : array char of boolean
var a : int := 90
var x : int := 1
var y : int := 2
var mx, my, mb : int
fcn radians (a : int) : real
    result a * 0.0174533
end radians
proc drawrect (var p1, p2, p3, p4 : array 1 .. * of int, color : 1 .. 255)
    drawline (p1 (x), p1 (y), p2 (x), p2 (y), color)
    drawline (p2 (x), p2 (y), p3 (x), p3 (y), color)
    drawline (p3 (x), p3 (y), p4 (x), p4 (y), color)
    drawline (p4 (x), p4 (y), p1 (x), p1 (y), color)
end drawrect
fcn trigRound (func : string, l : int, nt : boolean) : int
    if func = "cos" and nt = true then
        result round (cos (radians (a + 90)) * l)
    elsif func = "cos" and nt = false then
        result round (cos (radians (a)) * l)
    elsif func = "sin" and nt = true then
        result round (sin (radians (a + 90)) * l)
    elsif func = "sin" and nt = false then
        result round (sin (radians (a)) * l)
    end if
end trigRound
proc moveF

end moveF
proc drawtilted (cx, cy, a : int, color : 1 .. 255, filled : boolean)
    var point1, point2, point3, point4, diagTR, diagBL : array 1 .. 2 of int
    diagTR (x) := cx + trigRound ("cos", 20, false)
    diagTR (y) := cy + trigRound ("sin", 20, false)
    diagBL (x) := cx - trigRound ("cos", 20, false)
    diagBL (y) := cy - trigRound ("sin", 20, false)
    point1 (x) := diagTR (x) - trigRound ("cos", 5, true)
    point1 (y) := diagTR (y) - trigRound ("sin", 5, true)
    point2 (x) := diagTR (x) + trigRound ("cos", 5, true)
    point2 (y) := diagTR (y) + trigRound ("sin", 5, true)
    point3 (x) := diagBL (x) + trigRound ("cos", 5, true)
    point3 (y) := diagBL (y) + trigRound ("sin", 5, true)
    point4 (x) := diagBL (x) - trigRound ("cos", 5, true)
    point4 (y) := diagBL (y) - trigRound ("sin", 5, true)
    drawrect (point1, point2, point3, point4, color)
    if filled then
        drawfill (cx, cy, brightred, color)
    end if
end drawtilted
loop
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) then
        moveF
    end if
    drawtilted (320, 200, a, black, true)
    put a : 3, " degrees"
    View.Update
    cls
    delay (10)
    mousewhere (mx, my, mb)
    if mb = 1 then
        a += 1
        if a >= 360 then
            a -= 360
        end if
    end if
end loop