chap/Basic.tex

@@ -19,7 +19,6 @@ Dans un premier temps, je vais les lister sommairement, et
 ensuite j'aurais une idée sur lesquels seront les plus funs
 à explorer.
 
-Dartmouth Time Sharing System
 
 % -------------------------------------------
 \section{Bywater} \index{bywater}

chap/Fortran.tex

@@ -1,19 +1,13 @@
 \chapter{Fortran} \label{chap:Fortran} \index{Fortran}
 
-\begin{quote}
 Fortran (\textsc{FORmula TRANslator}) est, avec le Cobol\index{Cobol},
 un des premiers langages évolués. Il a été conçu après la seconde
 guerre mondiale, en 1954, par
 John Warner Backus, ingénieur en radiophonie chez IBM\index{IBM},
-\end{quote}
-
-Pourquoi j'ai redécouvert un langage de ma jeunesse, et pourquoi
-vous devriez vous aussi y jeter un regard attentif. Il y a plein
-de bonnes choses, la septième va vous tenir compagnie.
 
 %	========================================
 
-\section{FORTRAN77}
+\section{F77}
 
 Dernière version à exiger le format '80 colonnes' des cartes perforées,
 cette version est aussi (aux yeux de vieux dinos) la plus pure,
@@ -21,10 +15,6 @@ cette version est aussi (aux yeux de vieux dinos) la plus pure,
 mythique \textsl{comefrom}\footnote{Keyword: Datamatic}.
 Nom officiel : \texttt{ANSI X3.9-1978}.
 
-L'incarnation \texttt{g77}\index{g77} n'existe plus, meis peut être
-à-priori émulable en jouant avec les options de \texttt{gfortran}
-et un brin de shell.
-
 %	============****************===============
 
 % https://linuxfr.org/users/vmagnin/journaux/taptempo-fortran
@@ -43,7 +33,7 @@ Il faut l'enregister dans un fichier nommé \texttt{hello.f90}
 pour que le compilateur puisse admettre que c'est écrit
 en \textsl{free form format}.
 
-\begin{lstlisting}
+\begin{verbatim}
 $ cat hello.f90
 program hello
     implicit none
@@ -52,7 +42,7 @@ end
 $ gfortran -Wall hello.f90 -o hello && ./hello
  hello world
 $
-\end{lstlisting}
+\end{verbatim}
 
 % --------------------------------------------------------
 %
@@ -60,13 +50,12 @@ $
 %
 \section{Args \& Env}
 
-Un fort beau programme que ce \textsc{helloworld}, mais il est un peu
-fermé au monde extérieur.
+Un fort beau programme, mais il est un peu fermé au monde extérieur.
 Quand on lance un programme, il peut recevoir des instructions
 par (mais pas que) deux canaux : les arguments de la ligne de commande
 et les variables d'environnement.
 
-\begin{lstlisting}
+\begin{verbatim}
 program rum_me
   implicit none
   integer               :: nbarg, foo
@@ -80,18 +69,18 @@ program rum_me
     enddo
   endif
 end
-\end{lstlisting}
+\end{verbatim}
 
 Si un des arguments doir être vu comme une valeur numérique,
-il faut convertir la chaine de caractères avant usage.
-Exemple pour un nombre flottant~:
+il faut la convertir avant usage. Exemple pour un nombre
+flottant~:
 
-\begin{lstlisting}
+\begin{verbatim}
   character(len=89)             :: arg
   real                          :: cx
   call getarg(2, string)
   read (string, *) cx
-\end{lstlisting}
+\end{verbatim}
 
 % --------------------------------------------------------
 
@@ -102,32 +91,7 @@ Rank, Size, \textsc{allocatable}, toussa\dots
 Amies du C, soyez d'entrée prévenues, en Fortran, l'indice
 par défaut du premier élément d'un tableau est \textbf{1},
 mais cette valeur peut être modifiée à la déclaration
-du tableau. Ce qui permet des \textsl{of-by-anynumber}
-du plus bel effet.
-
-% --------------------------------------------------------
-% new 29 decembre 2022
-
-\section{Nombres complexes}
-
-Partie imaginaire : \texttt{ipart = aimag(cmplx)}.
-
-% --------------------------------------------------------
-% nouveau 4 mars 2023
-
-\section {Les structures}\index{type}
-
-Une « structure », c'est comme une petite boite dans laquelle on peut
-mettre des variables de différentes natures.
-
-\begin{lstlisting}
-type t_pixrgb
-  integer           :: r, g, b
-  integer           :: alpha = 0
-end type
-\end{lstlisting}
-
-Nous verrons plus loin l'importance de cette notion.
+du tableau.
 
 % --------------------------------------------------------
 
