手書き PostScript でステレオグラム

うまく作れていれば、○の中に★があるのが見えるはず
以下ソース

%!PS
%%BoundingBox: 100 100 384 240
gsave
    %文字コード注意 EUC-JP の場合
    /GothicBBB-Medium-EUC-H findfont 80 scalefont setfont
    /max 140 def
    /half max 2 div def
    /scatterdot {
        50000 {
            /x rand 10 mod 5 sub 20 div def
            0 0.7 x add 0.7 x add setrgbcolor
            newpath rand max mod rand max mod 1.1 1.1 rectfill
        } repeat
        0 setgray
    } def
    /figure 30 45 moveto (★) true charpath
        half 50 add half moveto
        half half 50 0 360 arc half half 55 360 0 arcn
        true upath def
    0 setlinewidth
    gsave
        100 100 translate
        0 0 max max rectclip
        1 srand scatterdot
        5 0 translate
        1 setgray figure fill
        figure clip
        1 srand scatterdot
    grestore
    gsave
        104 max add 100 translate
        0 0 max max rectclip
        1 srand scatterdot
        -5 0 translate
        1 setgray figure fill
        figure clip
        1 srand scatterdot
    grestore
showpage
grestore