library(grid)
library(jpeg)
r1 = readJPEG("20161201_face.jpg")
png("sakuad2016120201.png", 800, 400)
yy = 0.8
yd = 0.1
pushViewport(viewport(0.25, 0.5, 0.5, 1, xscale = c(-1, 1), yscale = c(-1, 1)))
grid.lines(c(-0.8, 0), c(yy, 0), default.units = "native", gp = gpar(col="black", lwd = 3))
grid.lines(c(0, 0.8), c(0, -yy), default.units = "native", gp = gpar(col="red", lwd = 3))
grid.lines(c(0, 0.8), c(0-yd, -yy-yd), default.units = "native", gp = gpar(col="green", lwd = 3))
grid.lines(c(0, 0.8), c(0+yd, -yy+yd), default.units = "native", gp = gpar(col="blue", lwd = 3))
grid.raster(r1, 0, 0, 0.75, 1.5, default.units = "native")
popViewport()
pushViewport(viewport(0.75, 0.5, 0.5, 1, xscale = c(-1, 1), yscale = c(-1, 1)))
grid.raster(r1, 0, 0, 0.75, 1.5, default.units = "native")
grid.lines(c(-0.8, 0), c(yy, 0), default.units = "native", gp = gpar(col="black", lwd = 3))
grid.lines(c(0, 0.8), c(0, -yy), default.units = "native", gp = gpar(col="red", lwd = 3))
grid.lines(c(0, 0.8), c(0-yd, -yy-yd), default.units = "native", gp = gpar(col="green", lwd = 3))
grid.lines(c(0, 0.8), c(0+yd, -yy+yd), default.units = "native", gp = gpar(col="blue", lwd = 3))
popViewport()
dev.off()
左側を見て下さい。株式会社ホクソエム代表取締役のご尊顔で線が隠れています。
左の黒い線は、右の赤・緑・青のどの線とつながって見えますか?
多くの人は、「青」とつながっているように見えるんじゃないでしょうか?
実は、右側を見てもらうとわかるように、真ん中の赤い線とつながっています。
黒が赤へ・・・。
これはポッゲンドルフ錯視というものです。
実際のところ、何故この錯視が起きるのかは完全にはわかっていません(直接的には角度の過大視が原因という説が濃厚ですが、なぜ角度が過大視されるのか考えるとまた謎は深まります。もしかしたらある程度わかっているかもしれませんが)。
というか、多くの錯視は原因が不明です。
人間の認識の仕組みは、それくらい謎に満ちているということですね。
株式会社ホクソエムのホームページです。 http://hoxo-m.com/