@@ -149,15 +113,10 @@ Il semble qu'il y ait deux concepts orthogonaux :
 
 XXX\index{XXX}
 
-Pour faire simple, on accède à chaque unité de donnée l'une après l'autre,
-comme quand on déroule une bande 6250bpi.
-
 \subsection{Indexé} \index{index}
 
 XXX\index{XXX}
 
-C'est pas pareil.
-
 % --------------------------------------------------------
 
 \section{Modules}
@@ -171,39 +130,12 @@ Il serait bon de voir un exemple du monde réel. Ou juste un
 exemple basique. Mais avec des explications. Parce que ce n'est pas
 vraiment évident. Mais c'est un concept balaize.
 
-Nous allons donc créer un module qui ne fait quasiment rien, ce qui
-limitera le nombre de pannes possibles dans la suite des opérations.
-
-\begin{lstlisting}
-module dummy
-    implicit none
-contains
-subroutine print_dummy
-    print *, 'this is the dummy subroutine'
-end subroutine
-end module
-\end{lstlisting}
-
-Rien de bien compliqué~:
-Un module peut être vu comme une boite qui contient (\texttt{contains})
-des procédures (\texttt{function} ou \texttt{subroutine},
-et qui sera utilisé avec ce genre de petit programme~:
-
-\begin{lstlisting}
-program t
-    use      dummy
-    implicit none
-    print *, '=== programme de test ==='
-    call print_dummy
-end program
-\end{lstlisting}
-
 % --------------------------------------------------------
 \section{Random et Aléa}
 
 La dernière ligne va vous étonner.
 
-\begin{lstlisting}
+\begin{verbatim}
     integer, dimension(3) :: tarray
     integer               :: t3
     real                  :: dummy
@@ -214,7 +146,7 @@ La dernière ligne va vous étonner.
     ! after initializing the random generator engine,
     ! you MUST use it for initializing the initializer
     dummy = rand()
-\end{lstlisting}
+\end{verbatim}
 
 % --------------------------------------------------------
 % new Thu 24 Nov 2022 02:27:05 AM CET
@@ -225,22 +157,27 @@ Comme d'habitude avec gcc\footnote{The Gnu Compiler Collection}, les
 options sont innombrables. J'ai essayé d'en dégager les plus importantes,
 mais ce ne sont probablement pas les seules.
 
+% --------------------------------------------------------
+% new 29 decembre 2022
+
+\section{Nombres complexes}
+
+Partie imaginaire : \texttt{ipart = aimag(cmplx)}.
+
 % --------------------------------------------------------
 
 \section{Images}
 
 La bibliothèque \textbf{Plplot} semble être un bon choix pour commencer,
 mais il existe bien d'autres options.
-Par exemple \textbf{g2} (vue en page \pageref{g2}) semble être utilisable
+Par exemple \textbf{g2} (page \pageref{g2}) semble être utilisable
 avec les vieux F77, et possiblement avec un Fortran moderne, il faut juste
 un peu de \textsc{rtfm}.
 
 Nous allons donc commencer par Plplot, pour envisager ensuite les alternatives.
 
 % --------------------------------------------------------
-%
-%   $ dillo /usr/share/doc/plplot-doc/html/index.html &
-%
+
 \subsection{Plplot} \index{plplot} \label{ploplt}
 
 Commençons directement par un EMC\footnote{Exemple Minimal Compilable}
@@ -251,83 +188,29 @@ qui gèrent pour vous les valeurs « par défaut ».
 Voyez cette exemple comme un \textsl{boilerplate} simple
 ou un \textsc{HelloWorld}~:
 
-\lstinputlisting{code/fortran/plplotting.f90}
+\begin{verbatim}
+program dessine
+  use plplot
+  implicit none
+  call plinit ()
+  call plenv(-2.1, 2.1, -2.1, 2.1, 0, 0)
+  call plend
+end program
+\end{verbatim}
 
-Il ne se passe pas grand chose, sauf qu'on a une proposition de
-choisir le type de sortie.
+Il ne se passe pas grand chose, sauf la 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, PNG, SVG, et bien
-d'autres dont certains, pour moi, assez ésotériques.
-D'autre part, avec cette méthode, il semble impossible de
-préciser la taille de l'image.
-Mais la démonstration est faite.
+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}.
 
