ALTER-COLOR-MAP

Function

Dynamically alters a color.

Syntax

ALTER-COLOR-MAP
NAME={color_name_lit|_var|_col}
VALUE=({color_name_lit|_var|_col}|{rgb})

Arguments

NAME

Name of the color. For example, light blue.

VALUE

RGB value of the color. For example, (193, 233, 230).

{color_name_lit|_var|_col}

Includes alphanumeric characters (A-Z, 0-9), the underscore (_), and the dash (-)
Must start with an alpha (A-Z) character
Case insensitive
A name in the format (RGBredgreenblue) cannot be assigned a value.
'None' and 'default' are reserved. 'Default' is used during execution when a referenced color is not defined in the runtime environment.

{rgb}

red_lit|_var|_col, green_lit|_var|_col, blue_lit|_var|_col where each component is a value in the range of 000 to 255. In BEGIN-SETUP, only literal values are allowed.

Default colors implicitly installed with Production Reporting:

black= (0,0,0)

white=(255,255,255)

gray=(128,128,128)

silver=(192,192,192)

red=(255,0,0)

green=(0,255,0)

blue=(0,0,255)

yellow=(255,255,0)

purple=(128,0,128)

olive=(128,128,0)

navy=(0,0,128)

aqua=(0,255,255)

lime=(0,128,0)

maroon=(128,0,0)

teal=(0,128,128)

fuchsia=(255,0,255)

Description

ALTER-COLOR-MAP is allowed wherever PRINT is allowed. ALTER-COLOR-MAP dynamically alters a color; it does not define a color.

Examples

begin-setup
  declare-color-map
    light_blue = (193, 222, 229)
  end-declare
end-setup

begin-program
  alter-color-map name = 'light_blue' value = (193, 233, 230)
  print 'Yellow Submarine' ()
    foreground = ('yellow')
    background = ('light_blue')
  get-color print-text-foreground = ($print-foreground)  
  set-color print-text-foreground = ('purple')
  print 'Barney' (+1,1)
  set-color print-text-foreground = ($print-foreground)
end-program