/rstring 3 string def /r 0 def /g 0 def /b 0 def /allcolors { rstring 0 r put rstring 1 g put rstring 2 b put /r r 16 add store r 255 gt { /r 0 store /g g 16 add store g 255 gt { /g 0 store /b b 16 add store b 255 gt { /b 0 store } if } if } if %r g b pstack pop pop pop rstring } def 100 100 translate 30 rotate 5 5 scale 64 64 8 [1 0 0 1 0 0 ] { allcolors } false 3 colorimage 0 0 moveto 64 0 lineto 64 64 lineto 0 64 lineto 0 0 lineto stroke showpage