mercredi 2 août 2017

Texte et image sur une surface paramétrée

C'est une généralisation du package précédent :
 http://pstricks.blogspot.fr/2017/07/texte-et-image-sur-une-surface-zfxy.html
qui n'utilisait que des surfaces définies par une équation cartésienne z=f(x,y). Les surfaces paramétrées englobent les surfaces z=f(x,y).
Les exemples précédents seront donc à adapter à cette nouvelle version. Tous les fichiers sont dans le répertoire :
Le fichier zippé les contenant tous.
Je rappelle que le package pst-txtimg est une extension  du package pst-solides3d.
Une animation et quelques images extraites de la documentation :
Écrire un poème autour d'un tore. Le titre du poème est "La maigreur d'un pétale" de Li Qingzhao
traduit par Camille Loivier dans "Le nouveau recueil" n°72 de  Septembre-Novembre 2004.


Brume légère, nuages lourds assombrissent  l'interminable jour
le bâton de camphre dans l'animal d'or brûle encore
 la fête du Double-Neuf est déjà de     retour
sur l'oreiller de jade derrière le paravent de soie
le milieu de la nuit m'apporte enfin un peu de fraîcheur
à la palissade de l'est je lève ma coupe de vin le crépuscule s'éteint
un parfum sourd pénètre ma manche
rien ne dit que je n'en perdrais pas l'esprit
le store s'enroule autour du vent d'ouest
ma vie plus maigre qu'un pétale de chrysanthème.



\documentclass[pstricks]{standalone}
\usepackage{pst-txtimg}
\begin{document}
\begin{pspicture}(-7.5,-4)(7.5,4)
\psframe(-7.5,-4)(7.5,4)
\psset{viewpoint=100 40 10 rtp2xyz,Decran=250,lightsrc=viewpoint,scale=1 1}
\defFunction[algebraic]{TORUS}(u,v)%
  {(1+ 0.5*cos(u))*cos(v)}
  {0.5*sin(u)}
  {(1+ 0.5*cos(u))*sin(v)}
\psSolid[object=surfaceparametree,
 linecolor={[cmyk]{1,0,1,0.5}},
 base=0 2 pi mul 0 2 pi mul ,
 fillcolor=cyan!20,
 ngrid=72 72,grid,
 function=TORUS]
\psTextSurface[text={Brume légère, nuages lourds assombrissent  l'interminable jour
le bâton de camphre dans l'animal d'or brûle encore
 la fête du Double-Neuf est déjà de     retour
sur l'oreiller de jade derrière le paravent de soie
le milieu de la nuit m'apporte enfin un peu de fraîcheur
à la palissade de l'est je lève ma coupe de vin le crépuscule s'éteint
un parfum sourd pénètre ma manche
rien ne dit que je n'en perdrais pas l'esprit
le store s'enroule autour du vent d'ouest
ma vie plus maigre qu'un pétale de chrysanthème.},function=TORUS,fontsize=10,RotationAngleText=4.75,fillcolor=black,linestyle=none](0,0)
\end{pspicture}
\end{document}




Aucun commentaire:

Enregistrer un commentaire