(*^
::[	Information =

	"This is a Mathematica Notebook file.  It contains ASCII text, and can be
	transferred by email, ftp, or other text-file transfer utility.  It should
	be read or edited using a copy of Mathematica or MathReader.  If you 
	received this as email, use your mail application or copy/paste to save 
	everything from the line containing (*^ down to the line containing ^*)
	into a plain text file.  On some systems you may have to give the file a 
	name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
	The line below identifies what version of Mathematica created this file,
	but it can be opened using any other version as well.";

	FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2";

	MacintoshStandardFontEncoding; 
	
	fontset = title, nohscroll, center, bold, L0,  24, "Times"; 
	fontset = subtitle, nohscroll, center, bold, L0,  18, "Times"; 
	fontset = subsubtitle, nohscroll, center, italic, L0,  14, "Times"; 
	fontset = section, nohscroll, grayBox, bold, L0,  18, "Times"; 
	fontset = subsection, nohscroll, blackBox, bold, L0,  14, "Times"; 
	fontset = subsubsection, nohscroll, whiteBox, bold, L0,  12, "Times"; 
	fontset = text, nohscroll, cellOutline, L0,  12, "Times"; 
	fontset = smalltext, nohscroll, L0,  10, "Times"; 
	fontset = input, nowordwrap, bold, L-4,  12, "Courier"; 
	fontset = output, nowordwrap, L-4,  12, "Courier"; 
	fontset = message, nowordwrap, R32768, L-4,  12, "Courier"; 
	fontset = print, nowordwrap, L-4,  12, "Courier"; 
	fontset = info, nowordwrap, B32768, L-4,  12, "Courier"; 
	fontset = postscript, nowordwrap, L0,  12, "Courier"; 
	fontset = name, nohscroll, italic, L0,  10, "Geneva"; 
	fontset = header, L0,  12, "Times"; 
	fontset = leftheader, L2,  12, "Times"; 
	fontset = footer, center, L0,  12, "Times"; 
	fontset = leftfooter, L2,  12, "Times"; 
	fontset = help, nohscroll, L0,  10, "Times"; 
	fontset = clipboard, nohscroll, L0,  12, "Times"; 
	fontset = completions, nohscroll, L0,  12, "Times"; 
	fontset = special1, nohscroll, L0,  12, "Times"; 
	fontset = special2, nohscroll, L0,  12, "Times"; 
	fontset = special3, nohscroll, L0,  12, "Times"; 
	fontset = special4, nohscroll, L0,  12, "Times"; 
	fontset = special5, nohscroll, L0,  12, "Times"; 
	currentKernel; 
]
:[font = subsubtitle; fontColorBlue = 65535]
MathLive
;[s]
1:0,1;9,-1;
2:0,14,11,Times,2,14,0,0,65535;1,28,21,Times,2,28,0,0,65535;
:[font = subsubtitle]
Solar System Example
Original by W.Shaw 1994
:[font = section; startGroup]
Introduction
:[font = input; preserveAspect; endGroup]
Needs["Graphics`ThreeScript`"]
:[font = section; Cclosed; startGroup]
Example 1 - Plot3D
:[font = subsection; startGroup]
Create the graphics
:[font = input; preserveAspect; endGroup]
bell = Plot3D[Exp[-x^2 + -y^2], 
{x, -2, 2}, {y, -2, 2}, PlotPoints -> 25]
:[font = subsection; startGroup]
Save as 3-Script
:[font = input; preserveAspect; endGroup; endGroup]
ThreeScript["bell.ts", bell]
:[font = section; Cclosed; startGroup]
Example 2 - ParametricPlot3D
:[font = subsection; startGroup]
Create the graphics
:[font = input; preserveAspect; endGroup]
twospheres = ParametricPlot3D[{{Sin[v] Cos[u], Sin[v] Sin[u], Cos[v]},
{Sin[v] Cos[4 u/3]/2, Sin[v] Sin[4 u /3]/2, Cos[v]/2}},
{u, 0, 3 Pi/2}, {v, 0, Pi}]
:[font = subsection; startGroup]
Save as 3-Script
:[font = input; preserveAspect; endGroup; endGroup]
ThreeScript["twosphere.ts", twospheres]
:[font = section; startGroup]
For further information, advice or suggestions please contact
:[font = text; endGroup]
Email:     	 support@milohedge.com               
Post:         Milo Hedge Limited, 6 The Isis Business Centre, Pony Road, Oxford, OX4 2RD
WWW:     http://www.milohedge.com/mathlive/
^*)