Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
QuantumMob`DrawingTools`
Patches  |
|
| | ||||
Details and Options
Examples
(1)
Basic Examples
(1)
In[1]:=
$n=30;$size=1;$radius=1.8;transform[angle_]:=RotationTransform[angle,{0,0,1}];vertex[angle_,pnt_]:=transform[angle][{$radius,0,0}+pnt*$size];edge[pnt_]:=Table[vertex[t*Pi,pnt],{t,0,3/2,2/$n}]
In[2]:=
data={edge@{1,0,1},edge@{1,0,-1},edge@{-1,0,-1},edge@{-1,0,1}};
In[3]:=
torus=
[data];Graphics3D[{EdgeForm[],Cyan,torus},BoxedFalse,ImageSizeMedium]
 | Patches |
Out[3]=
In[4]:=
torus=
[data,"Cyclic"{True,False}];Graphics3D[{EdgeForm[],Cyan,torus},BoxedFalse,ImageSizeMedium]
| Patches |
Out[4]=
In[5]:=
torus=
[data,"Cyclic"{False,True}];Graphics3D[{EdgeForm[],Cyan,torus},BoxedFalse,ImageSizeMedium]
| Patches |
Out[5]=
In[6]:=
torus=
[data,"Cyclic"{True,True}];Graphics3D[{EdgeForm[],Cyan,torus},BoxedFalse,ImageSizeMedium]
| Patches |
Out[6]=
In[7]:=
torus=
[data,"Cyclic"{True,False},"ClosedCap"True];Graphics3D[{EdgeForm[],Cyan,torus},BoxedFalse,ImageSizeMedium]
| Patches |
Out[7]=
 |
|
 |
|
""