n = 13
m = 13
nDist = 0.5 / sin(p/n)
mDist = 0.5 / sin(p/m)
//頂点‐中心の距離が2になるよう調整
distance = sqrt(nDist ^ 2 + mDist ^ 2) / 2
nDist = nDist / distance
mDist = mDist / distance
edgeLength = 1 / distance
cell
{
[nDist, 0, mDist, 0]
[nDist, 0, mDist * cos(2*p/m), mDist * sin(2*p/m)]
length(edgeLength)
polygon(4, n)
}
cell
{
[nDist, 0, mDist, 0]
[nDist * cos(2*p/n), nDist * sin(2*p/n), mDist, 0]
length(edgeLength)
polygon(4, m)
}