/*
 +----------------------------------------------------------------------+
 | This program was created by Lapsus Antepedis in 2005, It creates a   |
 | series of rorschach-esque images.                                    |
 | Please do not rip off my code, at least tell me what you use it for. |
 | Thank you for your time.                                             |
 +----------------------------------------------------------------------+
*/

var window : int := Window.Open ("graphics:400;400, title: Rorschach-esuqe Image Maker")
View.Set ("offscreenonly")
var pixl : array 0 .. maxx, 0 .. maxy of int

put "Generating Rorschach Image..."
put "This may take a few seconds, please be patient..."
View.Update

cls

proc brownian (steps : int)

    var x, y, move : int
    x := maxx div 2
    y := maxy div 2

    for i : 1 .. steps
        drawdot (x, y, Rand.Int (1, 255))
        randint (move, 1, 4)
        if move = 1 and x < maxx + 1 then
            x += 1
        elsif move = 2 and x > -1 then
            x -= 1
        elsif move = 3 and y < maxy + 1 then
            y += 1
        elsif move = 4 and y > -1 then
            y -= 1
        end if
    end for
end brownian


proc fillarray
    for x : 0 .. maxx
        for y : 0 .. maxy
            pixl (x, y) := whatdotcolour (x, y)
        end for
    end for
end fillarray

proc drawpictor
    for x : 0 .. maxx
        for y : 0 .. maxy
            drawdot (x, y, pixl (x, y))
        end for
    end for
end drawpictor

proc verticalmirror
    for decreasing x : maxx .. maxx div 2
        for y : 0 .. maxy
            drawdot (x, y, pixl (maxx - x, y))
        end for
    end for
end verticalmirror

proc horizontalmirror
    for y : 0 .. maxy div 2
        for x : 0 .. maxx
            drawdot (x, y, pixl (x, maxy - y))
        end for
    end for
end horizontalmirror

proc rorschach
    brownian (444444)
    fillarray
    drawpictor
    verticalmirror
    fillarray
    horizontalmirror
end rorschach

loop
    rorschach
    View.Update
    delay (2000)
    cls
end loop