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


         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


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


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

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

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