From: N. Brouard <brouard@ined.fr>
Date: Fri, 30 Jun 2017 13:39:33 +0000 (+0000)
Subject: Summary: Saito's color
X-Git-Tag: imach-099s7~221
X-Git-Url: https://henry.ined.fr/git/?a=commitdiff_plain;h=93132da75ba3cee874a2e59187040c4685e04010;p=.git

Summary: Saito's color
---

diff --git a/src/imach.c b/src/imach.c
index 755a667..256f6e3 100644
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,9 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.274  2017/06/29 09:47:08  brouard
+  Summary: Version 0.99r14
+
   Revision 1.273  2017/06/27 11:06:02  brouard
   Summary: More documentation on projections
 
@@ -7890,12 +7893,12 @@ set ter svg size 640, 480\nunset log y\nplot [%.f:%.f]  ", ageminpar, agemaxpar)
 	    }
 	    fprintf(ficgp,")");
 	    if(ng ==2)
-	      fprintf(ficgp," t \"p%d%d\" ", k2,k);
+	      fprintf(ficgp," w l lt (%d*%d+%d)%%%d+1 dt %d t \"p%d%d\" ", nlstate+ndeath, k2, k, nlstate+ndeath, k2, k2,k);
 	    else /* ng= 3 */
-	      fprintf(ficgp," t \"i%d%d\" ", k2,k);
+	      fprintf(ficgp," w l lt (%d*%d+%d)%%%d+1 dt %d t \"i%d%d\" ",  nlstate+ndeath, k2, k, nlstate+ndeath, k2, k2,k);
 	  }else{ /* end ng <> 1 */
 	    if( k !=k2) /* logit p11 is hard to draw */
-	      fprintf(ficgp," t \"logit(p%d%d)\" ", k2,k);
+	      fprintf(ficgp," w l lt (%d*%d+%d)%%%d+1 dt %d t \"logit(p%d%d)\" ",  nlstate+ndeath, k2, k, nlstate+ndeath, k2, k2,k);
 	  }
 	  if ((k+k2)!= (nlstate*2+ndeath) && ng != 1)
 	    fprintf(ficgp,",");