-Il faut quand même regarder de plus près la subroutine
-\texttt{plenv()} (\textsl{Set up standard window and draw box})
-qui initialise simplement un contexte graphique 2D somme toute
-assez classique. Elle prend six paramètres. Les quatre premiers
-sont les coordonnées flottantes de deux coins du papier, 
-le cinquième controle l'échelle des axes, et le dernier
-controle le tracé des boites autour du graphique.
-
-Nous avons les bases, commençons donc à dessiner.
-
-Premièrement, nous allons chosir de démarrer automatiquement
-dans une fenètre X11,
-en gardant le reste de la configuration avec ses valeurs par défaut.
-Pour cela, il suffit de rajouter \texttt{call plsdev('xwin')} juste avant
-l'appel à \texttt{plinit}, il vous faudra utiliser la touche
-\textsl{<enter>} pour sortir\footnote{Une de mes prochaines tâche sera
-de regarder comment quitter avec le '\textbf{q}' canonique}.
-
-Ensuite, pour mettre en évidence notre art,
-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 que nous allons
-immédiatement garnir de données pertinentes~:
-
-\begin{verbatim}
-    integer, parameter    :: lg = 500
-    real                  :: x(lg), y(lg)
-    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)/5.0)
-        k = k * 1.006021
-    enddo
-\end{verbatim}
-
-Une fois en possession de ces données conceptuelles, que l'on peut
-aisément voire comme un cheminement, nous allons demander
-au crayon de se promener sur notre feuille virtuelle en suivant
-ce chemin~:
-
-\begin{verbatim}
-    call plcol0 (12)
-    call plline (x, y)
-\end{verbatim}
-
-Au passage, vous pouvez remarquer la magie du Fortran moderne~:
-il n'est plus nécessaire de signifier la dimension des tableaux
-lors de l'appel de la procédure.
+Laissons cette question en suspens, et commençons à dessiner.
+D'accord, mais dessiner quoi ?
 
 % --------------------------------------------------------
 
-\section{Questions en attente}
+\section{Questions}
 
 \index{XXX}
 
@@ -337,7 +220,7 @@ lors de l'appel de la procédure.
 \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{boxes} + \texttt{figlet}\index{figlet} ?
+	\texttt{figlet}\index{figlet} ?
 \end{itemize}
 
 % --------------------------------------------------------
@@ -345,7 +228,6 @@ lors de l'appel de la procédure.
 
 \textsl{<Pas de réponse>}
 
-Voilà, c'est tout pour le moment\dots
 
 
 %	========================================

chap/graphisme.tex

@@ -170,6 +170,7 @@ nous aurons toujours la même séquence en sortie.
 \subsection{Trucs à voir}
 
 \begin{verbatim}
+
 #declare VIRGINIA =
 transform {
 matrix < 1, 1, 0,
@@ -183,12 +184,6 @@ transform {VIRGINIA}
 }
 \end{verbatim}
 
-%		================================================
-
-\section{Avec Fortran}
-
-plplot
-
 
 %		------------------------------------------------
 

chap/video.tex

@@ -107,12 +107,6 @@ préciser le coef de qualité ( qscale : 1 = le mieux / 3 = correcte )
 
 https://engineering.giphy.com/how-to-make-gifs-with-ffmpeg/ \index{gif89a}
 
-\begin{verbatim}
-ffmpeg  -ss 0:5:59.600 -to 0:6:11.150 -i Downloads/foo.mp4 tmp/tragic.gif
-\end{verbatim}
-
-% -----------------------------------------------------------------
-
 \subsection{Encoder un cloître}
 
 Là, nous sommes dans du \textsl{serious bizness}, puisque cette vidéo

code/fortran/.gitignore

@@ -1,6 +0,0 @@
-
-plplotting
-dessiner
-
-*.png
-

code/fortran/Makefile

@@ -1,8 +0,0 @@
-
-INCS = -I/usr/include/plplot -I/usr/lib/x86_64-linux-gnu/fortran/modules/plplot
-
-plplotting:	plplotting.f90 Makefile
-	gfortran -g $< $(INCS) -lplplotfortran -o $@
-
-dessiner:	dessiner.f90 Makefile
-	gfortran -g $< $(INCS) -lplplotfortran -o $@

