-- (c) Copyright - See License.txt

--

--****

-- === Error Code Constants

--

namespace graphcst

public enum

--****

-- === video_config sequence accessors

public enum

-- COLOR values -- for characters and pixels

--** in graphics modes BLACK is "transparent"

--****

-- ==== Colors

--

public constant

$

export constant true_color = { 0, 4, 2, 6, 1, 5, 3, 7, 8,12,10,14, 9,13,11,15,

16,20,18,22,17,21,19,23,24,28,26,28,25,29,17,31}

-- BLACK = 0,

-- RED = 1,

-- GREEN = 2,

-- BROWN = 3,

-- BLUE = 4,

-- MAGENTA = 5,

-- CYAN = 6,

-- WHITE = 7,

-- GRAY = 8,

-- BRIGHT_RED = 9,

-- BRIGHT_GREEN = 10,

-- YELLOW = 11,

-- BRIGHT_BLUE = 12,

-- BRIGHT_MAGENTA = 13,

-- BRIGHT_CYAN = 14,

-- BRIGHT_WHITE = 15,

elsifdef UNIX then

16,20,18,22,17,21,19,23,24,28,26,28,25,29,17,31}

-- BLACK = 0,

-- RED = 1,

-- GREEN = 2,

-- BROWN = 3,

-- BLUE = 4,

-- MAGENTA = 5,

-- CYAN = 6,

-- WHITE = 7,

-- GRAY = 8,

-- BRIGHT_RED = 9,

-- BRIGHT_GREEN = 10,

-- YELLOW = 11,

-- BRIGHT_BLUE = 12,

-- BRIGHT_MAGENTA = 13,

-- BRIGHT_CYAN = 14,

-- BRIGHT_WHITE = 15,

end ifdef

--**

-- Add to color to get blinking text

end type

--****

-- === Routines

--**

-- Mixture Type

--

-- Comments:

--

-- A mixture is a ##{red, green, blue}## triple of intensities, which enables you to define

-- custom colors. Intensities must be from 0 (weakest) to 63 (strongest). Thus, the brightest

-- white is {63, 63, 63}.

end if

end if

end if

end type

constant

--**

-- Return a description of the current video configuration:

--

-- Returns:

-- A **sequence**, of 10 non-negative integers, laid out as follows:

-- # color monitor? ~-- 1 0 if monochrome, 1 otherwise

-- # current video mode

-- # number of text rows in console buffer

-- # number of text columns in console buffer

-- # screen width in pixels

-- # screen height in pixels

-- # number of colors

-- # number of display pages

-- # number of text rows for current screen size

-- # number of text columns for current screen size

--

-- Comments:

--

-- A public enum is available for convenient access to the returned configuration data:

-- * ##VC_COLOR##

-- * ##VC_MODE##

-- * ##VC_LINES##

-- * ##VC_COLUMNS##

-- * ##VC_XPIXELS##

-- * ##VC_YPIXELS##

-- * ##VC_NCOLORS##

-- * ##VC_PAGES##

-- * ##VC_LINES##

-- * ##VC_COLUMNS##

-- * ##VC_SCRNLINES##

-- * ##VC_SCRNCOLS##

--

-- This routine makes it easy for you to parameterize a program so it will work in many

-- different graphics modes.

--

-- Example:

--

-- vc = video_config()

-- -- vc could be {1, 3, 300, 132, 0, 0, 32, 8, 37, 90}

--

--

-- See Also:

-- [[:graphics_mode]]

end function