Scratch/cf_highdim_try_to_add_x_ranges.R

In CollinErickson/contour: Create Contour Plots from Data or a Function

csa()
par(mar=c(0,0,0,0))
split.screen(c(1,2))
screen(2)
par(mar=c(0,0,0,0))
a <- b <- seq(-4*pi, 4*pi, len = 27)
r <- sqrt(outer(a^2, b^2, "+"))
cf_grid(cos(r^2)*exp(-r/(2*pi)), xaxis=F,yaxis=F, mainminmax = F, bar=F)
screen(1)
# text_plot('y')
par(mar=c(.3,0,.3,0), xaxs='i', yaxs='i')
plot(c(0, 1), c(0, 1), ann = F, bty = 'n', type = 'n', xaxt = 'n', yaxt = 'n')
# plot(c(0, 1), c(0, 1), col=0, ann=F)
lines(c(.93,1), c(1,1))
text(.99,.98, '1', pos=2)
lines(c(.93,1), c(0,0))
text(.99,.02, '0', pos=2)
text(.5,.5,"x1")
lines(c(0,1), c(0,1))
image(dat)
close.screen(all=T)
plot((0:10)/10, (0:10)/10)
points(5,10)
# lines(c)
points(.3,.5)
par(mar=c(1,1,1,1), xaxs='r', yaxs='r')