Re: problemi di affiancamento

#15375
Up
0
Down
::

non riesco ad affiancare due grafici…..io ora vi scrivo il sorgente di uno…vorrei affiancarne uno uguale per poi modificarli…..
`\newcount\wang
\newsavebox{\wangtext}
\newdimen\wangspace
\def\wheel#1{\savebox{\wangtext}{#1}%
\wangspace\wd\wangtext
\advance\wangspace by 1cm%
\centerline{%
\rule{0pt}{\wangspace}%
\rule[-\wangspace]{0pt}{\wangspace}%
\wang=0
\loop
\ifnum\wang<360
\rlap{\begin{rotate}{\the\wang}
\rule{1.5cm}{0pt}#1
\end{rotate}}
\advance\wang by 10
\repeat}}
\wheel{\LaTeXe}`
ho provato in un modo ma il risultato è stato da ridere…ha creato una miriade di pagine piene di questa immagine…..

vedete se mi potete aiutare………..grazie

È il comando \wheel{\LaTeXe} che produce la ruota. Il resto sono le istruzioni per definire il comando. Questa parte, modificata rispetto all’originale, va prima di \begin{document}:
`\newcount\wang \newsavebox{\wangtext}
\def\hwheel#1{\savebox{\wangtext}{\kern 1cm #1}%
\makebox[2\wd\wangtext]{%
\vrule height\wd\wangtext depth\wd\wangtext width 0pt\relax
\wang=-180 \loop\ifnum\wang<180
\rlap{\begin{rotate}{\number\wang}\copy\wangtext \end{rotate}}%
\advance\wang by 10 \repeat}}`
Se ne vuoi affiancare due, puoi fare così:
`\begin{center}
\hwheel{\LaTeXe}\quad\hwheel{\LaTeXe}
\end{center}`
Vedi che cosa intendevo con “comincia con il poco”?

Ciao
Enrico[/quote]
Grazie mille
ora va benissimo….ma ancora una cosa….non si possono creare diverse rappresentazioni, oltre il cerchio oppure la spirale?non è possibile fare che il carattere diventi sempre più grande via via che la spirale si formi??
grazie mille ancora

Go to top