%!PS-Adobe-2.0 %%BoundingBox:100 100 150 150 100 100 translate % put origin at 100 100 0 0 moveto % define current point 50 50 rlineto % trace diagonal line 50 neg 0 rlineto % trace horizontal line 50 50 neg rlineto % trace other diagonal line stroke % draw (stroke) the lines 0 0 moveto % redefine current point /Times-Roman findfont % get Times-Roman font 50 scalefont % scale it to 50 big points setfont % make it the current font (W) show % draw an uppercase W