for s : 0 .. midx
    for t : 1 .. midy
        map (q).x (t) := round (cosd (s) * t) + midx
        map (q).y (s) := round (sind (t) * s) + midy
        map (q).z (t) := s
        x := map (q).x (t) - midx
        z := map (q).z (t)
        x := round (cosd (q/2) * x - sind (q/2) * z)
        map (q).x (t) := x + midx
        Draw.Dot(map(q).x(t), map(q).y(s), black)
    end for
end for