Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Exporting to a 3D file...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80110] Exporting to a 3D file...
  • From: Carlo Sammarco <csammarco at hotmail.com>
  • Date: Mon, 13 Aug 2007 04:24:59 -0400 (EDT)

Hi all,

I'm not an avid Mathematica user and would appreciate any help with this...

I've downloaded the notebook file for the demonstration project for 3D Totalistic Cellular Automata. I'm now trying to export the resulting model as an stl.  using:

Export["MyFirstTry.stl", 3DimensionalCA] 

This is what I would do if I were dealing with a 3DPlot. But obviously this isn't a 3DPlot. When I try to export, it complains because there is more here than just a 3D object (I assume the sliders and other buttons are the hangup among other things). Any ideas on how to export the 3d subject while keeping the functionality of everything else intact so that I can explore different iterations using the original interface? 

Here is the code...


Manipulate[
 Graphics3D[{Cuboid /@ 
    Position[
     CellularAutomaton[{rn, {2, 1}, {1, 1, 1}}, 
      If[pr, Normal[
        SparseArray[
         Flatten[Table[{16, 16, Floor[(53 - init)/2] + i} -> 1, {i, 
            init}], 1], {33, 33, 53}]],
       {{{Table[1, {init}]}}, 0}], {{{t}}}], 1]}, Boxed -> False, 
  PlotRange -> If[pr, {{0, 33}, {0, 33}, {0, 53}}, All],
  PlotRangePadding -> 1, ImageSize -> {400, 300}, 
  SphericalRegion -> True],
 {{rn, 14, "rule number"}, 2, 200, 4, Appearance -> "Labeled"},
 {{t, 5, "steps"}, 0, 15, 1, Appearance -> "Labeled"},
 {{init, 1, "initial height"}, 1, 10, 1, 
  Appearance -> "Labeled"}, Delimiter,
 {{pr, False, ""}, {True -> "fixed view", False -> "zoom to fit"}},
 AutorunSequencing -> {{1, 20}, {2, 15}, {3, 10}, {4, 5}}]


Copy and paste should run fine as is.

I appreciate any help,

TIA

Carlo


  • Prev by Date: Re: Reading Coordinates from Plot
  • Next by Date: Re: Re: Increasing scattered subsequence
  • Previous by thread: What is the most ieeficient code for Simultaneous equaitons??
  • Next by thread: Re: Exporting to a 3D file...