/inch {24 mul} def
gsave
     /Palatino-Roman findfont                         % Palatino-Roman
     21 scalefont setfont
     .5 inch 7 inch translate
     34 rotate
     0 0 moveto (Palatino-Roman) show
grestore
gsave
     /Palatino-Italic findfont                            % Palatino-Italic
     24 scalefont setfont
     .5 inch 6 inch translate
     11 rotate
     0 0 moveto (Palatino-Italic) show
grestore
gsave
     /Palatino-Bold findfont                             % Palatino-Bold
     27 scalefont setfont
     .5 inch 5 inch translate
     -9 rotate
     0 0 moveto (Palatino-Bold) show
grestore
gsave
     /Palatino-BoldItalic findfont                    % Palatino-BoldItalic
     23 scalefont setfont
     .5 inch 4 inch translate
     -20 rotate
     0 0 moveto (Palatino-BoldItalic) show
grestore