library(cranvas)
library(qtbase)
library(qtpaint)
s <- qscene()
r <- qlayer(s)
l <- qrect(matrix(c(0, 1, 0, 1), 2))
m <- qlayer(paintFun = function(layer, painter) {
qdrawCircle(painter, runif(1000), runif(1000), r = 2)
qdrawRect(painter, 0, 0, 1, 1)
}, limits = l) # main layer
g <- qgrid(xat = seq(0, 1, 0.2), yat = seq(0, 1, 0.5), xlim = c(0, 1), ylim = c(0,
1), limits = l)
r[1, 1] <- g # must add the grid layer FIRST, then the plot layer
r[1, 1] <- m
print(qplotView(scene = s))
Run the code above in your browser using DataLab