Re: Exporting to a 3D file...
- To: mathgroup at smc.vnet.net
- Subject: [mg80169] Re: Exporting to a 3D file...
- From: Albert <awnl at arcor.net>
- Date: Tue, 14 Aug 2007 07:00:50 -0400 (EDT)
- References: <f9p4j3$qgq$1@smc.vnet.net>
Hi, > 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. If you run this you will see a small icon showing a Plus-sign within a circle in the upper right corner. If you click on that, a menu comes up from which you can select Paste Snapshot. This will generate some Code beginning with DynamicModule. Replacing DynamicModule with just Module will give code which evaluates to a normal Graphics3D-Object, which you can export as usual, e.g.: res=Module[{init=1,pr=False,rn=14,t=5},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]] Export["file.stl",res] Having written this, I really wonder whether there is no simpler way to do this.... hth, albert