GETCOL
                                     ======

                   Get the native colour of INK, STRIP, or PAPER
                   ---------------------------------------------

Its sometimes useful to be able to find the current ink, strip or paper
colour of a given scr/con channel.

Note: The colours returned by GETCOL% are only the plain, basic colours.
Dealing with stripes and stipples is a different matter, not dealt with
here.


Usage
-----

         colour_native% = GETCOL%(#channel_no, key%)        default #1

Where key%
        -1 => paper
         0 => strip
         1 => ink


Remember that in GD2 the colour code returned represents the NATIVE
colour. Ie to use the colour you need to invoke

        COLOUR_NATVE

and then, if necessary, restore the setting required for other parts of
your program:


Example
-------

Say you want to draw a block in the same colour as your ink (which for
some reason you dont know what it is!):

COLOUR_24
..
..
cn% = GETCOL%(#ch; 1): REMark Get INK colour
COLOUR_NATIVE
BLOCK#ch; 100, 100, 0, 0, cn%
COLOUR_24
..

See TstCol_bas for a simple example.

For an example of how to get or convert a Wman colour code into a real
colour, see the WMCol_bas routine for ideas..


Software status
---------------

V0.01, pjw, 2015 Feb 26 (separate keywords for paper, strip, ink)
V0.02, pjw, 2019 Apr 06, modularised
V0.03, pjw, 2019 Aug 23, one command, all modes, pickn'mix format

Conditions of use and disclaimer as per Knoware.no