(*^

::[	frontEndVersion = "Microsoft Windows Mathematica Notebook Front End Version 2.2";
	microsoftWindowsStandardFontEncoding;
	fontset = title, "Times New Roman", 24, L0, center, nohscroll, bold;
	fontset = subtitle, "Times New Roman", 18, L0, center, nohscroll, bold;
	fontset = subsubtitle, "Times New Roman", 14, L0, center, nohscroll, italic;
	fontset = section, "Times New Roman", 18, L0, nohscroll, bold, grayBox;
	fontset = subsection, "Times New Roman", 14, L0, nohscroll, bold, blackBox;
	fontset = subsubsection, "Times New Roman", 13, L0, nohscroll, B65535;
	fontset = text, "Times New Roman", 12, L0, nohscroll, cellOutline;
	fontset = smalltext, "Times New Roman", 10, L0, nohscroll;
	fontset = input, "Courier New", 12, L-5, nowordwrap, bold;
	fontset = output, "Courier New", 12, L-5, nowordwrap;
	fontset = message, "Courier New", 12, L-5, nowordwrap, R65535;
	fontset = print, "Courier New", 12, L-5, nowordwrap;
	fontset = info, "Courier New", 12, L-5, nowordwrap, B65535;
	fontset = postscript, "Courier New", 12, L0, nowordwrap;
	fontset = name, "Arial", 10, L0, nohscroll, italic;
	fontset = header, "Times New Roman", 12, L0;
	fontset = footer, "Times New Roman", 12, L0, center;
	fontset = help, "Times New Roman", 10, L0, nohscroll;
	fontset = clipboard, "Times New Roman", 12, L0, nohscroll;
	fontset = completions, "Times New Roman", 12, L0, nohscroll;
	fontset = graphics, "Courier New", 10, L0, nowordwrap, nohscroll;
	fontset = special1, "Times New Roman", 12, L0, nohscroll;
	fontset = special2, "Times New Roman", 12, L0, nohscroll;
	fontset = special3, "Times New Roman", 12, L0, nohscroll;
	fontset = special4, "Times New Roman", 12, L0, nohscroll;
	fontset = special5, "Times New Roman", 12, L0, nohscroll;
	fontset = leftheader, "Times New Roman", 12, L2;
	fontset = leftfooter, "Times New Roman", 12, L2;
	fontset = reserved1, "Courier New", 10, L0, nowordwrap, nohscroll;]
:[font = title; inactive; preserveAspect; nohscroll; center; ]
MathLive Professional
:[font = subsubtitle; inactive; preserveAspect; nohscroll; center; ]
Chequer Example
Original by L.Angrave 1996
Last Update: 20/4/96
:[font = section; inactive; preserveAspect; startGroup; nohscroll; ]
Introductory Notes
:[font = subsubsection; inactive; preserveAspect; endGroup; nohscroll; ]
This notebook creates a chequered surface in MathLive Professional.
The surface is colored purple and yellow on the top and black and white underneath.  We recommend that your monitor is set to thousands or millions of colors before running this notebook.
:[font = section; inactive; initialization; preserveAspect; startGroup; Cclosed; nohscroll; ]
Initialise and create the surface
:[font = input; initialization; preserveAspect; nowordwrap; ]
*)
Needs["MathLive`MathLive`"];
LaunchLive[];
ResetLive[];
(*
:[font = subsubsection; inactive; initialization; preserveAspect; startGroup; nohscroll; ]
Set the default display output from ParametricPlot3D to be MathLive
:[font = input; initialization; preserveAspect; endGroup; nowordwrap; ]
*)
SetDisplay[ NoteBook -> False, Live-> True];

Plot3D[Sin [Sin[x y]]
	,	{x,-2,2},{y,-2,2}
	, PlotPoints->{20,20} (* We need an odd number of polygons in each row *)
];
(*
:[font = subsubsection; inactive; initialization; preserveAspect; startGroup; nohscroll; ]
Show the surface using smooth shading and change the front and back surface colors. The two hues are applied in turn to each subsequent polygon that makes up the front surface. Note that in 256 color mode, the back surface polygons are all colored gray. This is due to the limited palette range available with only 256 colors.
:[font = input; initialization; preserveAspect; endGroup; nowordwrap; ]
*)
Live[ Change[ LastObjectCreated[]
	, RenderMode -> SmoothShaded
	, Color -> { {	Hue[0.2]	, Hue[-0.2]}
				,{	GrayLevel[0], GrayLevel[1]}}]];
(*
:[font = subsubsection; inactive; initialization; preserveAspect; startGroup; nohscroll; ]
Turn the default model bounding box off and the camera icon off
:[font = input; initialization; preserveAspect; endGroup; endGroup; nowordwrap; ]
*)
Live[ Change[ Camera["Camera"]
			,	Visible -> Off ]];
Live[ Change[ Model3D["Default`"]
			,	BoundingBox	-> Off]];
(*
:[font = section; inactive; preserveAspect; startGroup; nohscroll; ]
For further information, advice or suggestions please contact-
:[font = text; inactive; preserveAspect; 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/
^*)