/e {erasepage} def

/inch {200 mul} def

/box
{
        newpath moveto
        1 inch 0 rlineto
        0 1 inch rlineto
        -1 inch 0 rlineto
        closepath
} def

/fillbox {setgray fill} def

/main
{
        100 100 box 0 fillbox
        125 150 box .4 fillbox
        150 200 box .8 fillbox
} def
