GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},15,"FinalState"]]
In[]:=
Out[]=
GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},12,"FinalState"]]
In[]:=
Out[]=
ExportableGraph3D[%]
In[]:=
Out[]=
$Version
In[]:=
12.1.0 for Mac OS X x86 (64-bit) (December 12, 2019)
Out[]=
Directory[]
In[]:=
/Users/sw
Out[]=
NotebookDirectory[]
In[]:=
/Users/sw/Dropbox/Physics/WorkingMaterial/2019/
Out[]=
$VRDirectory="/Users/sw/Dropbox/Physics/VR/";
In[]:=
SetDirectory[$VRDirectory]
In[]:=
/Users/sw/Dropbox/Physics/VR
Out[]=
Export["test.stl",%6]
In[]:=
test.stl
Out[]=
ExportableGraph3D[plot_]:=plot/.{Line[s_]Tube[s,.05],Point[s_]Sphere[s,.1]}
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},8,"FinalState"]]
In[]:=
Out[]=
Export["test.stl",ExportableGraph3D[%10]]
In[]:=
test.stl
Out[]=
SendMessage["SMS","done"]
In[]:=
Out[]=
GraphPlot[Rule@@@WolframModel[{{x,y}}{{x,y},{x,z},{w,y},{w,z}},{{0,0}},6,"FinalState"]]
In[]:=
Out[]=
vrcopy[filepath_]:=CopyFile[filepath,RemoteFile[URL["sftp://tremu/c:\\Users\\sw\\Documents\\VR Model Viewer\\Models\\"<>FileNameTake[filepath]],Authentication<|"Username""sw","SSHKey"ReadString[File["/Users/sw/.ssh/id_rsa"]]|>]]
In[]:=
RandomChoice[FileNames[]]
In[]:=
g12.fbx
Out[]=
vrcopy["g12.fbx"]
In[]:=
URL
Out[]=