Richard Heck wrote:
I've been playing around with this sort of thing, but I can't quite
get it to work. When I try to do this:
\rput[tl]{90}(0,0){}
e.g. the text won't rotate. Nor dos this work:
\rput[tl](0,0){\rotateleft{powerdot}}
I'm not sure why not. I can get the lines to rotate, via:
\rput[tl]{90}(-5.5,-26.51){%
\psline[linewidth=1pt](0,1.5)(\paperheight,1.5)%
\psline[linewidth=1pt](0,0)(\paperheight,0)%
}%
but not the text. I've got \usepackage{pstricks,pst-char} and no
errors, just no rotation.
I was being silly: You have to run dvips to get the rotation to work;
you can't see it in dvi. This basically works, though it is easy for it
to get all messed up. Tuning is required:
\documentclass[letter,11pt]{letter}
\usepackage{palatino}
\usepackage{pstricks}
\usepackage{pst-char,pst-text,pstcol}
\usepackage{calc}
\newcommand{\txtone}{powerdot}
\newcommand{\txttwo}{enterprises}
\newcommand{\toaddrlines}{3}
%these lengths are used to configure the sidebar
\newlength{\linel}%length of the lines
\setlength{\linel}{\paperheight - 0.5in}
\newlength{\linew}%width of lines
\setlength{\linew}{1pt}
\newlength{\linegap}%distance between the lines
\setlength{\linegap}{0.5in}
\newlength{\linset}%inset of text from ends of lines
\setlength{\linset}{0.06in}
\newlength{\linex}%x position for lines
\setlength{\linex}{-1in}
\newlength{\liney}%y position for lines
\setlength{\liney}{-7.85in}%
\newlength{\tmpl}
\settoheight{\tmpl}{\Huge\sffamily \txtone\txttwo}
\newlength{\txtx}%x position for text
\setlength{\txtx}{\linex + \linew - 0.5\linegap + 0.5\tmpl}
\newlength{\txty}%y position for text
\setlength{\txty}{\liney + \linset}
\newlength{\txtonewidth}
\settowidth{\txtonewidth}{\Huge\sffamily \txtone}
\newlength{\txttwowidth}
\settowidth{\txttwowidth}{\Huge\sffamily \txttwo}
\newlength{\bspace}
\setlength{\bspace}{\linel - \txtonewidth - \txttwowidth - 2\linset}
\def\mktitledecor{%
%\setlength{\liney}{-7.85in - 3\lineheight}
\rput[tl]{90}(\linex,\liney){%(-2,-8.9){%
\psline[linewidth=\linew](0,\linegap)(\linel,\linegap)%
\psline[linewidth=\linew](0,0)(\linel,0)%
}%
\rput[bl]{90}(\txtx,\txty){\Huge\sffamily\txtone\hspace{\bspace}\txttwo}%
}
\address{1234 Some Road\\My Town ST 09876\\USA}
\signature{John Doe\\Director of Hyperbole}
%\opening{To whom it may concern:}
\begin{document}
\begin{letter}{}
\mktitledecor
\opening{Dear Bob:}
Lorem ipsum et cetera. Lorem ipsum et cetera. Lorem ipsum et cetera.
Lorem ipsum et cetera. Lorem ipsum et cetera. Lorem ipsum et cetera.
Lorem ipsum et cetera. Lorem ipsum et cetera. Lorem ipsum et cetera.
Lorem ipsum et cetera. Lorem ipsum et cetera. Lorem ipsum et cetera.
Lorem ipsum et cetera.
Lorem ipsum et cetera. Lorem ipsum et cetera. Lorem ipsum et cetera.
Lorem ipsum et cetera. Lorem ipsum et cetera. Lorem ipsum et cetera.
Lorem ipsum et cetera.
\closing{Yours sincerely,}
\end{letter}
\end{document}
--
==================================================================
Richard G Heck, Jr
Professor of Philosophy
Brown University
http://frege.brown.edu/heck/
==================================================================
Get my public key from http://sks.keyserver.penguin.de
Hash: 0x1DE91F1E66FFBDEC
Learn how to sign your email using Thunderbird and GnuPG at:
http://dudu.dyn.2-h.org/nist/gpg-enigmail-howto
