Group Abstract Group Abstract

Message Boards Message Boards

3D rotate a MoleculePlot3D

Robert Mendelsohn
Posted 3 months ago
POSTED BY: Robert Mendelsohn
3 Replies
Sort By:

Probably simplest:

Tour3DVideo[MoleculePlot3D[Molecule["NC(=O)C[C@H](C(=O)O)N"],SphericalRegion->True]]
POSTED BY: Vitaliy Kaurov

Perfect! I did not know about this function - always something new to explore in Wolfram Language. Thanks Vitaliy!
POSTED BY: Robert Mendelsohn

Robert,

maybe this is what you are trying to achieve:

videoList = 
  With[{obj = PolyhedronData["Icosahedron"]}, 
   Table[Show[obj, SphericalRegion -> True, ViewVector -> {5 Cos[t], 5 Sin[t], 5}], {t, 0, 2 Pi, .05}]];
Export["rotmol.gif", videoList, "DisplayDurations" -> .05]
POSTED BY: Henrik Schachner
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard