(*^ ::[ 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, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-4, 12, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-4, 12, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R32768, L-4, 12, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-4, 12, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B32768, L-4, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier"; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = leftheader, inactive, L2, 12, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times"; fontset = leftfooter, inactive, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; paletteColors = 128; currentKernel; ] :[font = title; inactive; preserveAspect; startGroup] Getting Nice Colours in MathLive :[font = subsubtitle; inactive; preserveAspect] Original by W. Shaw 24th January 1995. :[font = section; inactive; preserveAspect; startGroup] Use of Graphics3D Conversion :[font = text; inactive; preserveAspect] MathLive 1.51 introduced several new features. In particular, Mathematica Colour Directives, expressed in terms of RGBColor, Hue and CMYKColor are all managed by MathLive. To effect this, it is necessary to send graphics in the form of Graphics3D objects. SurfaceGraphics objects with colour directives will not be rendered properly by default. You need to do nothing with objects generated by the use of primitives, or, for example, with ParametricPlot3D, since these are already in the form of Graphics3D. However, graphics generated by Plot3D and ListPlot3D will need conversion. The following examples will suffice to show you various ways of getting nice colours. :[font = subsection; inactive; preserveAspect; startGroup] 8-bit vs 16-bit Graphics :[font = text; inactive; preserveAspect; endGroup; endGroup] The quality of the colour rendering is influenced by the colour depth support. Versions of MathLive greater than 1.51 now support 16 bit colour on both Windows and Macintosh platforms. :[font = section; inactive; Cclosed; preserveAspect; startGroup] Examples :[font = text; inactive; preserveAspect] Here are some examples of using colour directives, that reflect my own personal bad taste in colours. :[font = input; preserveAspect; startGroup] live = LinkOpen["MathLive", LinkMode -> Launch] :[font = input; preserveAspect] plota = Plot3D[{Sin[x]*Cos[y], Hue[x y]}, {x, -3, 3}, {y, -3, 3}] :[font = input; preserveAspect; endGroup] LinkWrite[live, Graphics3D[plota]] :[font = text; inactive; preserveAspect] The following example was suggested by Alfred Gray - here no conversion is needed. :[font = input; preserveAspect; startGroup] cat = ParametricPlot3D[{Cos[u] Cosh[v], Cosh[v] Sin[u], v, Hue[Tanh[v^2]-1]}, {u, 0, 3 Pi/2}, {v, -1.5, 1.5}, PlotPoints -> {10,10}, Lighting -> False, Axes -> None, Boxed -> False] :[font = input; preserveAspect; endGroup] LinkWrite[live, cat] :[font = text; inactive; preserveAspect] Note that options in the form of ColorFunction directives are also supported: :[font = input; preserveAspect; startGroup] plotb = Plot3D[Sin[x]*Cos[y], {x, -3, 3}, {y, -3, 3}, ColorFunction -> (RGBColor[#,0,1-#]&)] :[font = input; preserveAspect; endGroup] LinkWrite[live, Graphics3D[plotb]] :[font = subsection; inactive; preserveAspect; startGroup] Other Tip! :[font = text; inactive; preserveAspect; endGroup; endGroup; endGroup] Remember to send only numerical data to MathLive. This is especially important with using ListPlot3D applied to data created with Table. Use the N function to make all data numerical. :[font = section; inactive; preserveAspect; startGroup] For further information, advice or suggestions please contact :[font = text; inactive; preserveAspect; cellOutline; 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/ ^*)