ARマーカー作成スクリプト - ポケモン全国図鑑Pro、ポケモン立体図鑑BW まとめWiki

#RでARマーカー作成関数 需要ないと思うが。。。

marker <- function(x){
ar <- integer(36)

1 -> ar[15]

data <- as.integer(intToBits(x-1))

data[1] -> ar[8]
data[2] -> ar[11]
data[3] -> ar[29]
data[4] -> ar[9]
data[5] -> ar[17]
data[6] -> ar[28]
data[7] -> ar[10]
data[8] -> ar[23]
data[9] -> ar[27]

data[10] -> ar[16]
data[10] -> ar[21]

(data[1] + data[2] + data[3] +1)%%2 -> ar[26]
(data[4] + data[5] + data[6] +1)%%2 -> ar[20]
(data[7] + data[8] + data[9] +1)%%2 -> ar[14]

image(t(matrix(ar, nrow=6, byrow=T)), col=c("black","white"),
asp=1, axes=FALSE, useRaster = TRUE)

}

#↑のコードを載せた者ではありませんが
#個人的に移植してみた際、気になったことについてメモを……
#Rのベクトル(Cにおける配列のようなもの)は添え字が1から始まる
#matrix関数の参考URL
#http://cse.naro.affrc.go.jp/takezawa/r-tips/r/19.html
#t関数は転置行列を返します
#行列要素の値とマスの色は0が黒、1が白に対応