(*^ ::[ frontEndVersion = "Microsoft Windows Mathematica Notebook Front End Version 2.2"; microsoftWindowsStandardFontEncoding; fontset = title, "Times", 24, L0, center, nohscroll, bold; fontset = subtitle, "Times", 18, L0, center, nohscroll, bold; fontset = subsubtitle, "Times", 14, L0, center, nohscroll, italic; fontset = section, "Times", 18, L0, nohscroll, bold, grayBox; fontset = subsection, "Times", 14, L0, nohscroll, bold, blackBox; fontset = subsubsection, "Times", 13, L0, nohscroll, B65535; fontset = text, "Times", 12, L0, nohscroll, cellOutline; fontset = smalltext, "Times", 10, L0, nohscroll; fontset = input, "Courier", 12, L-5, nowordwrap, bold; fontset = output, "Courier", 12, L-5, nowordwrap; fontset = message, "Courier", 12, L-5, nowordwrap, R65535; fontset = print, "Courier", 12, L-5, nowordwrap; fontset = info, "Courier", 12, L-5, nowordwrap, B65535; fontset = postscript, "Courier", 12, L0, nowordwrap; fontset = name, "Geneva", 10, L0, nohscroll, italic; fontset = header, "Times", 12, L0; fontset = footer, "Times", 12, L0, center; fontset = help, "Times", 10, L0, nohscroll; fontset = clipboard, "Times", 12, L0, nohscroll; fontset = completions, "Times", 12, L0, nohscroll; fontset = graphics, "Courier New", 10, L0, nowordwrap, nohscroll; fontset = special1, "Times", 12, L0, nohscroll; fontset = special2, "Times", 12, L0, nohscroll; fontset = special3, "Times", 12, L0, nohscroll; fontset = special4, "Times", 12, L0, nohscroll; fontset = special5, "Times", 12, L0, nohscroll; fontset = leftheader, "Times", 12, L2; fontset = leftfooter, "Times", 12, L2; fontset = reserved1, "Courier New", 10, L0, nowordwrap, nohscroll;] :[font = title; inactive; preserveAspect; nohscroll; center; ] MathLive Professional :[font = subsubtitle; inactive; preserveAspect; startGroup; nohscroll; center; ] Polyhedra example Original by L.Angrave 1996 Last Update: 20/4/96 :[font = section; inactive; preserveAspect; startGroup; nohscroll; ] Introductory Notes :[font = subsubsection; inactive; preserveAspect; nohscroll; backColorRed = 65535; backColorGreen = 65535; backColorBlue = 65535; fontColorRed = 0; fontColorGreen = 0; fontColorBlue = 65535; plain; fontName = "Times"; fontSize = 13; ] This notebook creates a icosahedron and dodecahedron in MathLive. Visually, it also provides an insight into the production of the stellated forms of these two shapes. :[font = subsubsection; inactive; preserveAspect; endGroup; nohscroll; backColorRed = 65535; backColorGreen = 65535; backColorBlue = 65535; fontColorRed = 0; fontColorGreen = 0; fontColorBlue = 65535; plain; fontName = "Times"; fontSize = 13; ] Finally, we illustrate how to change the current object touched - in this example we change its rendermode to point, wireframe, flat or smooth shaded polygons. :[font = section; inactive; initialization; preserveAspect; startGroup; Cclosed; nohscroll; ] Initialisation :[font = input; initialization; preserveAspect; nowordwrap; ] *) General::spell1 //Off; (* :[font = input; initialization; preserveAspect; nowordwrap; ] *) Needs["Graphics`Colors`"] (* :[font = input; initialization; preserveAspect; nowordwrap; ] *) Needs["Graphics`Polyhedra`"]; (* :[font = input; initialization; preserveAspect; nowordwrap; ] *) Needs["MathLive`MathLive`"]; LaunchLive[]; ResetLive[]; (* :[font = input; initialization; preserveAspect; endGroup; nowordwrap; ] *) Polyhedra (* :[font = section; inactive; preserveAspect; startGroup; Cclosed; nohscroll; ] The Icosahedron and Stellated Icosahedron :[font = input; preserveAspect; nowordwrap; ] (* Destroy any existing objects in the model *) Live[ Destroy[ Model3D["Default`"] ] ]; :[font = input; preserveAspect; nowordwrap; ] Live[ Create[ Object3D["Icos"] , Graphics3D[{ Red , Icosahedron[{0,0,0},0.99] }]]]; :[font = input; preserveAspect; nowordwrap; ] Live[ Create[ Object3D["StellIcos"] , Graphics3D[{ Blue , Stellate[ Icosahedron[] , 1.4] }]]]; :[font = input; preserveAspect; endGroup; nowordwrap; ] Live[ Change[ Object3D["StellIcos"] , RenderMode -> WireFrame , MouseMovement -> False]]; :[font = section; inactive; preserveAspect; startGroup; Cclosed; nohscroll; ] The Icosahedron and Open Truncated Icosahedron :[font = input; preserveAspect; nowordwrap; ] Live[ Destroy[ Model3D["Default`"] ] ]; :[font = input; preserveAspect; nowordwrap; ] Live[ Create[ Object3D["Icos"] , Graphics3D[{ Red , Icosahedron[{0,0,0},1.] }]]]; :[font = input; preserveAspect; nowordwrap; ] Live[ Create[ Object3D["OpenTruncIcos"] , Graphics3D[{ Green , OpenTruncate[ Icosahedron[{0,0,0},1.1],0.3 ] }]]]; :[font = input; preserveAspect; nowordwrap; ] Live[ Change[ { Object3D["OpenTruncIcos"], Object3D["Icos"] } , RenderMode -> FlatShaded , MouseMovement -> False]]; :[font = input; preserveAspect; startGroup; nowordwrap; ] (* To determine the current model range of the default model use - *) ModelRange[Model3D["Default`"]] :[font = output; inactive; formatted; output; preserveAspect; endGroup; endGroup; nowordwrap; ] {{-1.1756, 1.1756}, {-1.1756, 1.1756}, {-1.1756, 1.1756}} ;[o] {{-1.1756, 1.1756}, {-1.1756, 1.1756}, {-1.1756, 1.1756}} :[font = section; inactive; preserveAspect; startGroup; Cclosed; nohscroll; ] The GreatDodecahedron and GreatStellatedDodecahedron :[font = input; preserveAspect; nowordwrap; ] Live[ Destroy[ Model3D["Default`"] ] ]; :[font = input; preserveAspect; nowordwrap; ] Live[ Create[ Object3D["GreatDodec"] , Graphics3D[{ Red , GreatDodecahedron[] }]]]; :[font = input; preserveAspect; nowordwrap; ] Live[ Create[ Object3D["GreatStellatedDodec"] , Graphics3D[{ Green , GreatStellatedDodecahedron[] }]]]; :[font = input; preserveAspect; endGroup; nowordwrap; ] colors = Table[ Hue[ Random[] ] , {10} ]; Live[ Change[ Object3D["GreatStellatedDodec"] , RenderMode-> FlatShaded , MouseMovement -> False , Opacity -> 0.5 , Color -> {colors,colors} ] ]; :[font = section; inactive; preserveAspect; startGroup; Cclosed; nohscroll; ] Change the RenderMode of the current object touched :[font = input; preserveAspect; endGroup; nowordwrap; ] object = LastObjectTouched[]; render = {PointCloud,WireFrame,FlatShaded,SmoothShaded}[[Random[Integer,{1,4}] ]]; If[ object =!= None, Live[ Change[ object , RenderMode ->render ] ]; , Print["No Object Touched!"]; ]; :[font = section; inactive; preserveAspect; startGroup; nohscroll; ] For further information, advice or suggestions please contact- :[font = text; inactive; preserveAspect; endGroup; endGroup; nohscroll; cellOutline; backColorRed = 65535; backColorGreen = 65535; backColorBlue = 65535; fontColorRed = 0; fontColorGreen = 0; fontColorBlue = 0; plain; fontName = "Times"; fontSize = 12; ] Email: support@milohedge.com Post: Milo Hedge Ltd, The Oxford Centre for Innovation, Mill Street, Oxford, OX2 0JX WWW: http://www.milohedge.com/mathlive/ ^*)