--- rpl/src/interface_gnuplot.c	2010/01/26 15:22:45	1.1
+++ rpl/src/interface_gnuplot.c	2010/03/04 10:17:54	1.5
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
+  RPL/2 (R) version 4.0.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -23,11 +23,6 @@
 #include "rpl.conv.h"
 #include "gnuplot.conv.h"
 
-#ifdef DEBUG
-#	define fprintf(flux, ...) ({ printf(__VA_ARGS__); \
-		fprintf(flux, __VA_ARGS__); })
-#endif
-
 
 /*
 ================================================================================
@@ -221,6 +216,8 @@ appel_gnuplot(struct_processus *s_etat_p
 							(*l_base_liste).type);
 					(*(*s_etat_processus).fichiers_graphiques).dimensions =
 							(*l_base_liste).dimensions;
+					(*(*s_etat_processus).fichiers_graphiques).systeme_axes =
+							(*l_base_liste).systeme_axes;
 				}
 				else
 				{
@@ -245,8 +242,10 @@ appel_gnuplot(struct_processus *s_etat_p
 					(*l_fichier_courant).legende = NULL;
 					(*l_fichier_courant).presence_axes = d_faux;
 					strcpy((*l_fichier_courant).type, (*l_base_liste).type);
-					(*(*s_etat_processus).fichiers_graphiques).dimensions =
+					(*l_fichier_courant).dimensions =
 							(*l_base_liste).dimensions;
+					(*l_fichier_courant).systeme_axes =
+							(*l_base_liste).systeme_axes;
 				}
 			}
 
@@ -1717,7 +1716,8 @@ appel_gnuplot(struct_processus *s_etat_p
 			return;
 		}
 
-		if (fprintf(fichier_impression, "\\begin{figure}[hp]\n") < 0)
+		if (tex_fprintf(s_etat_processus, fichier_impression,
+					"\\begin{figure}[hp]\n") < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 			return;
@@ -1732,18 +1732,24 @@ appel_gnuplot(struct_processus *s_etat_p
 			}
 		}
 
+		if (fclose(fichier_image) != 0)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+			return;
+		}
 
 		if (strlen((*s_etat_processus).titre) > 0)
 		{
-			if (fprintf(fichier_impression, "\\caption{%s}\n",
-					(*s_etat_processus).titre) < 0)
+			if (tex_fprintf(s_etat_processus, fichier_impression,
+					"\\caption{%s}\n", (*s_etat_processus).titre) < 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 				return;
 			}
 		}
 
-		if (fprintf(fichier_impression, "\\end{figure}\n") < 0)
+		if (tex_fprintf(s_etat_processus, fichier_impression,
+					"\\end{figure}\n") < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 			return;