// original code ported from http://warp.povusers.org/MandScripts/python.html

minX = -2.0
maxX = 1.0
width = 78
height = 36
aspectRatio = 2

chars = " .,-:;i+hHM$*#@ ".chars()
nchars = chars.length() - 1

yScale = (maxX - minX)*(Float(height)/width)*aspectRatio
for y=0 to height begin
    for x=0 to width begin
        c_re = minX + x * (maxX - minX) / width
        c_im = y * yScale / height - yScale / 2
        a = c_re
        b = c_im
        // (a + bi)^2 = (a^2 - b^2) + 2abi
        // (a + bi) + (c + di) = (a+c) + (b+d)i
        for i=0 to nchars begin
            if sqrt(a*a + b*b) > 2 then break
            a_ = a
            b_ = b
            a = a_*a_ - b_*b_ + c_re
            b = 2 * a_ * b_ + c_im
        end
        print(chars[i])
    end
    print("\n")
end