ALTER-COLOR-MAP

Syntax

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

Description

Dynamically alters a defined color.

The ALTER-COLOR-MAP command is allowed wherever the PRINT command is allowed. This command enables you to dynamically alter a defined color. You cannot use this command to define a new color.

Parameters

Parameter Description

NAME

Defines the name of the color that you want to alter. For example, light blue.

VALUE

Defines the RGB value of the color that you want to alter, for example, (193, 233, 230).

{color_name_lit | _var | _col}

The color_name is composed of alphanumeric characters (A–Z, 0–9), the underscore (_) character, and the hyphen (-) character. It must start with an alpha (A–Z) character and is not case-sensitive. The name 'none' is reserved and cannot be assigned a value. A name in the format (RGBredgreenblue) cannot be assigned a value. The name 'default' is reserved and can be assigned a value. '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 the BEGIN-SETUP section, only literal values are allowed.

The default colors implicitly installed with SQR include:

  • 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)

Example

The following example illustrates the ALTER-COLOR-MAP command:

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

See DECLARE-COLOR-MAP SET-COLOR, GET-COLOR