(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 52237, 1328]*) (*NotebookOutlinePosition[ 56767, 1465]*) (* CellTagsIndexPosition[ 56633, 1458]*) (*WindowFrame->Palette*) Notebook[{ Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgLNmh4Ool00gOoJg]c_@05Ool01GOoJke[NfnLOmh0g7oo001YOol047?oDeU6DTV]CHa1cSIc?YAJ mgNmOomSW56<@NlfLe[g0Woo00U_oe=U8nU5lGMmh0fWoo001XOol00f_NH:El0005O000 16R4=Li2eVIB0g`000EXHcHaKke__FAS00El0004H:D^4DjDMmkIOol006Moo`03Nomh07`000Ql0003 >Q1l07`000=l0003CLeO_G`000Ql0003Nkmo_W^oNmik_gnoNmio_g_OOmmkgWnoOmmkg`Aog`03NmmoggoO009og`03OomoggoO065oo`00 001000SP@00Hd4CP@=10h43PA=102>1001C@@>10h43P@=1000SP@0014h43@@>10d43P@=14h43@@>10d43P@=1000SP@00Ld43P@=14h43@@>10d4@02>10013@@>10d 43P@0S@@001000SP@00Td43P@>10d43PA>10d43P@=1000cP@00Ld43P@=10h43@@>10d4002 >1001C@@>10h43P@=1000SP@00@d43P@>10d408h4006=10h43@@>10d4CP?1G`000O00017`0 00I41W`0O01l05`W?2h5O0000f`2O01l0003O0001B@692dlDT1a?7800T2B00A0Td2bA;=4/`94d`03 A?A8m4Sd00995003CAE9=DdD009=E@03DEIAME5e009AMP05DIIEUUFFEIME]P02EKL015WGEMMIeeGG 15Wh00aN65XHGQQN65hhGQQN>F8hHUUR>69IGUT3HUT0369iHWYVNF9jIWUVNV:IIYYVNVJJI[YZVP9V ^P06J[]Z^V[KJ[]ZffkK0f[K00=Znf[lK_/00Vkk0VlL00=_6flLK_`00WA=A4ddBcA=A0e5B_O05d0g@SN05TB3Cg:?QP 9@Al0006:6X`eEB?B;8`nW0S17`000BAA=5Ddd009==@03DEE=EU5E00=A MP9EUP0=DIIEUeFgEKII]eGGFMMEeeggFOMIf5hHFOP00ehH00MN>5hIGSQN>68iHUUN>@03HUT01f9i IUURNFIjHWYVVFIj00AVVP09IY]V^VZJI[]Z^VZkI[]ZfVZj00EZf`07K_]ZnfkLJ_]^nfklK_/00Vkl 00I_6flLKaa^o7?LlecSF?=I8/dAY00El0005 ;;50e42d@=@he`04O00017006914dcCi17`000Id01b^A?===DTECC@2CCD01E5ECEEAEE5fDGD00U5f 0UFF00aE]UFgEKII]eGGFKQEeeWhFOMIn5ggFOP4GQP2GST2HSP6HUT01fIjHUUVNF9jIWURVVIi009V VP05JYYVVfJjJYYV^`02J[X00fZkJ]]Z^P03J]/02fkKJ]]^nf[KK_]Zo6kkJaa^o6kkK_`00VlL00Uc 6flLLaa_?7CaBGQQVVUWGIWYEUUVgIWYIf0=RF@0>IYYE]ddeIYYRFEWG@794m5Vg?59= EFJJGQUN60=RF@0:HSTlLTBcIYYIn68iGQQ=EFZjFOP2HST06D2C@99I]fJjFMQRNEgh?98h46JJMii^ fflLB?AAUVIjIYYAMT1bEGIVVUWGIYYEUT2B00=4/`03A=@leFA800El0006>6/le4RdA==0]3cE17`0 00EH0b2>A;@lmg0T00Al00046:e954dECA@3CCD07deEDEEAEU5eDEIAUUFFDIIEUeFfEIME]eGGFKME eeWgFMMImeghFOQJ65hGGOQN65hiGQQR>5iIHSUNF68i00=RF@08HWYVFF9iHWYRNFIjIYUVNP=VVP03 I[YVVVJk009Z^P05I[]Z^fJjJ]]Z^`05J]/01FkkJ]a^nfkkK_`00Vkk00=_76kkKa`00flL00Ec76lL Laac?6lL009c?00=Leec?7=LLcecG7114ddde009oo`07A;=^ o7oOA==4/d2BBCD00Woo00=8m4BcDIH00Woo00U954BB@9=8lehIOomgGDCC>1000Woo00i8e42BHUUo oe5FOomRFDCC@9=4dehIOomkWT2c0dBc00A4ddBc?=I/A`Al0007>4LEhHGST2HST00eiIHSURF@02HUT0269jIWURNVIiHWYVVVJI IWX4IYX01fZjIY]V^VZjJ[]ZffZj009Zf`0EJ[]ZffkKJ_]ZffkkJ_a^g6kkK_a_76kkKaa^o7150/caAHSUooeFF?790DT2BOomEUS@@DEERNS`aA;35AMG15_73`a?79EUWooIWTh11gOCPA@;=4/c@?OomZVSPA@;3@@FMMoocPa@790/SPAGQQ^fd2b IYXl=Ml07`000=l 000316/PSR2a00Al0006K00TdDdEBAA==Ddd0Tde00Y=EE5FCEEAEU5eDGIEUU6FEIME]P=E]`9Ie`06 EMMIeeWgGOQIn5Wg0ehH015N>EhHGSQR>EiHHSURFEiIHUURNF9IIWURFVIiHWYVNVIi00EVVP09J[YV VfZjJ[YZ^fJkJ[YZ^fJk009Zf`035k_SaB?34`46ZkOolh4D2c@;90TWooFMLlLP02A;<013PaNgioocPA0TBc038h 4GooIYXlDDBc>11oofIj?554/dSd?790TSaALce0TcaAHUYoogMn@78h154 /gooEKI0LTBc?35c?Goo>114ddBcA=68iHSUNF68i169I00ERNVIiHWUVNF:J009VNP03IYUVVVJK009VVP05J[YV^fZj I[YZ^`03J]/016ZjJ]]ZffkK0V[K00I^nfklK_]ZnfklKa/2K_`00flKKaac7002Ka`01W114ddBc>15oof9J?554ddBc?55Z^goo<0llLT1b =0moogMM>354/cPAOom^o30??55gGCaAA;=0LVIjEIHd47^NOom8m6kk=11R>Goo>354TSaBOom_775hH HSUN>5hiHST01F9I00QVNV9iIWYRNVIiIWYRVFIj0fJJ00UV^VZkIYYZ^fZjJ]YZ^fZjJ[/00V[K00a^ ff[KJ_]^nf[KK_aZnfklKa]^o6kkLa`4Ka`01g11oog^o>354/cPa Okm0LSQAOomZfc`a0094/`0:=11oogMM>354/dCC?59In7ooGOP2HUT0K_aoocP@A;=4d`02A;<0342cA;=M/A`Ul000>D4Lm5DceBAA=54TECCA==DeECCEAEDeEDGIAM@9AMP9EUP05DIMI ]eFfFMME]`02FML015WgFOQImeWh0UhH00UMmehHGQQN>EhHHUUR>5hiGUT00f9I00MRNF9IIUYRNFIj HWYVN@04IYX01fJjJYYV^VZkI[YV^fZj009Zf`05J[YZff[KJ]]^f`02J]/04FkkJ_]^o6kkJ_]^o6lL K_]_77;lKaac76llLaa_77E6F>11ooeWG?594ddBc?35g OWoo>1000TBc02M0LU5EOomIeddeDII8m6klOolh44Bc?55Z^gooA==N67oo?550/dBc@79^o3P@OomR FC`aDIIRFD2COom9541cA;94/fkl;0ioog^n>1400TBc00E0LTdeOom==D2B0094/`0:?79Mn7oo=11A MWooA;=0TTBcA=<2A;<024CC@79R>E6F>11ooeWG?782A;<00ccFE8il0007O0001E1Y>=I4]4BcA=<0 0dBc00@03HUQR>F9I00=RF@07IWYRNVIiHWYV NFJJIWX00VJJ00YZVVJJIYYVVfJjJ[]Z^VJkJ[YV^`9Zf`031ooc@?KaaoocPAA;=0/dBbK_a=5GooB?A0TT2CA;5hiHUUN>@06HUT01fIi HWYVNF9jIYUVNVJI009VVP0:IY]Z^VJkJYYV^VZkJ[YZffZjJ[/4J]/016kkJ]]^nf[k0Vkl00A^nfkl Kaa^n`E_7004Lcac77GooB?A0TT1bHUUIn5ghOollD@94/`0T?59IegooOolh44SdDCDlLCabGQQoocaA@;=0LTde >35oof9J?554/d2BDEEoodTD@98lTUEfOom9541c@990LTSDA==0TdCC0Woo02Q0TT2C@99EUVIjOomI md1AA;=0TTBcMgeooeFg?35EUcaA@;?LleD2dA;=0d`03A;<00dCCA;=0/`02 A;<023cD?=HheccF??LleTCeA=<3B?@014dDBAE==DdD0Tde01E=EE5ECEEAMU5EDGIAUUFFDIME]UFG EKMIeUFgFMMEeeWhFMMIn5hHFOL00ehH00AN>5hHGSUN>09R>@03GUQRFF9I009RF@06IWYRNV9IHWYV VFIj16JJ00YV^VJJJYYV^VZkJ[YV^fZkJ]]Z^P=Zf`05K]]Zff[KJ]]^o002K_/00f[lKa]^n`02Ka`0 17;lKaac?6lL0W10lLWooB=@d 44BcOom4/cPAA==ogbP=OomgGC0@A;34017oo@;=4TR`>0Woo 00Pl11oog^NCEEooe5f@994/dCC0dBc00E0ddBcA;=4/dCC00=4/`0< A==4/dBcA;=4ddBcA==4/dCCA;=0/dBd0TCC00i8e4SdA?=8m4TDCAA954TeCCEA=DeEDEEAEU5e0U5f 00EEMU6FEIIE]eFf009E]`03FMMEeeWG009Im`9In003GOQJ65hH009N6006GSUN668iGSQRFF8i0V9I 00URNF9IIUURNFIjHWUVNV:IIWX016JJ00MV^VJKJ[YV^VZkJ[YZ^`06J]/00fkkJ]]^n`02J_/01Fkl K_]^o6lLK_/00VlL00ec76lLLca_76llLca_?7114/dCC?79E]goOOom953ab0TBc00llDFZkNihh DCaBHUUoofIjK_]oog^NHWUoog^nGQP00Woo00A^o4CCCAEgO@9oo`03HYU95GMM009oo`07J[YZ^goo Oolh44SdK_`00Woo00Dh4DBcA;=0TTTD009oo`0EhH HSUN>F9IGSQN>@02HUT01VIIHUURNFIjHWYRN@9VNP03IYUVNVZJ00=VVP0?J[YVVfZjI[YZ^f[KI[YZ ^f[KJ[]ZnfkKJ]]^nf[K009^o007J_]^nfklKa]^o6lLKa/00VlL00Ec76llLaa_?GMgegOW^MMgigWG^NMiikWG^NMkikWW^nNkmo _P9k_P07Nkmk_W_ONkiogg_NNml00goO00=oogoOOol0EGoo00002TBcA==4/dBc@;90TehhOomkWSPa 0dBc00Dd47ooOomc7D2B0094/`0V@;=0/TdD@9=4/d2BDGI8ldCD>354ddSdBAAA=E5f@;=0TUWG@;=8 m5FF?558deFGB==EUSaaA;=E]eEfCEE4TT2CA==E]dCCA;=0/P=4/`04@794ddSdEKL2A;<05dCC@798 m4BbA;=0TU5EBAA8m3ab?59=54BcDGI4/eFg@794/eVgA;=0/c`aA;800UhH00Y4/cPaA;=4dd2c@998 m3aAB?A0LP=4/`05A==4/dBcA;=4d`03A;<01DCCA;=4/dBcA=<00dBc00=4ddBcA;<014Bc00A4ddCD B=A8l`98m003BAA95DdD00===@03CEEAEU5E009AMP0=EGIAMU6FEIIE]eFFFKME]UVgEMQIeeWgFML0 0UWh00=J65ghGQP00UhH00AN>EhhHSQR>@9RF@0;GUURFF9IHUUVFV9iIWUVNV9iIWYRVP03IYX026Jj JYYV^fZjI[]Z^VZkJ[X2J]/02FZkJ]]Zff[KK_]ZffkkJ_]^n`02K_`01VlLK_a_6fklKaac709_700; Laac?75hhHSURF5iI169I00MRNVIjHWUVNV9iIYYVNP04IYX01VJjJY]Z^VJkJ[YV^`9Z ^`0@J]YZff[KK]]ZffkkJ]]^nf[lK]]^o6[lK_]_76klKa/2Ka`01WF8iHUUN>@=RF@06IUURNFIJHWUVNV:I0VIj00UVVFJJIYYZVVJjIYYV ^VJkJ[X00VZk00=ZfV[KJ[/00f[K01A^nf[KK_aZffkkK_a[6fkkK_a_6flLLaa_77<0h2;0h0130>;0h/ 3S0>0R`>00@`3R`>;0h`3P8/3P04<0h/3R`><0h2;0h0130>;0h/3S0>0R`>00@`3R`>;0h`3P8/3P04 <0h/3R`><0h2;0h0130>;0h/3S0>0R`>00@`3R`>;0h`3P8/3P04<0h/3R`><0h2;0h0130>;0h/3S0> 0R`>00@`3R`>;0h`3P8/3P04<0h/3R`><0h2;0h0130>;0h/3S0>0R`>00@`3R`>;0h`3P8/3P04<0h/ 3R`><0h2;0h0130>;0h/3S0>0R`>00@`3R`>;0h`3P8/3P04<0h/3R`><0h2;0h0130>;0h/3S0>0R`> 00@`3R`>;0h`3P8/3P05<0l`3S0?<0ld3`03=102>103>342?5400cab@790TP02@9800dBc@;=4d`02 A=<2B?@3BA@04TddBCE==DeDCEEAEDeeDEIAME6FDGIEUU6FEKIE]eFfEKMIeP9Ee`07FMMImeWgFOQI meghFQP015hH0ehh00AR>EiHHUUNF@=RF@9RN@05IWURNVJIIWYVV@03IYX3I[X016ZkI[YZ^f[J0V[K 00YZfV[KJ_]^nf[kK_]^o6lKK_a_6`=_700KLca_?7"], "SmallText", PageWidth->Infinity, ShowCellBracket->False, CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, ImageSize->{350, 24}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell["Polyhedron Explorer", "Title", PageWidth->Infinity], Cell[" ", "SmallText", ShowCellBracket->False, CellMargins->{{0, 0}, {0, 0}}, FontSlant->"Italic", FontColor->RGBColor[0.571389, 0.19675, 0.570504], CellTags->"ThePolyhedronDemoStatusCell"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.02069 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations -0.288496 1.57608 -0.276869 1.57608 [ [ 0 0 0 0 ] [ 1 1.02069 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath .67 .732 .896 r .69239 .33857 m .22139 .19309 L .38626 .37392 L F 0 g .5 Mabswid .22139 .19309 m .38626 .37392 L s .38626 .37392 m .69239 .33857 L s .889 .75 .702 r .0927 .7127 m .38626 .37392 L .22139 .19309 L F 0 g .38626 .37392 m .22139 .19309 L s .889 .75 .702 r .0927 .7127 m .31423 .67404 L .38626 .37392 L F 0 g .0927 .7127 m .31423 .67404 L s .31423 .67404 m .38626 .37392 L s .675 .526 .675 r .579 .83352 m .38626 .37392 L .31423 .67404 L F 0 g .38626 .37392 m .31423 .67404 L s .31423 .67404 m .579 .83352 L s .675 .526 .675 r .579 .83352 m .69239 .33857 L .38626 .37392 L F 0 g .69239 .33857 m .38626 .37392 L s .762 .372 .314 r .55326 .99639 m .31423 .67404 L .0927 .7127 L F 0 g .31423 .67404 m .0927 .7127 L s .762 .372 .314 r .55326 .99639 m .579 .83352 L .31423 .67404 L F 0 g .55326 .99639 m .579 .83352 L s .579 .83352 m .31423 .67404 L s .67 .732 .896 r .69239 .33857 m .44564 .0243 L .22139 .19309 L F 0 g .44564 .0243 m .22139 .19309 L s .67 .732 .896 r .69239 .33857 m .75204 .12713 L .44564 .0243 L F 0 g .69239 .33857 m .75204 .12713 L s .75204 .12713 m .44564 .0243 L s .675 .526 .675 r .579 .83352 m .81772 .62235 L .69239 .33857 L F 0 g .579 .83352 m .81772 .62235 L s .81772 .62235 m .69239 .33857 L s .273 .313 .722 r .97619 .62262 m .69239 .33857 L .81772 .62235 L F 0 g .69239 .33857 m .81772 .62235 L s .81772 .62235 m .97619 .62262 L s .273 .313 .722 r .97619 .62262 m .75204 .12713 L .69239 .33857 L F 0 g .75204 .12713 m .69239 .33857 L s .244 0 .208 r .81199 .86847 m .579 .83352 L .55326 .99639 L F 0 g .579 .83352 m .55326 .99639 L s .55326 .99639 m .81199 .86847 L s .244 0 .208 r .81199 .86847 m .81772 .62235 L .579 .83352 L F 0 g .81772 .62235 m .579 .83352 L s .244 0 .208 r .81199 .86847 m .97619 .62262 L .81772 .62235 L F 0 g .81199 .86847 m .97619 .62262 L s .97619 .62262 m .81772 .62235 L s .889 .75 .702 r .0927 .7127 m .22139 .19309 L .02381 .39994 L F 0 g .22139 .19309 m .02381 .39994 L s .02381 .39994 m .0927 .7127 L s 0 0 0 r .11527 .37689 m .22139 .19309 L .44564 .0243 L F 0 g .22139 .19309 m .44564 .0243 L s 0 0 0 r .11527 .37689 m .02381 .39994 L .22139 .19309 L F 0 g .11527 .37689 m .02381 .39994 L s .02381 .39994 m .22139 .19309 L s .762 .372 .314 r .55326 .99639 m .0927 .7127 L .22935 .92214 L F 0 g .0927 .7127 m .22935 .92214 L s .22935 .92214 m .55326 .99639 L s 0 .109 .635 r .22935 .92214 m .0927 .7127 L .02381 .39994 L F 0 g .22935 .92214 m .0927 .7127 L s .0927 .7127 m .02381 .39994 L s .273 .313 .722 r .97619 .62262 m .93869 .29364 L .75204 .12713 L F 0 g .97619 .62262 m .93869 .29364 L s .93869 .29364 m .75204 .12713 L s .709 .208 .046 r .73458 .3046 m .75204 .12713 L .93869 .29364 L F 0 g .75204 .12713 m .93869 .29364 L s .93869 .29364 m .73458 .3046 L s .709 .208 .046 r .73458 .3046 m .44564 .0243 L .75204 .12713 L F 0 g .44564 .0243 m .75204 .12713 L s .633 .775 .949 r .81199 .86847 m .55326 .99639 L .22935 .92214 L F 0 g .81199 .86847 m .55326 .99639 L s .55326 .99639 m .22935 .92214 L s 0 .109 .635 r .22935 .92214 m .02381 .39994 L .11527 .37689 L F 0 g .02381 .39994 m .11527 .37689 L s .939 .801 .68 r .81199 .86847 m .93869 .29364 L .97619 .62262 L F 0 g .93869 .29364 m .97619 .62262 L s .97619 .62262 m .81199 .86847 L s .709 .208 .046 r .73458 .3046 m .40326 .12055 L .44564 .0243 L F 0 g .73458 .3046 m .40326 .12055 L s .40326 .12055 m .44564 .0243 L s 0 0 0 r .11527 .37689 m .44564 .0243 L .40326 .12055 L F 0 g .44564 .0243 m .40326 .12055 L s .40326 .12055 m .11527 .37689 L s 0 .109 .635 r .22935 .92214 m .11527 .37689 L .25627 .72891 L F 0 g .11527 .37689 m .25627 .72891 L s .25627 .72891 m .22935 .92214 L s .633 .775 .949 r .81199 .86847 m .22935 .92214 L .25627 .72891 L F 0 g .22935 .92214 m .25627 .72891 L s .939 .801 .68 r .81199 .86847 m .73458 .3046 L .93869 .29364 L F 0 g .73458 .3046 m .93869 .29364 L s .939 .801 .68 r .81199 .86847 m .64686 .68965 L .73458 .3046 L F 0 g .81199 .86847 m .64686 .68965 L s .64686 .68965 m .73458 .3046 L s .633 .775 .949 r .81199 .86847 m .25627 .72891 L .64686 .68965 L F 0 g .25627 .72891 m .64686 .68965 L s .64686 .68965 m .81199 .86847 L s .666 .512 .666 r .25627 .72891 m .40326 .12055 L .11527 .37689 L F 0 g .40326 .12055 m .11527 .37689 L s .11527 .37689 m .25627 .72891 L s .666 .512 .666 r .25627 .72891 m .73458 .3046 L .40326 .12055 L F 0 g .73458 .3046 m .40326 .12055 L s .666 .512 .666 r .25627 .72891 m .64686 .68965 L .73458 .3046 L F 0 g .25627 .72891 m .64686 .68965 L s .64686 .68965 m .73458 .3046 L s 0 0 m 1 0 L 1 1.02069 L 0 1.02069 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", PageWidth->Infinity, CellFrame->{{16, Inherited}, {Inherited, Inherited}}, CellMargins->{{Inherited, Inherited}, {0, Inherited}}, ImageSize->{250, 250}, ImageMargins->{{75, 0}, {0, 2}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgES0F@00001W000mF<1F000006L0 041H`5<00000IP00A5S0D000001V0017F<1=000006D004]H`4X00000I@00CES0B000001T00000e8D 0000001>F<15000006<000AB508004mH`4800000HP001e8D0P00CeS0@000001Q000:DQ@2001>F<0o 000005l000iB5003001H`5S004aH`3h00000GP00458D0P00CUS0?000001M000CDQ@2001=F<0k0000 05`001IB508004aH`3X00000F`006E8D0P00BeS0>@00001J000LDQ@00`00F<1H`019F<0h000005T0 01iB508004YH`3L00000F0008E8D0P00BES0=P00001F000UDQ@20019F<0d000005D002QB508004QH `3<00000E000:e8D00<005S0F<00AUS0US06P00000k001[DQ@2000i F<0I000003X006iB508003QH`1P00000>@00LE8D0P00=eS05`00000h001dDQ@00`00F<1H`00fF<0E 000003L007IB508003MH`1@00000=P00NE8D0P00;US06`00000e001lDQ@2000LF<0@0008McDC0000 03<0081B508000UH`14001Qg=A<00000DQ@00`00McEg=@0dMcDA00000280091B5003001g=GLe03Ag=A40 00008@00TE8D00<007LeMcD0=7Le4@00000P002ADQ@00`00McEg=@0eMcDA000001l0099B5003001g =GLe03Eg=A4000007@0000<0L`00DQ@0TE8D00<007LeMcD0=GLe4@00000I000607<00`00DQAB502? DQ@00`00McEg=@0eMcDA000001D000X0L`03001B558D08mB5003001g=GLe03Ig=A0000004P003P1c 00<0058DDQ@0SE8D00<007LeMcD0=gLe4000000>000B07<00`00DQAB502=DQ@00`00McEg=@0gMcD@ 000000X001H0L`03001B558D08eB5003001g=GLe03Mg=A00000020006@1c00<0058DDQ@0S58D00<0 07LeMcD0=gLe40000009000H07<00`00DQAB502;DQ@00`00McEg=@0hMcD@000000T001T0L`03001B 558D08YB5003001g=GLe03Qg=A0000002P00601c00<0058DDQ@0RU8D00<007LeMcD0>7Le4000000: 000H07<00`00DQAB502:DQ@00`00McEg=@0hMcD@000000X001T0L`03001B558D08UB5003001g=GLe 03Ug=@l000002`00601c00<0058DDQ@0R58D00<007LeMcD0>WLe3`00000;000I07<00`00DQAB5027 DQ@00`00McEg=@0jMcD?000000/001T0L`03001B558D08MB5003001g=GLe03Yg=@l000002`006P1c 00<0058DDQ@0QU8D00<007LeMcD0>WLe3`00000;000J07<00`00DQAB5025DQ@00`00McEg=@0kMcD? 000000`001T0L`03001B558D08EB5003001g=GLe03]g=@l0000030006P1c00<0058DDQ@0Q58D00<0 07LeMcD0>gLe3`00000<000J07<00`00DQAB5024DQ@00`00McEg=@0lMcD>000000`001/0L`03001B 558D08=B5003001g=GLe03ag=@h000003@006P1c00<0058DDQ@0PU8D00<007LeMcD0?GLe3P00000= 000J07<00`00DQAB5022DQ@00`00McEg=@0mMcD>000000d001/0L`03001B558D085B5003001g=GLe 03eg=@h000003@006`1c00<0058DDQ@0PE8D00<007LeMcD0?GLe3P00000=000L07<00`00DQAB501o DQ@00`00McEg=@0nMcD>000000h001/0L`03001B558D07mB5003001g=GLe03ig=@h000003P006`1c 00<0058DDQ@0Oe8D00<007LeMcD0?WLe3P00000>000L07<00`00DQAB501nDQ@00`00McEg=@0oMcD= 000000h001`0L`03001B558D07eB5003001g=GLe041g=@d000003`00701c00<0058DDQ@0O58D00<0 07LeMcD0@7Le3@00000?000L07<00`00DQAB501lDQ@00`00McEg=@10McD=000000l001`0L`03001B 558D07aB5003001g=GLe041g=@d000003`007@1c00<0058DDQ@0Ne8D00<007LeMcD0@7Le3@00000? 000M07<00`00DQAB501jDQ@00`00McEg=@11McD=0000010001d0L`03001B558D07UB5003001g=GLe 045g=@d0000040007@1c00<0058DDQ@0NE8D00<007LeMcD0@GLe3@00000@000M07<00`00DQAB501i DQ@00`00McEg=@12McD<0000010001h0L`03001B558D07MB5003001g=GLe04=g=@`000004@007@1c 00<0058DDQ@0Me8D00<007LeMcD0@gLe3000000A000N07<00`00DQAB501fDQ@00`00McEg=@13McD< 0000014001h0L`03001B558D07IB5003001g=GLe04=g=@`000004@007`1c00<0058DDQ@0ME8D00<0 07LeMcD0@gLe3000000B000N07<00`00DQAB501dDQ@00`00McEg=@14McD<0000018001h0L`03001B 558D07AB5003001g=GLe04Ag=@`000004P007`1c00<0058DDQ@0Le8D00<007LeMcD0A7Le3000000B 000O07<00`00DQAB501cDQ@00`00McEg=@15McD;000001800200L`03001B558D075B5003001g=GLe 04Ig=@/000004`007`1c00<0058DDQ@0LE8D00<007LeMcD0AWLe2`00000C000O07<00`00DQAB501a DQ@00`00McEg=@16McD;000001<00200L`03001B558D071B5003001g=GLe04Ig=@/000004`00801c 00<0058DDQ@0L58D00<007LeMcD0AWLe2`00000D000P07<00`00DQAB501^DQ@00`00McEg=@17McD; 000001@00200L`03001B558D06iB5003001g=GLe04Mg=@/000005000801c00<0058DDQ@0KU8D00<0 07LeMcD0AgLe2`00000D000Q07<00`00DQAB501]DQ@00`00McEg=@18McD:000001@00240L`03001B 558D06aB5003001g=GLe04Ug=@X000005@008@1c00<0058DDQ@0Je8D00<007LeMcD0BGLe2P00000E 000Q07<00`00DQAB501[DQ@00`00McEg=@19McD:000001D00240L`03001B558D06]B5003001g=GLe 04Ug=@X000005@008P1c00<0058DDQ@0JU8D00<007LeMcD0B7Le2`00000F000Q07<00`00DQAB501Y DQ@00`00McEg=@19McD;000001H00280L`03001B558D06QB5003001g=GLe04Qg=@`000005P008P1c 00<0058DDQ@0J58D00<007LeMcD0AgLe3@00000F000R07<00`00DQAB501XDQ@00`00McEg=@17McD= 000001H002<0L`03001B558D06IB5003001g=GLe04Mg=@h000005`008P1c00<0058DDQ@0IU8D00<0 07LeMcD0AWLe3`00000G000S07<00`00DQAB501UDQ@00`00McEg=@16McD?000001L002<0L`03001B 558D06EB5003001g=GLe04Eg=A0000005`008`1c00<0058DDQ@0IE8D00<007LeMcD0A7Le4@00000H 000S07<00`00DQAB501SDQ@00`00McEg=@15McDA000001P002<0L`03001B558D06=B5003001g=GLe 04Ag=A8000006000901c00<0058DDQ@0HU8D00<007LeMcD0@gLe4`00000H000T07<00`00DQAB501R DQ@00`00McEg=@13McDC000001P002D0L`03001B558D061B5003001g=GLe04=g=A@000006@00901c 00<0058DDQ@0H58D00<007LeMcD0@WLe5@00000I000T07<00`00DQAB501KDQ@60014McDE000001T0 02D0L`03001B558D051B50X000I?7@03001g=GLe041g=AH000006@009@1c00<0058DDQ@0AE8D2`00 4DlM00<007LeMcD0?WLe5`00000J000U07<00`00DQAB500jDQ@:000MCad00`00McEg=@0mMcDG0000 01X002D0L`03001B558D02mB50/002Q?7@03001g=GLe03]g=AP000006P009@1c00<0058DDQ@0958D 2`00=4lM00<007LeMcD0>GLe6@00000K000U07<00`00DQAB500IDQ@:0010Cad00`00McEg=@0hMcDI 000001/002D0L`03001B558D00iB50/004]?7@03001g=GLe03Ig=AX0000070009@1c1U8D2P00ETlM 00<007LeMcD0=GLe6`00000M000T07<6001QCad00`00McEg=@0dMcDK000001d002@0L`03001?7DlM 06E?7@03001g=GLe039g=A`000007P008`1c00<004lMCad0ITlM00<007LeMcD0<7Le7@00000O000R 07<00`00Cae?7@1WCad00`00McEg=@0_McDM000001l00240L`03001?7DlM06U?7@03001g=GLe02eg =Ah000008000801c00<004lMCad0JTlM00<007LeMcD0:gLe7`00000P000P07<00`00Cae?7@1[Cad0 0`00McEg=@0ZMcDO0000024001l0L`03001?7DlM06a?7@03001g=GLe02Qg=B0000008P007P1c00<0 04lMCad0KDlM00<007LeMcD09WLe8@00000R000N07<00`00Cae?7@1^Cad00`00McEg=@0UMcDQ0000 02<001d0L`03001?7DlM06m?7@03001g=GLe02=g=B80000090006`1c00<004lMCad0LDlM00<007Le McD08GLe8`00000T000K07<00`00Cae?7@1bCad00`00McEg=@0PMcDS000002D001X0L`03001?7DlM 079?7@03001g=GLe01mg=B@000009P006@1c00<004lMCad0LdlM00<007LeMcD07GLe9@00000V000I 07<00`00Cae?7@1dCad00`00McEg=@0LMcDU000002L001P0L`03001?7DlM07E?7@03001g=GLe01Yg =BH00000:0005P1c00<004lMCad0MdlM00<007LeMcD067Le9`00000X000F07<00`00Cae?7@1hCad0 0`00McEg=@0GMcDW000002T001D0L`03001?7DlM07U?7@03001g=GLe01Eg=BP00000:P00501c00<0 04lMCad0NTlM00<007LeMcD04gLe:@00000Z000D07<00`00Cae?7@1kCad00`00McEg=@0BMcDY0000 02/001<0L`03001?7DlM07a?7@03001g=GLe011g=BX00000:`004`1c00<004lMCad0ODlM00<007Le McD03WLe:`00000/000A07<00`00Cae?7@1oCad00`00McEg=@0=McD[000002d00100L`03001?7DlM 081?7@03001g=GLe00]g=B`00000;@00401c00<004lMCad0PDlM00<007LeMcD02GLe;@00000^000? 07<00`00Cae?7@21Cad00`00McEg=@09McD]000002l000h0L`03001?7DlM089?7@03001g=GLe00Mg =Bh00000;`003P1c00<004lMCad0PdlM00<007LeMcD01GLe;`00000`000=07<00`00Cae?7@24Cad0 0`00McEg=@04McD_0000034000/0L`03001?7DlM08I?7@03001g=GLe009g=C000000<@002`1c00<0 04lMCad0QdlM00<007LeMcD0<@00000b000:07<00`00Cae?7@28Cad00`00McD0000`000003<000T0 L`03001?7DlM08U?7C800000<`002@1c00<004lMCad0QdlM=000000d000807<00`00Cae?7@25Cadf 000003D000H0L`03001?7DlM08A?7CP00000=@001P1c00<004lMCad0PTlM>P00000f000507<00`00 Cae?7@20Cadl000003H000D0L`03001?7DlM07i?7Ch00000=`00101c00<004lMCad0O4lM@000000h 000307<00`00Cae?7@1jCae2000003P000<0L`03001?7DlM07Q?7D@00000>@0000<0L`00Cad0N4lM AP00000i00000`1c001?7@1fCae8000003/007E?7DX00000?@00LDlMC0000011001[Cae>000004D0 06E?7E000000B@00GdlMDP00001=001ICaeD0000054005=?7EH00000EP00C4lMF000001J0016CaeJ 000005h0041?7E`00000HP00>TlMGP00001V000dCaeP000006X002i?7F800000KP00:4lMI000001c 000QCaeV000007L001]?7FP00000N`005DlMJP00001o000?Cae/000008<000U?7Fh00000Q`000dlM L000003j00000?X00000nP00003j00000?X00000nP000000 \>"], ImageRangeCache->{{{0, 249}, {249, 0}} -> {0.176483, 0.175669, 0.00260086, 0.00260086}}, CellTags->"ThePolyhedraGraphic"], Cell[BoxData[ StyleBox[GridBox[{ { ButtonBox[ StyleBox["Tetrahedron", FontFamily->"Helvetica"], ButtonData:>Geometry`Polytopes`Tetrahedron[ ]], ButtonBox[ StyleBox["Cube", FontFamily->"Helvetica"], ButtonData:>Geometry`Polytopes`Cube[ ]], ButtonBox[ StyleBox["Octahedron", FontFamily->"Helvetica"], ButtonData:>Geometry`Polytopes`Octahedron[ ]], ButtonBox[ StyleBox["Dodecahedron", FontFamily->"Helvetica"], ButtonData:>Geometry`Polytopes`Dodecahedron[ ]], ButtonBox[ StyleBox["Icosahedron", FontFamily->"Helvetica"], ButtonData:>Geometry`Polytopes`Icosahedron[ ]]} }, RowSpacings->0, ColumnSpacings->0.2, RowMinHeight->2, RowsEqual->True, ColumnsEqual->True, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]], Active->True, FontSize->10, FontWeight->"Plain", FontColor->GrayLevel[1], ButtonBoxOptions->{Background->RGBColor[0.8, 0, 0]}]], "Input", PageWidth->Infinity, CellFrame->{{10, 0}, {0, 0}}, ShowCellBracket->False, CellMargins->{{0, 0}, {0, 0}}, ShowCellLabel->False, CellFrameMargins->{{8, 4}, {3, 4}}, CellFrameColor->RGBColor[0, 0.6, 0.6], Background->GrayLevel[0], ButtonBoxOptions->{ButtonFunction:>(CompoundExpression[ Needs[ "Graphics`Polyhedra`"], If[ SameQ[ Head[ FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]]], FrontEnd`Polyhedra`Private`$TheCurrentViewPoint], Set[ FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]], First[ Options[ Graphics3D, ViewPoint]]]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]], Release[ ReplaceAll[ Hold[ Graphics3D[ #]], {Hold -> Hold, Pattern[ FrontEnd`Polyhedra`Private`s, Blank[ Symbol]] :> ToString[ FrontEnd`Polyhedra`Private`s]}]]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]], Show[ Graphics3D[ #], Boxed -> False, PlotRange -> All, FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]], DisplayFunction -> Identity]], NotebookFind[ ButtonNotebook[ ], "ThePolyhedraGraphic", All, CellTags], SelectionMove[ ButtonNotebook[ ], All, CellContents], NotebookWrite[ ButtonNotebook[ ], Cell[ GraphicsData[ "PostScript", DisplayString[ Insert[ Graphics[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]]], {PlotRange -> All, AspectRatio -> Automatic}, -1]]], "Graphics", PageWidth -> Infinity, CellFrame -> {{16, Inherited}, {Inherited, Inherited}}, CellMargins -> {{Inherited, Inherited}, {0, Inherited}}, ImageSize -> {250, 250}, ImageMargins -> {{75, 0}, {0, 2}}, ImageRegion -> {{0, 1}, {0, 1}}, CellTags -> "ThePolyhedraGraphic"]], SelectionMove[ ButtonNotebook[ ], Before, Notebook]]&), ButtonEvaluator->Automatic}], Cell[BoxData[GridBox[{ { ButtonBox[ RowBox[{ StyleBox["Stellate", FontFamily->"Helvetica", FontSize->10], StyleBox[" ", FontFamily->"Helvetica", FontSize->10, FontColor->RGBColor[1, 0, 0]], StyleBox[\((50 %)\), FontFamily->"Helvetica", FontSize->10]}], ButtonData:>(Graphics`Polyhedra`Stellate[ #, 1.5]&), Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Stellate\ \((100 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>Graphics`Polyhedra`Stellate, Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Stellate\ \((200 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Stellate[ #, 3]&), Background->GrayLevel[0.700008]]}, { ButtonBox[ StyleBox[\(Indent\ \((20 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Stellate[ #, 0.8]&), Background->RGBColor[0.843763, 0.796887, 0.718761]], ButtonBox[ StyleBox[\(Indent\ \((50 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Stellate[ #, 0.5]&), Background->RGBColor[0.843763, 0.796887, 0.718761]], ButtonBox[ StyleBox[\(Indent\ \((80 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Stellate[ #, 0.2]&), Background->RGBColor[0.843763, 0.796887, 0.718761]]}, { ButtonBox[ StyleBox[\(Truncate\ \((20 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Truncate[ #, 0.1]&), Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Truncate\ \((60 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Truncate[ #, 0.3]&), Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Truncate\ \((100 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`Truncate[ #, 0.5]&), Background->GrayLevel[0.700008]]}, { ButtonBox[ StyleBox[\(Truncate\ \((20 %\ open)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`OpenTruncate[ #, 0.1]&), Background->RGBColor[0.843763, 0.796887, 0.718761]], ButtonBox[ StyleBox[\(Truncate\ \((\ 60 %\ open)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`OpenTruncate[ #, 0.3]&), Background->RGBColor[0.843763, 0.796887, 0.718761]], ButtonBox[ StyleBox[\(Truncate\ \((100 %\ open)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Polyhedra`OpenTruncate[ #, 0.5]&), Background->RGBColor[0.843763, 0.796887, 0.718761]]}, { ButtonBox[ StyleBox[\(Shrink\ \((20 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Shapes`ShrinkPolygons[ #, 0.8]&), Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Shrink\ \((50 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Shapes`ShrinkPolygons[ #, 0.5]&), Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Shrink\ \((80 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Shapes`ShrinkPolygons[ #, 0.2]&), Background->GrayLevel[0.700008]]}, { ButtonBox[ StyleBox[\(Holes\ \((20 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Shapes`PerforatePolygons[ #, 0.2]&), Background->RGBColor[0.843763, 0.796887, 0.718761]], ButtonBox[ StyleBox[\(Holes\ \((50 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Shapes`PerforatePolygons[ #, 0.5]&), Background->RGBColor[0.843763, 0.796887, 0.718761]], ButtonBox[ StyleBox[\(Holes\ \((80 %)\)\), FontFamily->"Helvetica", FontSize->10], ButtonData:>(Graphics`Shapes`PerforatePolygons[ #, 0.9]&), Background->RGBColor[0.843763, 0.796887, 0.718761]]}, { ButtonBox[ StyleBox["Geodesate", FontFamily->"Helvetica", FontSize->10], ButtonData:>Graphics`Polyhedra`Geodesate, Background->GrayLevel[0.700008]], ButtonBox[ StyleBox["Outline", FontFamily->"Helvetica", FontSize->10], ButtonData:>(Insert[ Graphics`Shapes`WireFrame[ #], GrayLevel[ 1], {1, 1}]&), Background->GrayLevel[0.700008]], ButtonBox[ StyleBox[\(Make\ Beams\), FontFamily->"Helvetica", FontSize->10], ButtonData:>Graphics`Shapes`OutlinePolygons, Background->GrayLevel[0.700008]]} }, RowSpacings->0.2, ColumnSpacings->0, ColumnWidths->10.1, RowMinHeight->1.1, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input", PageWidth->Infinity, CellFrame->{{4, Inherited}, {Inherited, Inherited}}, ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, Active->True, ShowCellLabel->False, CellFrameMargins->{{14, 4}, {0, 4}}, CellFrameColor->RGBColor[0, 0.6, 0.6], FontFamily->"Courier", FontWeight->"Plain", ButtonBoxOptions->{ButtonFunction:>(CompoundExpression[ Needs[ "Graphics`Polyhedra`"], Needs[ "Graphics`Shapes`"], SelectionMove[ ButtonNotebook[ ], Before, Notebook], SelectionMove[ ButtonNotebook[ ], Next, Cell, 3], SelectionMove[ ButtonNotebook[ ], All, CellContents], NotebookWrite[ ButtonNotebook[ ], "Calculating Shapes"], If[ SameQ[ Head[ FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]]], FrontEnd`Polyhedra`Private`$TheCurrentViewPoint], Set[ FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]], First[ Options[ Graphics3D, ViewPoint]]]], If[ SameQ[ Head[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]]], FrontEnd`Polyhedra`Private`$TheCurrentCode], Set[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]], "Dodecahedron"[ ]]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]], ReplaceAll[ #, {Function -> Function, Slot -> Slot, List -> List, Pattern[ FrontEnd`Polyhedra`Private`s, Blank[ Symbol]] :> ToString[ FrontEnd`Polyhedra`Private`s]}][ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]]]], If[ UnsameQ[ Head[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]]], Graphics3D], Set[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]], Show[ Graphics3D[ #[ Geometry`Polytopes`Dodecahedron[ ]]], Boxed -> False, FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]], DisplayFunction -> Identity]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]], #[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]]]]], SelectionMove[ ButtonNotebook[ ], Before, Notebook], SelectionMove[ ButtonNotebook[ ], Next, Cell, 3], SelectionMove[ ButtonNotebook[ ], All, CellContents], NotebookWrite[ ButtonNotebook[ ], "Rendering Shapes"], Set[ FrontEnd`Polyhedra`Private`intgraphic, DisplayString[ Insert[ Graphics[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]]], {PlotRange -> All, AspectRatio -> Automatic}, -1]]], SelectionMove[ ButtonNotebook[ ], Before, Notebook], SelectionMove[ ButtonNotebook[ ], Next, Cell, 3], SelectionMove[ ButtonNotebook[ ], All, CellContents], NotebookWrite[ ButtonNotebook[ ], "Displaying Graphic"], NotebookFind[ ButtonNotebook[ ], "ThePolyhedraGraphic", All, CellTags], SelectionMove[ ButtonNotebook[ ], All, CellContents], NotebookWrite[ ButtonNotebook[ ], Cell[ GraphicsData[ "PostScript", FrontEnd`Polyhedra`Private`intgraphic], "Graphics", PageWidth -> Infinity, CellFrame -> {{16, Inherited}, { Inherited, Inherited}}, CellMargins -> {{Inherited, Inherited}, {0, Inherited}}, ImageSize -> {250, 250}, ImageMargins -> {{75, 0}, {0, 2}}, ImageRegion -> {{0, 1}, {0, 1}}, CellTags -> "ThePolyhedraGraphic"]], SelectionMove[ ButtonNotebook[ ], Before, Notebook], SelectionMove[ ButtonNotebook[ ], Next, Cell, 3], SelectionMove[ ButtonNotebook[ ], All, CellContents], NotebookWrite[ ButtonNotebook[ ], " "], SelectionMove[ ButtonNotebook[ ], Before, Notebook]]&), ButtonEvaluator->Automatic}], Cell[BoxData[ StyleBox[GridBox[{ { ButtonBox[ StyleBox[\(Paste\ Graphic\), FontFamily->"Helvetica"], ButtonFunction:>CompoundExpression[ Set[ FrontEnd`Polyhedra`Private`nb, Select[ Notebooks[ ], And[ UnsameQ[ #, ButtonNotebook[ ]], Apply[ And, ReplaceAll[ {WindowClickSelect, Not[ WindowFloating], Not[ Active]}, Options[ #, {WindowClickSelect, WindowFloating, Active}]]]]&]], If[ UnsameQ[ FrontEnd`Polyhedra`Private`nb, {}], CompoundExpression[ Set[ FrontEnd`Polyhedra`Private`nb, First[ FrontEnd`Polyhedra`Private`nb]], NotebookFind[ ButtonNotebook[ ], "ThePolyhedraGraphic", All, CellTags], FrontEndExecute[ { FrontEnd`FrontEndToken[ ButtonNotebook[ ], "Copy"]}], FrontEndExecute[ { FrontEnd`FrontEndToken[ FrontEnd`Polyhedra`Private`nb, "PasteDiscardNoAutoScroll", All]}], SelectionMove[ FrontEnd`Polyhedra`Private`nb, All, Cell], SetOptions[ NotebookSelection[ FrontEnd`Polyhedra`Private`nb], Background -> Inherited, CellMargins -> Inherited, CellFrame -> False], FrontEndExecute[ { FrontEnd`FrontEndToken[ FrontEnd`Polyhedra`Private`nb, "GraphicsRender"]}]]], SelectionMove[ FrontEnd`Polyhedra`Private`nb, After, Cell]], ButtonEvaluator->Automatic], ButtonBox[ StyleBox[\(Paste\ Code\), FontFamily->"Helvetica"], ButtonFunction:>CompoundExpression[ If[ SameQ[ Head[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]]], FrontEnd`Polyhedra`Private`$TheCurrentCode], Set[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]], "Graphics3D[Dodecahedron[]]"]], Set[ FrontEnd`Polyhedra`Private`nb, Select[ Notebooks[ ], And[ UnsameQ[ #, ButtonNotebook[ ]], Apply[ And, ReplaceAll[ {WindowClickSelect, Not[ WindowFloating], Not[ Active]}, Options[ #, {WindowClickSelect, WindowFloating, Active}]]]]&]], If[ UnsameQ[ FrontEnd`Polyhedra`Private`nb, {}], CompoundExpression[ NotebookWrite[ First[ FrontEnd`Polyhedra`Private`nb], StringJoin[ "Show[", ToString[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]]], "]"]], SelectionMove[ First[ FrontEnd`Polyhedra`Private`nb], After, Cell]]]], ButtonEvaluator->Automatic], ButtonBox[ StyleBox[\(Clone\ Window\), FontFamily->"Helvetica"], ButtonFunction:>CompoundExpression[ Set[ FrontEnd`Polyhedra`Private`nb, Apply[ NotebookCreate, Options[ ButtonNotebook[ ]]]], SelectionMove[ ButtonNotebook[ ], All, Notebook], FrontEndExecute[ { FrontEnd`FrontEndToken[ ButtonNotebook[ ], "Copy"], FrontEnd`FrontEndToken[ FrontEnd`Polyhedra`Private`nb, "PasteDiscardNoAutoScroll"]}], SelectionMove[ FrontEnd`Polyhedra`Private`nb, Before, Notebook], SelectionMove[ ButtonNotebook[ ], Before, Notebook], If[ Not[ ValueQ[ FrontEnd`Polyhedra`Private`$TheCloneCounter]], Set[ FrontEnd`Polyhedra`Private`$TheCloneCounter, 1], Set[ FrontEnd`Polyhedra`Private`$TheCloneCounter, Plus[ FrontEnd`Polyhedra`Private`$TheCloneCounter, 1]]], SetOptions[ FrontEnd`Polyhedra`Private`nb, WindowMargins -> ReplaceAll[ ReplaceAll[ WindowMargins, Options[ FrontEnd`Polyhedra`Private`nb, WindowMargins]], PatternTest[ Pattern[ FrontEnd`Polyhedra`Private`n, Blank[ ]], NumberQ] :> Plus[ FrontEnd`Polyhedra`Private`n, 10]], WindowTitle -> StringJoin[ "Clone ", ToString[ FrontEnd`Polyhedra`Private`$TheCloneCounter]]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ FrontEnd`Polyhedra`Private`nb], FrontEnd`Polyhedra`Private`$TheCurrentViewPoint[ ButtonNotebook[ ]]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentCode[ FrontEnd`Polyhedra`Private`nb], FrontEnd`Polyhedra`Private`$TheCurrentCode[ ButtonNotebook[ ]]], Set[ FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ FrontEnd`Polyhedra`Private`nb], FrontEnd`Polyhedra`Private`$TheCurrentGraphic[ ButtonNotebook[ ]]]], ButtonEvaluator->Automatic]} }, RowSpacings->0, ColumnSpacings->0.5, ColumnWidths->8.3, RowAlignments->Baseline, RowMinHeight->2, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]], Active->True, FontSize->10, FontColor->GrayLevel[1], ButtonBoxOptions->{Background->RGBColor[0.2, 0.6, 0.6]}]], "Input", PageWidth->Infinity, CellFrame->{{2, Inherited}, {0, Inherited}}, ShowCellBracket->False, CellMargins->{{0, 0}, {0, 0}}, ShowCellLabel->False, CellFrameMargins->{{117, 4}, {20, 4}}, CellFrameColor->RGBColor[0, 0.6, 0.6], FontFamily->"Courier"] }, FrontEndVersion->"Microsoft Windows 3.0 Beta 3", ScreenRectangle->{{0, 1024}, {0, 712}}, PrintingStyleEnvironment->"Working", WindowToolbars->{}, PageWidth->Infinity, WindowSize->{414, 538}, WindowMargins->{{30, Automatic}, {Automatic, 4}}, WindowFrame->"Palette", WindowElements->{}, WindowFrameElements->{"CloseBox", "ZoomBox"}, WindowTitle->None, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 256}}, ShowCellBracket->True, Active->True, ShowCellLabel->False, StyleDefinitions -> Notebook[{ Cell[StyleData[All, "Working"], PageWidth->600, ScriptMinSize->9], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { OptionValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { OptionValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{None, Cell[ TextData[ {"Printed by ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " from ", StyleBox[ "YOUR TITLE HERE", FontSlant -> "Italic"], " by AUTHOR. \n\[Copyright] YEAR HOLDER. All rights \ reserved."}], "Footer"], None}, {None, Cell[ TextData[ {"Printed by ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " from ", StyleBox[ "YOUR TITLE HERE", FontSlant -> "Italic"], " by AUTHOR. \n\[Copyright] YEAR HOLDER. All rights \ reserved."}], "Footer"], None}}, PageFooterLines->{True, True}, PrintingOptions->{"FirstPageHeader"->False, "FirstPageFace"->Right}, CellBracketOptions->{"Color"->RGBColor[0, 0, 0.466667]}, StyleMenuListing->None], Cell[StyleData["Title"], ShowCellBracket->False, CellMargins->{{60, 0}, {0, 0}}, PageBreakBelow->False, LineSpacing->{0, 40}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->36, FontTracking->"Plain", FontColor->GrayLevel[0]], Cell[StyleData["SmallText"], CellMargins->{{60, 20}, {5, 5}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 6}, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Input"], CellFrame->{{3, 0}, {0, 0}}, CellMargins->{{60, 20}, {0, 0}}, Evaluatable->True, CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, CellFrameColor->RGBColor[1, 0, 0], FontWeight->"Bold", Background->RGBColor[1, 0.8, 0.4]], Cell[StyleData["Graphics"], CellFrame->{{6, 0}, {0, 2}}, ShowCellBracket->False, CellMargins->{{0, 40}, {0, 0}}, CellGroupingRules->"NormalGrouping", CellHorizontalScrolling->True, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellFrameColor->RGBColor[0, 0.6, 0.6], DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, ImageSize->{250, 250}, Background->GrayLevel[0]], Cell[StyleData["Message"], CellMargins->{{60, 20}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, StyleMenuListing->None, FontColor->RGBColor[1, 0, 0]] }] ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "ThePolyhedronDemoStatusCell"->{ Cell[16910, 247, 199, 5, 16, "SmallText", CellTags->"ThePolyhedronDemoStatusCell"]}, "ThePolyhedraGraphic"->{ Cell[17112, 254, 13904, 547, 270, 5025, 431, "GraphicsData", "PostScript", "Graphics", CellTags->"ThePolyhedraGraphic"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ThePolyhedronDemoStatusCell", 56349, 1447}, {"ThePolyhedraGraphic", 56471, 1450} } *) (*NotebookFileOutline Notebook[{ Cell[1710, 49, 15135, 193, 24, 14940, 186, "GraphicsData", "Bitmap", "SmallText"], Cell[16848, 244, 59, 1, 41, "Title"], Cell[16910, 247, 199, 5, 16, "SmallText", CellTags->"ThePolyhedronDemoStatusCell"], Cell[17112, 254, 13904, 547, 270, 5025, 431, "GraphicsData", "PostScript", "Graphics", CellTags->"ThePolyhedraGraphic"], Cell[31019, 803, 3536, 93, 30, "Input"], Cell[34558, 898, 10343, 267, 129, "Input"], Cell[44904, 1167, 7329, 159, 46, "Input"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)