%!PS-Adobe-3.0
%%Creator: (David W. Speck)
%%CreationDate: (2014)

/render [
    /a 0 string
    /b 768 string
    /i 0
] {
    /a exch def
    0 1024 768 1 [1024 0 0 -768 0 768] {
        0 1 127 { /i exch def dup i 2 mul add a exch 2 getinterval aload pop
            -11 3 1 { 3 copy
                bitshift 14 and exch 3 -1 roll 4 add bitshift 224 and add 255 xor
                b exch i exch put /i i 128 add def
            } for b i 255 put pop pop
        } for 256 add b
    } image pop
} closure def