Embed fonts in pdf file.

[loba-papers.git] / loba-besteffort / data / script.r

diff --git a/loba-besteffort/data/script.r b/loba-besteffort/data/script.r
index ec331ead123dfa276aa0e5bbee253c51bb88e5c3..236cfd036978c193b27093020ba767bf3e9e574d 100644 (file)
--- a/loba-besteffort/data/script.r
+++ b/loba-besteffort/data/script.r
@@ -193,11 +193,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")
         }
       }
     }