diff --git a/90.1.png b/90.1.png
diff --git a/90.10.png b/90.10.png
diff --git a/90.2.png b/90.2.png
diff --git a/90.3.png b/90.3.png
diff --git a/90.4.png b/90.4.png
diff --git a/90.5.png b/90.5.png
diff --git a/90.6.png b/90.6.png
diff --git a/90.7.png b/90.7.png
diff --git a/90.8.png b/90.8.png
diff --git a/90.9.png b/90.9.png
diff --git a/91.1.png b/91.1.png
diff --git a/91.10.png b/91.10.png
diff --git a/91.2.png b/91.2.png
diff --git a/91.3.png b/91.3.png
diff --git a/91.4.png b/91.4.png
diff --git a/91.5.png b/91.5.png
diff --git a/91.6.png b/91.6.png
diff --git a/91.7.png b/91.7.png
diff --git a/91.8.png b/91.8.png
diff --git a/91.9.png b/91.9.png
diff --git a/92.1.png b/92.1.png
diff --git a/92.10.png b/92.10.png
diff --git a/92.2.png b/92.2.png
diff --git a/92.3.png b/92.3.png
diff --git a/92.4.png b/92.4.png
diff --git a/92.5.png b/92.5.png
diff --git a/92.6.png b/92.6.png
diff --git a/92.7.png b/92.7.png
diff --git a/92.8.png b/92.8.png
diff --git a/92.9.png b/92.9.png
diff --git a/93.1.png b/93.1.png
diff --git a/93.10.png b/93.10.png
diff --git a/93.2.png b/93.2.png
diff --git a/93.3.png b/93.3.png
diff --git a/93.4.png b/93.4.png
diff --git a/93.5.png b/93.5.png
diff --git a/93.6.png b/93.6.png
diff --git a/93.7.png b/93.7.png
diff --git a/93.8.png b/93.8.png
diff --git a/93.9.png b/93.9.png
diff --git a/94.1.png b/94.1.png
diff --git a/94.10.png b/94.10.png
diff --git a/94.2.png b/94.2.png
diff --git a/94.3.png b/94.3.png
diff --git a/94.4.png b/94.4.png
diff --git a/94.5.png b/94.5.png
diff --git a/94.6.png b/94.6.png
diff --git a/94.7.png b/94.7.png
diff --git a/94.8.png b/94.8.png
diff --git a/94.9.png b/94.9.png
diff --git a/95.1.png b/95.1.png
diff --git a/95.10.png b/95.10.png
diff --git a/95.2.png b/95.2.png
diff --git a/95.3.png b/95.3.png
diff --git a/95.4.png b/95.4.png
diff --git a/95.5.png b/95.5.png
diff --git a/95.6.png b/95.6.png
diff --git a/95.7.png b/95.7.png
diff --git a/95.8.png b/95.8.png
diff --git a/95.9.png b/95.9.png
diff --git a/96.1.png b/96.1.png
diff --git a/96.10.png b/96.10.png
diff --git a/96.2.png b/96.2.png
diff --git a/96.3.png b/96.3.png
diff --git a/96.4.png b/96.4.png
diff --git a/96.5.png b/96.5.png
diff --git a/96.6.png b/96.6.png
diff --git a/96.7.png b/96.7.png
diff --git a/96.8.png b/96.8.png
diff --git a/96.9.png b/96.9.png
diff --git a/97.1.png b/97.1.png
diff --git a/97.10.png b/97.10.png
diff --git a/97.2.png b/97.2.png
diff --git a/97.3.png b/97.3.png
diff --git a/97.4.png b/97.4.png
diff --git a/97.5.png b/97.5.png
diff --git a/97.6.png b/97.6.png
diff --git a/97.7.png b/97.7.png
diff --git a/97.8.png b/97.8.png
diff --git a/97.9.png b/97.9.png
diff --git a/98.1.png b/98.1.png
diff --git a/98.10.png b/98.10.png
diff --git a/98.2.png b/98.2.png
diff --git a/98.3.png b/98.3.png
diff --git a/98.4.png b/98.4.png
diff --git a/98.5.png b/98.5.png
diff --git a/98.6.png b/98.6.png
diff --git a/98.7.png b/98.7.png
diff --git a/98.8.png b/98.8.png
diff --git a/98.9.png b/98.9.png
diff --git a/99.1.png b/99.1.png
diff --git a/99.10.png b/99.10.png
diff --git a/99.2.png b/99.2.png
diff --git a/99.3.png b/99.3.png
diff --git a/99.4.png b/99.4.png
diff --git a/99.5.png b/99.5.png
diff --git a/99.6.png b/99.6.png
diff --git a/99.7.png b/99.7.png
diff --git a/99.8.png b/99.8.png
diff --git a/99.9.png b/99.9.png
diff --git a/CylinderMaker.R b/CylinderMaker.R
@@ -1,26 +1,41 @@
-df <- data.frame(Targ=1:10,
-                 Time=runif(10)*100)
+## function to create 1000 icons, suitable for use w/ a HirearchyChart
 
-a <- function(x) rep(x,10)
-
-df <- data.frame(
-  Targ=a(1:10),
-  Time=sort(a(1:10)))
-
-## Now define function
+## Define imagemaker function (don't laugh... it works)
 imageMaker <- function(targ,time){
   x<-factor(1)
-  y<-factor( c(rep("a",targ),rep("b",10-targ)) )
+  y<-factor( c(rep("a",targ),rep("b",100-targ)) )
   mydata <- data.frame(x,y)
   rm(x,y)
   mypalette <- c(RColorBrewer::brewer.pal(9,"Purples"),"#000000")
   mycol <- mypalette[round(time,0)]
-  png(filename = paste(i,".png",sep=""),width=60,height=60)
+  png(filename = paste(targ,".",time,".png",sep=""),width=60,height=60)
   par(mar=c(1,1,1,1))
   barplot(as.matrix(table(mydata$y)), col=c(mycol,"white"), beside = FALSE,axes = F)
   dev.off()
 }
 
+## Now figure out how many thingies to make. I want 100 by 10, suitable for mapping to percents and a 10-gradient color scale, so:
+df <- data.frame(Targ=rep(1:100,10), Time=sort(rep(1:10,100)))
+
 for (i in 1:nrow(df)){
   imageMaker(df$Targ[i],df$Time[i])
-}
+}
+
+##Done
+
+
+### WORKING EXAMPLE ####
+# path_to_images <- "https://raw.githubusercontent.com/datastorm-open/datastorm-open.github.io/master/visNetwork/data/img/indonesia/"
+path_to_images <- "https://raw.githubusercontent.com/mexindian/FilledBoxes/master/"
+
+nodes <- data.frame(id = 1:4, 
+                    shape = c("image", "circularImage"),
+                    image = paste0(path_to_images,round(runif(4)*100,0),".",round(runif(4)*100,0), ".png"),
+                    label = "I'm an image")
+
+edges <- data.frame(from = c(2,4,3,3), to = c(1,2,4,2))
+
+## Remember, it won't show up in RStudio... look on real web browser.
+visNetwork(nodes, edges, width = "100%") %>% 
+  visNodes(shapeProperties = list(useBorderWithImage = TRUE)) %>%
+  visLayout(randomSeed = 2)