迷路をつくってみる

スプリュームというサイトを見つけてＶＲ空間をつくってみました
http://splume.jp/_space_3d&mid=7257
表示後、ちょっと横に向くと迷路あります

＜制作方法＞
サイトに登録してみる

テキストでの作り方と雛型がのっています

迷路のデータは
迷路の七行プログラムでベースを作成してもらって
少し手で整形しました

エクセルで簡単なマクロ作って
迷路のデータ（テキスト）から箱を延々記述するＶＲＭＬ文をつくります

雛型に箱を記述する部分を追加します

最後にサイトに従って作成したテキストを配置して
説明文とかをかけば完成！


参考までにマクロの骨格部分です

Sub ボタン1_Click()
  l = 1
  For y = 1 To 23
    For x = 1 To 23
      s = Mid(Sheet1.Cells(y, 1).Text, x, 1)
      If s = "■" Then
        Cells(l, 2) = "Transform{ translation " + Str(y * 3 + 5) + " 0 " + Str(x * 3 + 5) + " children [Collision { children ["
        Cells(l + 1, 2) = "Shape {geometry Box { size 3 3 3 }appearance Appearance   {material Material { diffuseColor 0 1 0 }}} ]} ]}"
        l = l + 2
      End If
    Next x
  Next y
End Sub

迷路データ
●■■■■■■■■■■■■■■■■■■■■■●
＿＿＿＿＿＿＿＿■＿＿＿＿＿＿＿■＿＿＿＿＿■
●■■■■＿■■■■■＿■■■＿■＿■■■＿■
■＿＿＿＿＿＿＿＿＿＿＿■＿＿＿■＿＿＿■＿■
■＿■■■＿■＿■■■＿■＿■■■■■＿■＿■
■＿■○＿＿■＿■＿■＿＿＿○○○○○＿＿＿■
■＿■○■■■＿■＿■＿■＿■＿■■■＿■■■
■＿■○■＿＿＿＿＿■◎■＿■＿■＿■＿＿＿■
■■■○■■■＿■■■■■＿■■■＿■■■＿■
■＿＿○＿＿＿＿■◎＿＿＿◎■＿＿＿■＿＿＿■
■■■■■■■＿■＿●■●＿■＿■■■■■＿■
■＿＿＿＿＿■◎■＿＿◎■＿■◎＿＿■＿＿＿■
■＿■■■＿■■■＿●＿●＿■＿■■■■■■■
■＿＿＿＿＿＿＿＿◎■＿＿◎■＿＿＿＿＿＿＿■
■＿■○■＿■＿■■■■■＿■＿■＿■＿■＿■
■＿■○■＿■＿■＿■◎＿＿＿＿■＿■＿■＿■
■＿■○■＿■■■＿■■■■■■■＿■＿■■■
■＿■○■＿＿＿＿＿■○○○○○■＿＿＿＿＿■
■＿■○■■■＿■■■＿■■■＿■■●■■■■
■＿＿＿＿＿■＿＿＿＿＿■＿＿＿＿＿■＿＿＿■
■＿■■■＿■■■■■＿■■■■■＿■＿●＿■
■＿■＿＿＿＿＿＿＿■＿＿＿＿＿■＿＿＿■Ｇ■
●■■■■■■■■■■■■■■■■■■■■■●