X-Git-Url: https://bilbo.iut-bm.univ-fcomte.fr/and/gitweb/loba-papers.git/blobdiff_plain/6a2c40b9574f7d9550ccfff4a3def72d19c59f7c..9b96bd5692f7c547db8325e06f805e8a2a680f14:/loba-besteffort/data/script.r?ds=sidebyside

diff --git a/loba-besteffort/data/script.r b/loba-besteffort/data/script.r
index ec331ea..68d78a9 100644
--- a/loba-besteffort/data/script.r
+++ b/loba-besteffort/data/script.r
@@ -131,23 +131,30 @@ draw2 <- function(dset = ds,
 
   ## remove first column (aka "Algo")
   dset.mat <- as.matrix(dset.wide[-1])
+  nc <- nrow(dset.mat)
 
   dset.plot <- dset.mat[, c(FALSE,FALSE,TRUE)]
   barplot(dset.plot, beside=TRUE,
           names.arg=sub("^[^.]*\\.", "", colnames(dset.plot)),
-          col=rainbow(nrow(dset.mat), s=.5))
+          col=gray.colors(nc)
+#          col=rainbow(nc, s=.5)
+          )
 
   dset.plot <- dset.mat[, c(FALSE,TRUE,FALSE)]
   barplot(dset.plot, beside=TRUE,
           axes=FALSE, axisnames=FALSE, add=TRUE,
           legend.text=TRUE,
           args.legend=list(x="topleft", inset=c(.02,0), title="Algorithms"),
-          col=rainbow(nrow(dset.mat)))
+          col=gray.colors(nc)
+#          col=rainbow(nc)
+          )
 
   dset.plot <- dset.mat[, c(TRUE,FALSE,FALSE)]
   barplot(dset.plot, beside=TRUE,
           axes=FALSE, axisnames=FALSE, add=TRUE,
-          col=rainbow(nrow(dset.mat), v=.5))
+          col="white"
+#          col=rainbow(nc, v=.5)
+          )
 
   ## finally, set titles
   t <- paste0(dset$Mode[1], dset$Distrib[1], " / ",
@@ -186,6 +193,7 @@ msg("... with draw2()...")
 draw2(draw_distrib="N")
 }
 
+pdf.options(colormodel="grey")
 system("mkdir -pv graphs")
 for (m in c("R", "I")) {
   for (d in c("1", "N")) {
@@ -193,11 +201,13 @@ for (m in c("R", "I")) {
       for (t in c("line", "torus", "hcube")) {
         for (p in c("grid", "cluster")) {
           message(sprintf(">>> Drawing: %s%s / %s / %s / %s", m, d, r, p, t))
-          pdf(file=sprintf("graphs/%s%s-%s-%s-%s.pdf", m, d, r, p, t))
+          filename <- sprintf("graphs/%s%s-%s-%s-%s.pdf", m, d, r, p, t)
+          pdf(file=filename)
           draw2(#subset(ds, grepl("[lt]_plain", Algo)),
                 draw_mode=m, draw_distrib=d, draw_ratio=r,
                 draw_topo=t, draw_platform=p)
           dev.off()
+          embedFonts(file=filename, options="-dPDFSETTINGS=/prepress")
         }
       }
     }