R, (削除) 122 (削除ここまで) 11071 bytes
function(w,h,p,r=rbind,q=do.call(r,lapply(p,r,NA))){plot.new();plot.window(c(0,w),c(0,h));polygon(q,c=seq(p),c=1:8)}
RDRR - actually shows graphics RDRR - actually shows graphics
A function that takes arguments width, height and a list of matricesmatrix of points detailing the shapes. Each shape is separated by a row of NAs. Output is a plot to the screen of the shapes.
R, (削除) 122 (削除ここまで) 110 bytes
function(w,h,p,r=rbind,q=do.call(r,lapply(p,r,NA))){plot.new();plot.window(c(0,w),c(0,h));polygon(q,c=seq(p))}
RDRR - actually shows graphics
A function that takes arguments width, height and a list of matrices of points detailing the shapes. Output is a plot to the screen of the shapes.
R, (削除) 122 (削除ここまで) 71 bytes
function(w,h,p){plot.new();plot.window(c(0,w),c(0,h));polygon(p,c=1:8)}
RDRR - actually shows graphics
A function that takes arguments width, height and a matrix of points detailing the shapes. Each shape is separated by a row of NAs. Output is a plot to the screen of the shapes.
R, 122(削除) 122 (削除ここまで) 110 bytes
function(w,h,p,r=rbind,q=do.call(r,lapply(p,r,NA))){plot.new();plot.window(c(0,w),c(0,h));polygon(q,c=rainbow(lengthc=seq(p)))}
RDRR - actually shows graphics RDRR - actually shows graphics
A function that takes arguments width, height and a list of matrices of points detailing the shapes. Output is a plot to the screen of the shapes.
R, 122 bytes
function(w,h,p,r=rbind,q=do.call(r,lapply(p,r,NA))){plot.new();plot.window(c(0,w),c(0,h));polygon(q,c=rainbow(length(p)))}
RDRR - actually shows graphics
A function that takes arguments width, height and a list of matrices of points detailing the shapes. Output is a plot to the screen of the shapes.
R, (削除) 122 (削除ここまで) 110 bytes
function(w,h,p,r=rbind,q=do.call(r,lapply(p,r,NA))){plot.new();plot.window(c(0,w),c(0,h));polygon(q,c=seq(p))}
RDRR - actually shows graphics
A function that takes arguments width, height and a list of matrices of points detailing the shapes. Output is a plot to the screen of the shapes.
R, 122 bytes
function(w,h,p,r=rbind,q=do.call(r,lapply(p,r,NA))){plot.new();plot.window(c(0,w),c(0,h));polygon(q,c=rainbow(length(p)))}
RDRR - actually shows graphics
A function that takes arguments width, height and a list of matrices of points detailing the shapes. Output is a plot to the screen of the shapes.