Re: Can't print all of the 4th Menger Sponge Iteration
- To: mathgroup at smc.vnet.net
- Subject: [mg78660] Re: Can't print all of the 4th Menger Sponge Iteration
- From: Zeno <zeno333 at mindspring.com>
- Date: Fri, 6 Jul 2007 03:27:24 -0400 (EDT)
- References: <f6iaca$28n$1@smc.vnet.net>
In article <f6iaca$28n$1 at smc.vnet.net>, Zeno <zeno333 at mindspring.com>
wrote:
> Here is the code I have for the 3rd iteration of the Menger Sponge.....
> _____________________________
>
> In[1]=pieces=Complement[Flatten[Table[{i,j,k},{i,0,2},{j,0,2},{k,0,2}],2]
> ,{{1,1,1},{0,1,1},{2,1,1},{1,0,1},{1,2,1},{1,1,0},{1,1,2},}]
>
> Out[1]={{0,0,0},{0,0,1},{0,0,2},{0,1,0},{0,1,2},{0,2,0},{0,2,1},{0,2,2},
> {1,0,0},{1,0,2},{1,2,0},{1,2,2},{2,0,0},{2,0,1},{2,0,2},{2,1,0},{2,1,2},
> {2,2,0},{2,2,1},{2,2,2}}
>
> In[2]=menger[cornerPt_, sideLen_, n_] :=
> menger[cornerPt + #1*(sideLen/3), sideLen/3, n - 1] & /@ pieces
>
> In[3]=menger[cornerPt_, sideLen_, 0] :=
> Cuboid[cornerPt, cornerPt + sideLen*{1, 1, 1}]
>
> In[4]=Graphics3D[menger[{0, 0, 0}, 1, 3]]
> ________________________________
>
> This prints out fine. the entire sponge prints out. However, when I
> change the last input line to this to make it a 4th iteration menger
> Sponge...
>
> Graphics3D[menger[{0, 0, 0}, 1, 4]]
>
> It displays the 4th iteration sponge on the screen fine...i can rotate
> it in real time etc..(its slow of course). When i try and print it out
> though, the bottom part of the Sponge does not print out...(there is
> also a dimmed out part at the bottom before it drops out completely.)
> Its not an ink issue, and the small, less complicated 3rd iteration
> prints out fine. If something were wrong with the code for the 4th
> iteration, then it would not display the 4th correctly, right?? it
> displays on the screen fine, just will not print out al of it on my
> printer. i am using the new Kodak 5300 AIO printer. I tried making the
> default output size in bytes in the Preferences larger than the defaul
> 1 Megabyte, but when i do that, it does not print out at all, just
> hangs the printer. is the another setting in Mathematica 6.0 that
> controls how much of a complex large graphic can be printed???
I have a followup up to my posting....
I am using OS X 10,4,10. When i save the 4th Menger Sponge as a PDF, it
makes the PDF, but cuts off part of it, like whan i try to print it. So
making PDFs even without printing, it still does not handle all of the
image. In OS X, PDFs are related and interated with all printing
processes.....
So is there a limitation to how big a PDF can be made within OS X thats
realted to not being able to print it out also???
>