Nautical - Maple Help

Nautical Color Palette

Description

 • The Nautical plot palette is a dark subdued selection of colors chosen to evoke a maritime feel. It is designed for coloring collections of lines. There are seven main colors in the palette as well as nine more named colors.
 > ColorTools:-DisplayPalette("Nautical",noextend);

 1. GrayBlue 2. Red 3. DarkGray 4. Olive 5. LightBlue 6. Gray 7. GrayViolet 8. DarkGreen 9. DarkBlue 10. PaleRed 11. DarkPurpleRed 12. PaleGreenBlue 13. DarkOrange 14. PaleBluePurple 15. DarkPurple 16. PaleGreen

Examples

You can reference colors in the palette by name or number in most commands that understand color names.

 > $\mathrm{plot}\left(\left[x,{x}^{3}\right],x=-1..1,\mathrm{color}=\left["Nautical 1","Nautical Red"\right]\right)$
 > $C≔\mathrm{ColorTools}:-\mathrm{Color}\left("Nautical 10"\right)$
 ${\mathrm{ColorTools}}{:-}{\mathrm{Color}}{}\left({"RGB"}{,}\left[{0.74117647}{,}{0.49411765}{,}{0.47058824}\right]\right)$ (1)

You can make Nautical the default palette in plots using setcolors

 > $\mathrm{plots}:-\mathrm{setcolors}\left("Nautical"\right):$

You can programatically access the colors using ColorTools commands

 > $P≔\mathrm{ColorTools}:-\mathrm{GetPalette}\left("Nautical"\right)$
 ${\mathrm{ColorTools}}{:-}{\mathrm{Palette}}{}\left(\left[{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}{,}{\mathbf{module}}\left({}\right)\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{...}\phantom{\rule[-0.0ex]{0.5em}{0.0ex}}{\mathbf{end module}}\right]{,}\left[{"GrayBlue"}{,}{"Red"}{,}{"DarkGray"}{,}{"Olive"}{,}{"LightBlue"}{,}{"Gray"}{,}{"GrayViolet"}{,}{"DarkGreen"}{,}{"DarkBlue"}{,}{"PaleRed"}{,}{"DarkPurpleRed"}{,}{"PaleGreenBlue"}{,}{"DarkOrange"}{,}{"PaleBluePurple"}{,}{"DarkPurple"}{,}{"PaleGreen"}\right]{,}\left[{"DarkGrey"}{=}{"DarkGray"}{,}{"GreyBlue"}{=}{"GrayBlue"}{,}{"GreyViolet"}{=}{"GrayViolet"}{,}{"Grey"}{=}{"Gray"}\right]{,}{\mathrm{palettename}}{=}{"Nautical"}{,}{\mathrm{palettetype}}{=}{"line"}\right)$ (2)
 > $P\left[1\right]$
 ${\mathrm{ColorTools}}{:-}{\mathrm{Color}}{}\left({"RGB"}{,}\left[{0.20000000}{,}{0.30196078}{,}{0.39215686}\right]{,}{\mathrm{caption}}{=}{"Gray Blue"}\right)$ (3)
 > $n≔\mathrm{numcolors}\left(P\right)$
 ${n}{≔}{16}$ (4)
 > $\mathrm{plot}\left(\left[\mathrm{seq}\left(\mathrm{sin}\left(x+\frac{i\mathrm{\pi }}{n}\right),i=1..n\right)\right],x=0..2\mathrm{\pi },\mathrm{axes}=\mathrm{boxed},\mathrm{color}=:-\mathrm{GetColors}\left(P\right)\left[1..n\right],\mathrm{legend}=:-\mathrm{GetColorNames}\left(P\right)\left[1..n\right],\mathrm{numpoints}=25,\mathrm{style}=\mathrm{line}\right)$

ColorTools algorithms will automatically generate new colors beyond the main 16 colors:

 > $P\left[20\right]$
 ${\mathrm{ColorTools}}{:-}{\mathrm{Color}}{}\left({"RGB"}{,}\left[{0.8982206807}{,}{0.6347753198}{,}{1.871807344}{}{{10}}^{{-9}}\right]\right)$ (5)

The Nautical palette is designed for lines, but the Lookup command can provide slightly altered shades of its colors for use in coloring points or filling regions.

 > $\mathrm{Lookup}\left(P,1,\mathrm{shade}="fill"\right)$
 ${\mathrm{ColorTools}}{:-}{\mathrm{Color}}{}\left({"RGB"}{,}\left[{0.31083526}{,}{0.36263651}{,}{0.41689079}\right]\right)$ (6)
 > $\mathrm{Lookup}\left(P,1,\mathrm{shade}="point"\right)$
 ${\mathrm{ColorTools}}{:-}{\mathrm{Color}}{}\left({"RGB"}{,}\left[{0.026762105}{,}{0.24365793}{,}{0.36685418}\right]\right)$ (7)
 >