SET PEN

Defines part or all of the color map.

SET PEN pen-number COLOR { h, s, l | numeric-array(*) }

SET PEN pen-number INTENSITY { r, g, b | numeric-array(*) }

Usage:

SET PEN Num COLOR H,S,L

SET PEN Crayons COLOR Hslarray(*)

SET PEN Name INTENSITY Red,Green,Blue

SET PEN 1 INTENSITY 3/15,5/15,9/15

Example: SET PEN.BAS

Description:

The SET PEN statement changes the color map values used for each available pen number. A color may be specified in either RGB or HSL color space (see COLOR for an explanation about RGB and HSL color spaces). Redefine multiple pens using the array specifier or redefine individual pens by specifying one HSL or RGB color value. In either case, the pen-number specifies the first entry in the color map to be defined. The pen-number is a numeric expression which is rounded to an integer and should be in the range 0 to n-1, where n is the number of colors.

The closest possible color will be used if the computer display cannot display the color you select. When drawing an area in a certain color, it may be possible to produce the color more accurately by specifying SET PEN followed by AREA PEN, rather than specifying AREA COLOR or AREA INTENSITY.

Any pixels already drawn with the specified pen are changed to the new. All SET PEN statements take effect immediately upon execution. The effects of all SET PEN statements last until the next SET PEN statement of the same type, or until GINIT or QUIT. In cases where dithering is used, changing the color map changes the colors available to the dithering process.

Array

If an array is used to set more than one pen, the array must be 2-dimensional and have 3 columns. The number of rows determines the number of pens set. For example,

1!RE-SAVE"WINCLR.BAS"

10 PLOTTER IS CRT,"INTERNAL";COLOR MAP

20 DATA .5,.5,.5 ! 8 = dark grey

30 DATA .75,.75,.75 ! 9 = light grey

40 DATA .5, 0, 0 ! 10 = dark red

50 DATA .5,.5, 0 ! 11 = dark yellow

60 DATA 0,.5, 0 ! 12 = dark green

70 DATA 0,.5,.5 ! 13 = dark cyan

80 DATA 0, 0,.5 ! 14 = dark blue

90 DATA .5, 0,.5 ! 15 = dark magenta

180 !

190 DIM Palette(8:15,1:3)

200 READ Palette(*)

210 SET PEN 8 INTENSITY Palette(*)

220 END

See Also:

AREA PEN, COLOR, PEN, PLOTTER IS