Message Boards

GROUPS:

Staff Picks Game Development Image Processing Visual Arts Graphics and Visualization Wolfram Language Events & Media Video Processing

Kotaro Okazaki

Olympic rings with Wolfram Language's UnityLink

Kotaro Okazaki, Fujitsu Limited

Posted 2 months ago

1143 Views

3 Replies

18 Total Likes

Follow this post

Olympic rings with Wolfram Language's UnityLink by Kotaro Okazaki The Tokyo Olympic Games are about to begin. The athletes from more than 200 countries will compete. My family has some tickets, but we will be watching the games at home. Init In[]:= Needs["UnityLink`"]UnityOpen["OlympicRings"] Generating Regions In[]:= (domino)width=2.5;height=5.0;depth=1.0;coordinates={{0,0},{width,0},{width,depth},{0,depth}};polygon=Polygon[coordinates];line=BoundaryMeshRegion[{{0},{height}},Point[{{1},{2}}]];regionDomino=RegionBoundary[RegionProduct[BoundaryMeshRegion[polygon],line]]; In[]:= (floor)width=60.0;height=1.0;depth=85.0;coordinates={{0,0},{width,0},{width,depth},{0,depth}};polygon=Polygon[coordinates];line=BoundaryMeshRegion[{{0},{height}},Point[{{1},{2}}]];regionFloor=RegionBoundary[RegionProduct[BoundaryMeshRegion[polygon],line]]; Preparing the Project In[]:= (Directories)CreateUnityAssetDirectory[{"Meshes","Materials","Scenes","Prefabs"}]; In[]:= (Meshes)meshDomino=CreateUnityMesh[File["Meshes/domino"],regionDomino];meshFloor=CreateUnityMesh[File["Meshes/floor"],regionFloor]; In[]:= (Materials)whiteMaterial=CreateUnityMaterial[File["Materials/White"],CMYKColor[0,0,0,0]];blueMaterial=CreateUnityMaterial[File["Materials/Blue"],CMYKColor[1,.37,0,0]];greenMaterial=CreateUnityMaterial[File["Materials/Green"],CMYKColor[1,0,1,0]];blackMaterial=CreateUnityMaterial[File["Materials/Black"],CMYKColor[0,0,0,1]];redMaterial=CreateUnityMaterial[File["Materials/Red"],CMYKColor[0,.94,.65,0]];yellowMaterial=CreateUnityMaterial[File["Materials/Yellow"],CMYKColor[0,.34,.91,0]]; In[]:= (Prefabs)domino=CreateUnityGameObject["domino",meshDomino];CreateUnityRigidbody[domino];domino[["MeshCollider","convex"]]=True;domino[["SharedMaterial"]]=blueMaterial;prefabBlue=CreateUnityPrefab[File["Prefabs/PrefabBlue"],domino];domino[["SharedMaterial"]]=blackMaterial;prefabBlack=CreateUnityPrefab[File["Prefabs/PrefabBlack"],domino];domino[["SharedMaterial"]]=redMaterial;prefabRed=CreateUnityPrefab[File["Prefabs/PrefabRed"],domino];domino[["SharedMaterial"]]=yellowMaterial;prefabYellow=CreateUnityPrefab[File["Prefabs/PrefabYellow"],domino];domino[["SharedMaterial"]]=greenMaterial;prefabGreen=CreateUnityPrefab[File["Prefabs/PrefabGreen"],domino];DeleteUnityGameObject[domino] Setting the Scene In[]:= (Scene)CreateUnityScene[File["Scenes/OlympicRings"]]; In[]:= (Floor)name="Floor";go=CreateUnityGameObject[name,meshFloor];go[["MeshCollider","convex"]]=True;go[["Transform","Position"]]={-21,-1,-16};go[["SharedMaterial"]]=whiteMaterial; In[]:= (fiveRings)createring[parentname_,prefab_]:=Module[{parent,dominocnt,name},parent=CreateUnityTransform[parentname];dominocnt=16;Do[name="Domino_"<>StringPadLeft[ToString[i],3,"0"];CreateUnityGameObject[name,prefab,Properties{"Position"8{Cos[2(i-1)Pi/dominocnt],0,Sin[2(i-1)Pi/dominocnt]},"EulerAngles"{If[i1,20.0`,0.`],-(360/(2Pi))2(i-1)Pi/dominocnt,0.`},"Parent"parent}];,{i,dominocnt}]](blue)createring["DominoBlue",prefabBlue];(black)createring["DominoBlack",prefabBlack];dominosbase=FindUnityGameObject["DominoBlack"];dominosbase[["Position"]]={0,0,25};(red)createring["DominoRed",prefabRed];dominosbase=FindUnityGameObject["DominoRed"];dominosbase[["Position"]]={0,0,50}(yellow)createring["DominoYellow",prefabYellow];dominosbase=FindUnityGameObject["DominoYellow"];dominosbase[["Position"]]={20,0,12}(green)createring["DominoGreen",prefabGreen];dominosbase=FindUnityGameObject["DominoGreen"];dominosbase[["Position"]]={20,0,37} In[]:= (MainCamera)camera=FindUnityComponent[All,"Camera"];camera[["Transform","Position"]]={8,50,20};camera[["Transform","EulerAngles"]]={90.`,0.`,90.`};camera[["ClearFlags"]]="SolidColor";camera[["BackgroundColor"]]=GrayLevel[1];

POSTED BY: Kotaro Okazaki

Answer

3 Replies

Sort By:

Moderation Team

Moderation Team, WOLFRAM

Posted 2 months ago

-- you have earned *Featured Contributor Badge* Your exceptional post has been selected for our editorial column *Staff Picks* http://wolfr.am/StaffPicks and Your Profile is now distinguished by a *Featured Contributor Badge* and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team

Answer

Sander Huisman

Sander Huisman, University of Twente

Posted 1 month ago

Very nice! How do you 'push-over' the first domino?

POSTED BY: Sander Huisman

Answer

Kotaro Okazaki

Kotaro Okazaki, Fujitsu Limited

Posted 1 month ago

Thanks for the comment. Only the first domino located at the bottom of each circle is placed at the angle that tilts it to topple. So, when you click the Unity play button or evaluate WL UnityPlay[], the domino show will start. In the above code, it is the following. "EulerAngles" -> {If[i == 1, 20.0`, 0.`],-(360/(2 Pi))*2 (i - 1) Pi/dominocnt, 0.`}

POSTED BY: Kotaro Okazaki

Answer

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback

Enable JavaScript to interact with content and submit forms on Wolfram websites. Learn how »

Olympic rings with Wolfram Language's UnityLink

Init

Generating Regions

Preparing the Project

Setting the Scene