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

const midx := maxx div 2
const midy := maxy div 2

type cart :
    record
        x : array 0 .. 1472 of int
        y : array 0 .. 792 of int
        z : array 0 .. 792 of int
    end record

var x, y, z : int
var map : array 0 .. 360 of cart

for q : 0 .. 360
    for s : 0 .. midx
        for t : 0 .. midy
            map (q).x (s) := round (cosd (t) * s) + midx
            map (q).y (t) := round (sind (s) * t) + midy
            map (q).z (s) := t
            x := map (q).x (s) - midx
            z := map (q).z (s)
            x := round (cosd (q) * x - sind (q) * z)
            map (q).x (s) := x + midx
        end for
    end for
    Draw.FillArc (midx, midy, 100, 100, 90, q + 90, black)
    locate (1, 1)
    put round ((q / 360) * 1000) / 10, '%'
    View.Set ('title:Rendering: ' + realstr (round ((q / 360) * 1000) / 10, 3) + '% complete')
    View.Update
end for

cls
Input.Pause

for q : 0 .. 360
    cls
    for s : 0 .. midx
        for t : 0 .. midy
            Draw.Dot (map (q).x (s), map (q).y (t), black)
        end for
    end for
    View.Update
    delay (2)
end for