LoginSignup
5
1

More than 5 years have passed since last update.

ポッゲンドルフ錯視

Last updated at Posted at 2016-12-01
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()

sakuad2016120201.png

左側を見て下さい。株式会社ホクソエム代表取締役のご尊顔で線が隠れています。
左の黒い線は、右の赤・緑・青のどの線とつながって見えますか?

多くの人は、「青」とつながっているように見えるんじゃないでしょうか?
実は、右側を見てもらうとわかるように、真ん中の赤い線とつながっています。

黒が赤へ・・・。

これはポッゲンドルフ錯視というものです。
実際のところ、何故この錯視が起きるのかは完全にはわかっていません(直接的には角度の過大視が原因という説が濃厚ですが、なぜ角度が過大視されるのか考えるとまた謎は深まります。もしかしたらある程度わかっているかもしれませんが)。

というか、多くの錯視は原因が不明です。

人間の認識の仕組みは、それくらい謎に満ちているということですね。

株式会社ホクソエムのホームページです。 http://hoxo-m.com/

5
1
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
5
1