Just a little bragging about my losing entry to
"Emulate a 7-segment display"
http://codegolf.stackexchange.com/a/9308/2381
While not a winner in terms of size, I'm proud of this code because I think it illustrates a neat way to draw bitmaps
using the postscript `image` operator.
(1101101) %for each char in the input
{neg 49 add 255 mul %'0'->255,1->0
1 string dup 0 4 3 roll put}forall %wrap in 1byte string
(\377){@/g/f/e/d/c/b/a}{exch def}forall %define values
@ a a @ %describe bitmap, top->down, right->left
b @ @ f
b @ @ f
@ g g @
c @ @ e
c @ @ e
@ d d @
4 7 8[.01 0 0 .01 0 0]{}image showpage
%4-pix wide 7-pix tall 8-bits per pix
%[matrix sez: "un-shrink" by 1/100]
%emptry proc lets image find strings already on stack
But you could easily do sthg like
/_ (\0) def
/# (\377) def
_ _ _ #
_ _ # _
_ # _ _
# _ _ _
4 4 8
[.1 0 0 .1 0 0]{}image
Now PS art is as easy as ASCII art. Have fun!