code/fortran/dessiner.f90

@@ -1,66 +0,0 @@
-program dessiner
-    use plplot
-    implicit none
-
-    integer            :: i
-    real               :: a, b, c, d
-
-    character(len=80) :: version
-    call plgver(version)
-    write (*,'(a,a)') 'plplot version: ', trim(version)
-
-    call plsdev('xwin')
-    call plinit ()
-
-    call plenv(-2.2, 2.2, -2.2, 2.2, 0, 1)
-
-    a = 0
-    b = 0
-    c = 0
-    d = 0
-    do i=1, 100
-      a = a + 0.01
-      b = b + 0.02
-      call dessin_1 (a, b, 12)
-      c = c + 0.03
-      d = d + 0.04
-      call dessin_1 (c, d, 13)
-    enddo
-
-    call plend
-
-contains                ! -----------------------------
-!------------------------------------------------------
-subroutine dessin_1 (sha, shb, color)
-    real, intent(in)      :: sha, shb
-    integer, intent(in)   :: color
-
-    integer, parameter    :: lg = 2000
-    real                  :: x(lg), y(lg)
-    real                  :: k, amp
-    integer               :: i
-
-    ! print *, 'dessin 1'
-    amp = 2.0
-    do i = 1, lg
-	k = real(i)/real(lg) * 6.2832 * 4.0
-        x(i) = amp * sin((k+sha)*5)
-        y(i) = amp * cos((k+shb)*3)
-    enddo
-    ! print *, k, x(i), y(i)
-
-    call plcol0 (15)         ! pure white
-    call pllab  ("Fuzzfactor", "Yoyodines", "Some nice plots from tTh")
-    call plcol0 (color)
-    call plline (x, y)
-
-end subroutine
-!------------------------------------------------------
-subroutine dessin_2 ()
-
-    print *, 'dessin 2'
-
-end subroutine
-!------------------------------------------------------
-
-end program

code/fortran/plplotting.f90

@@ -1,17 +0,0 @@
-program plplotting
-    use plplot
-    implicit none
-
-    ! Initializing the plotting package with a lot of
-    ! default (and pertinent) values.
-    call plinit ()
-
-    ! Sets up plotter environment for simple graphs
-    call plenv (-2.1, 2.1, -2.1, 2.1, 0, 0)
-
-    ! Ends a plotting session, tidies up all the output
-    ! files,switches interactive devices back into text
-    ! mode and frees up any memory that was allocated. 
-    call plend ()
-
-end program

tetatricks.tex

@@ -5,7 +5,7 @@
 %	Décembre, ça n'avance pas beaucoup...
 %
 
-\usepackage[french]{babel}
+\usepackage[francais]{babel}
 \usepackage[utf8]{inputenc}
 \usepackage{xspace}
 \usepackage{makeidx}
@@ -21,12 +21,12 @@
 \makeindex
 
 \setlength \parindent {2em}
-\setlength \parskip {0.33em}		% XXX
+\setlength \parskip {0.3333333em}		% XXX
 
 %------ reglages des 'listings'
 \lstset{frame=single}           % dessin d'un cadre autour du listing
 \lstset{basicstyle=\ttfamily\small}
-\lstset{aboveskip=1.0em,belowskip=1.0em}
+\lstset{aboveskip=1.2em,belowskip=1.2em}
 
 \setcounter{tocdepth}{1}
 \pagestyle{plain}
@@ -50,8 +50,7 @@
 % ==============================================================
 \chapter{Introduction}
 
-Un nouveau nouvel ouvrage, en vrac.
-
+Un nouveau nouvel ouvrage, en vrac, complètement coronavraqué.
 Des notes informelles sur l'utilisation
 d'un ordinateur moderne, vous allez en avoir vraiment beaucoup.
 Mais elles sont en vrac, et surtout, elles sont reprises
@@ -142,7 +141,7 @@ en ligne sur le site du Tetalab. Your mileage may vary\dots
 % \input{chap/astronomie}
 % \input{chap/MINITEL}
 % \input{chap/Raspberry}
-% \input{chap/Fedora}
+\input{chap/Fedora}
 % \input{chap/IPv6}
 \input{chap/threads}
 \input{chap/IPC}