premier dessin avec plplot

chap/Fortran.tex

@@ -243,19 +243,61 @@ ou un \textsc{HelloWorld}~:
 
 \lstinputlisting{code/fortran/plplotting.f90}
 
-Il ne se passe pas grand chose, sauf la proposition de choisir
-le type de sortie.
+Il ne se passe pas grand chose, sauf qu'on a une proposition de
+choisir le type de sortie.
 Dans la version que j'ai (XXX\index{XXX}), on a le choix entre
-X-Window, PostScript mono ou couleur, Xfig, Null, UserMemory et SVG.
-C'est intriguant de ne pas avoir au moins \textbf{un} format
-pixmap\index{pixmap}.
+X-Window, PostScript mono ou couleur, Xfig, PNG, SVG, et bien
+d'autres dont certains, pour moi, assez ésotériques.
+D'autre part, avec cette méthode, il est impossible de
+préciser la taille de l'image.
 
 Laissons cette question en suspens, et commençons à dessiner.
-D'accord, mais dessiner quoi ?
+
+Première étape, démarrer automatiquement dans une fenètre X11,
+en gardant tous les autres paramètres à leur valeur par défaut.
+Il suffit de rajouter \texttt{call plsdev('xwin')} juste avant
+l'appel à \texttt{plinit}, et d'utiliser la touche \textsl{<enter>}
+pour sortir.
+
+Ensuite nous allons choisir une couleur pour l'encre (qui est d'un
+rouge du meilleur effet par défaut en mode "xwin"),
+puis écrire quelques légendes canoniques, donc inutiles, .
+
+\begin{verbatim}
+    call plcol0 (15)         ! pure white
+    call pllab  ("Fuzzfactor", "Yoyodines", "Some nice plots")
+\end{verbatim}
+
+Il est maintenant temps de poser un premier trait de crayon numérique
+sur notre feuille blanche numérique\footnote{Actuellement noire, mais
+nous trouverons bien comment changer ça}.
+La forme de ce tracé sera donnée par une suite de coordonnées
+flottantes \textsl{x/y}
+stockées dans deux tableaux parallèles~:
+
+\begin{verbatim}
+    integer, parameter    :: lg = 500
+    real                  :: x(lg), y(lg)
+\end{verbatim}
+
+Tableaux que nous allons immédiatement garnir de données pertinentes~:
+
+\begin{verbatim}
+    real                  :: k
+    integer               :: i
+    k = 0.1
+    do i = 1, lg
+        x(i) = k * sin(real(i)/3.0)
+        y(i) = k * cos(real(i)/3.0)
+        k = k * 1.006021
+    enddo
+\end{verbatim}
+
+Wesh gro !
 
 % --------------------------------------------------------
 
-\section{Questions}
+\section{Questions en attente}
 
 \index{XXX}
 
@@ -265,7 +307,7 @@ D'accord, mais dessiner quoi ?
 \item Est-il possible de causer à \texttt{libsndfile} ?
 \item Comment caler une chaine à gauche avec un \textsc{format} ?
 \item Is there a \texttt{-fortran} option for making comments with
-	\texttt{figlet}\index{figlet} ?
+	\texttt{boxes} + \texttt{figlet}\index{figlet} ?
 \end{itemize}
 
 % --------------------------------------------------------
@@ -273,6 +315,7 @@ D'accord, mais dessiner quoi ?
 
 \textsl{<Pas de réponse>}
 
+Voilà, c'est tout pour le moment\dots
 
 
 %	========================================