Index

%MOUSE
(%MOUSE ax bx cx
angles
(ARC center-point start-angle end-angle | (ELLIPSE center-point start-angle end-angle
animate
(PUT-IMAGE new-upper-left-point image-string put-mode)
ARC
And further... | (ARC center-point start-angle end-angle | (ARC center-point start-angle end-angle
arguments
optional
What is different in | PCSCHEME BGI primitives reference
ATT-400
What is BGI? | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (SET-COLOR color)
{\itt 'ATT400-C0}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'ATT400-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'ATT400-MED}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
auto-detection
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'BACKGROUND}
(SET-COLOR color) | (SET-COLOR color) | (SET-COLOR color) | (SET-COLOR color)
BAR
(BAR upper-left-point lower-right-point)
BAR-3D
(BAR-3D upper-left-point lower-right-point depth
.BGI
What is BGI? | What is BGI? | (GET-DRIVER-NAME)
bitmapping
no title
{\itt 'BKSLASH}
(SET-FILL-STYLE fill-style color)
{\itt 'BLACK}
(SET-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color)
{\itt 'BLUE}
Coordinate systems | (SET-FILL-PATTERN fill-pattern color) | (SET-FILL-PATTERN fill-pattern color) | (SET-COLOR color) | (SET-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color)
{\itt 'BOLD}
(SET-TEXT-STYLE font direction size)
BOOTSTRP.APP
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
Borland
MANUAL | What is BGI? | What is BGI? | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (GET-MODE-RANGE [driver])
{\itt 'BOTTOM}
(SET-TEXT-JUSTIFY horiz-just vert-just)
{\itt 'BROWN}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'CENTER}
(SET-LINE-STYLE line-style user-pattern thickness) | (SET-TEXT-JUSTIFY horiz-just vert-just) | (SET-TEXT-JUSTIFY horiz-just vert-just)
CGA
What is BGI? | Coordinate systems | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (SET-COLOR color) | (SET-COLOR color) | (SET-BK-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color)
{\itt 'CGA-BROWN}
(SET-COLOR color)
{\itt 'CGA-C0}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'CGA-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'CGA-LIGHT-GRAY}
(SET-COLOR color)
{\itt 'CGA-LIGHT-GREEN}
(SET-COLOR color)
{\itt 'CGA-LIGHT-MAGENTA}
(SET-COLOR color)
{\itt 'CGA-LIGHT-RED}
(SET-COLOR color)
{\itt 'CGA-MAGENTA}
(SET-COLOR color)
{\itt 'CGA-RED}
(SET-COLOR color)
{\itt 'CGA-WHITE}
(SET-COLOR color)
{\itt 'CGA-YELLOW}
(SET-COLOR color)
charts
(BAR-3D upper-left-point lower-right-point depth
CIRCLE
And further... | (CIRCLE center-point radius)
CLEAR-DEVICE
(CLEAR-DEVICE)
CLEAR-VIEWPORT
(CLEAR-VIEWPORT)
clipping
Coordinate systems | no title
{\itt 'CLOSE-DOT}
(SET-FILL-STYLE fill-style color)
CLOSE-GRAPH
(CLOSE-GRAPH)
color
What is BGI? | How to use SPY | PCSCHEME BGI primitives reference | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (GRAPH-DEFAULTS) | Using Color
4-color
Coordinate systems
background
(GET-BK-COLOR)
fill
(SET-FILL-STYLE fill-style color) | (SET-FILL-PATTERN fill-pattern color)
maximal
(GET-MAX-COLOR)
palette
(SET-ALL-PALETTE color-list)
RGB
(SET-RGB-PALETTE entry red green
stop
(FLOOD-FILL start-point stop-color)
compatibility
What is BGI?
{\itt 'COMPLEX}
(SET-TEXT-STYLE font direction size)
{\itt 'CONSOLE}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
constants
What is different in
coordinate
What is different in | Coordinate systems
{\itt 'COPY}
(SET-WRITE-MODE wmode) | (PUT-IMAGE new-upper-left-point image-string put-mode)
{\itt 'CYAN}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'DARK-GRAY}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'DASHED}
(SET-LINE-STYLE line-style user-pattern thickness)
debugging
What is BGI?
{\itt 'DEFAULT}
(SET-TEXT-STYLE font direction size) | (SET-TEXT-STYLE font direction size)
degrees
(ARC center-point start-angle end-angle
depth
no title
{\itt 'DETECT}
What is different in | What is different in | What is different in | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (DETECT-GRAPH)
DETECT-GRAPH
(DETECT-GRAPH)
displacement
And further...
distance
And further... | (ELLIPSE center-point start-angle end-angle | no title | no title
unary
And further...
document
What is BGI?
{\itt 'DOTTED}
What is different in | (SET-LINE-STYLE line-style user-pattern thickness)
DRAW-POLY
(DRAW-POLY list-of-points)
driver
What is BGI?
user-supplied
(INSTALL-USER-DRIVER name)
drivers
user-supplied
The PS and SPY
E-Mail
MANUAL
EGA
What is BGI? | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (SET-COLOR color) | (SET-BK-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color) | (SET-PALETTE entry color)
{\itt 'EGA-BLACK}
(SET-PALETTE entry color) | (SET-PALETTE entry color)
{\itt 'EGA-BLUE}
(SET-PALETTE entry color) | (SET-PALETTE entry color)
{\itt 'EGA-BROWN}
(SET-PALETTE entry color)
{\itt 'EGA-CYAN}
(SET-PALETTE entry color)
{\itt 'EGA-DARK-GRAY}
(SET-PALETTE entry color)
{\itt 'EGA-GREEN}
(SET-PALETTE entry color) | (SET-PALETTE entry color)
{\itt 'EGA-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'EGA-LIGHT-BLUE}
(SET-PALETTE entry color)
{\itt 'EGA-LIGHT-CYAN}
(SET-PALETTE entry color)
{\itt 'EGA-LIGHT-GRAY}
(SET-PALETTE entry color)
{\itt 'EGA-LIGHT-GREEN}
(SET-PALETTE entry color)
{\itt 'EGA-LIGHT-MAGENTA}
(SET-PALETTE entry color)
{\itt 'EGA-LIGHT-RED}
(SET-PALETTE entry color)
{\itt 'EGA-LO}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'EGA-MAGENTA}
(SET-PALETTE entry color)
{\itt 'EGA-RED}
(SET-PALETTE entry color) | (SET-PALETTE entry color)
{\itt 'EGA-WHITE}
(SET-PALETTE entry color) | (SET-PALETTE entry color)
{\itt 'EGA-YELLOW}
(SET-PALETTE entry color)
{\itt 'EGA64}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'EGA64-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'EGA64-LO}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'EGAMONO}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'EGAMONO-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
ELLIPSE
And further... | (ELLIPSE center-point start-angle end-angle
{\itt 'EMPTY}
(SET-FILL-STYLE fill-style color)
environment
How to use PS
Euclid
And further...
{\itt 'EUROPEAN}
(SET-TEXT-STYLE font direction size)
exponential
And further...
FILL-ELLIPSE
And further... | (FILL-ELLIPSE center-point distances)
FILL-POLY
(FILL-POLY list-of-points)
filling
Filling
FLOOD-FILL
(FLOOD-FILL start-point stop-color)
font
(SET-TEXT-STYLE font direction size)
gothic
What is different in
user-supplied
(INSTALL-USER-FONT name)
GET-ARC-COORDS
(ARC center-point start-angle end-angle | (GET-ARC-COORDS)
GET-ASPECT-RATIO
(GET-ASPECT-RATIO)
GET-BK-COLOR
(GET-BK-COLOR)
GET-COLOR
PCSCHEME BGI primitives reference | (GET-COLOR)
GET-DEFAULT-PALETTE
(GET-DEFAULT-PALETTE)
GET-DRIVER-NAME
(GET-DRIVER-NAME)
GET-FILL-PATTERN
(GET-FILL-SETTINGS) | (GET-FILL-PATTERN)
GET-FILL-SETTINGS
(GET-FILL-SETTINGS)
GET-GRAPH-MODE
PCSCHEME BGI primitives reference | (GET-GRAPH-MODE)
GET-IMAGE
(GET-IMAGE upper-left-point lower-right-point)
GET-LINE-SETTINGS
(GET-LINE-SETTINGS)
GET-MAX-COLOR
(GET-MAX-COLOR)
GET-MAX-MODE
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (SET-GRAPH-MODE [mode]) | (GET-MODE-RANGE [driver]) | (GET-MAX-MODE)
GET-MAX-XY
Coordinate systems | And further... | (GET-MAX-XY)
GET-MODE-NAME
(GET-MODE-NAME mode)
GET-MODE-RANGE
(GET-MODE-RANGE [driver])
GET-PALETTE
(GET-PALETTE)
GET-PALETTE-SIZE
(GET-PALETTE-SIZE)
GET-PIXEL
(GET-PIXEL point)
GET-TEXT-SETTINGS
PCSCHEME BGI primitives reference | (GET-TEXT-SETTINGS)
GET-VIEW-SETTINGS
(GET-VIEW-SETTINGS)
GET-XY
(GET-XY)
ghostscript
The PS and SPY
GNU
The PS and SPY
{\itt 'GOTHIC}
What is different in | (SET-TEXT-STYLE font direction size)
GRAPH-DEFAULTS
(GRAPH-DEFAULTS)
GRAPH-ERROR-MSG
(GRAPH-ERROR-MSG error-id)
GRAPH-RESULT
(GRAPH-RESULT)
{\itt 'GREEN}
(SET-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color)
grey
10%
(SET-FILL-STYLE fill-style color)
20%
(SET-FILL-STYLE fill-style color)
50%
(SET-FILL-STYLE fill-style color)
{\itt 'HATCH}
(SET-FILL-STYLE fill-style color)
{\itt 'HERCMONO}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'HERCMONO-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
HERCULES
What is BGI?
hershey
How to use PS
{\itt 'HORIZ}
(OUT-TEXT text-string) | (SET-TEXT-STYLE font direction size)
HP95LX
What is BGI? | (FLOOD-FILL start-point stop-color)
IBM-8514
What is BGI? | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (DETECT-GRAPH) | (FLOOD-FILL start-point stop-color) | (SET-PALETTE entry color) | (SET-RGB-PALETTE entry red green
{\itt 'IBM8514-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'IBM8514-LO}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
IMAGE-SIZE
(GET-IMAGE upper-left-point lower-right-point) | (IMAGE-SIZE upper-left-point lower-right-point)
INIT-GRAPH
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (RESTORE-CRT-MODE) | (SET-GRAPH-MODE [mode]) | (SET-ACTIVE-PAGE page) | (GET-DRIVER-NAME)
initgraph(...)
What is different in
INSTALL-USER-DRIVER
The PS and SPY | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (INSTALL-USER-DRIVER name)
INSTALL-USER-FONT
(INSTALL-USER-FONT name) | (SET-TEXT-STYLE font direction size)
{\itt 'INTERLEAVE}
(SET-FILL-STYLE fill-style color)
justification
(SET-TEXT-JUSTIFY horiz-just vert-just)
{\itt 'LEFT}
(OUT-TEXT text-string) | (SET-TEXT-JUSTIFY horiz-just vert-just) | (SET-TEXT-JUSTIFY horiz-just vert-just)
{\itt 'LIGHT-BLUE}
What is different in | (SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'LIGHT-CYAN}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'LIGHT-GRAY}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'LIGHT-GREEN}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'LIGHT-MAGENTA}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'LIGHT-RED}
(SET-COLOR color) | (SET-BK-COLOR color)
{\itt 'LINE}
(LINE start-point end-point) | (SET-FILL-STYLE fill-style color)
LINE-REL
And further... | And further... | (LINE-REL distances)
LINE-TO
(LINE-TO point) | (LINE-REL distances)
lines
user-defined
(SET-LINE-STYLE line-style user-pattern thickness)
lists
What is different in
{\itt 'LTBKSLASH}
(SET-FILL-STYLE fill-style color)
{\itt 'LTSLASH}
(SET-FILL-STYLE fill-style color)
{\itt 'MAGENTA}
(SET-COLOR color) | (SET-BK-COLOR color)
MCGA
What is BGI? | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (SET-COLOR color)
{\itt 'MCGA-C0}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'MCGA-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'MCGA-MED}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
Microsoft
no title
mode
(SET-GRAPH-MODE [mode])
CGA
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
graphics
Coordinate systems
PS
How to use PS
SPY
How to use SPY
write
(SET-WRITE-MODE wmode)
modes
PCSCHEME BGI primitives reference
MOUSE
no title | (MOUSE message [parameters])
MOVE-REL
And further... | (MOVE-REL distances) | (LINE-REL distances)
MOVE-TO
And further... | (MOVE-TO point) | (MOVE-REL distances)
{\itt 'NORMAL}
(SET-LINE-STYLE line-style user-pattern thickness)
OUT-TEXT
(OUT-TEXT text-string)
OUT-TEXT-XY
(OUT-TEXT-XY start-point text-string)
page
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
active
(SET-ACTIVE-PAGE page)
visual
(SET-VISUAL-PAGE page)
palette
How to use PS | PCSCHEME BGI primitives reference | (SET-PALETTE entry color)
CGA
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
palette
RGB
(SET-RGB-PALETTE entry red green
Pascal
MANUAL
path (BGI)
no title
pattern
user-defined
(SET-FILL-PATTERN fill-pattern color)
{\itt 'PC3270}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'PC3270-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
PCS-SYSDIR
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
pen
And further... | (GRAPH-DEFAULTS) | (MOVE-TO point) | (LINE-TO point) | (MOVE-REL distances) | (CLEAR-DEVICE) | (SET-VIEWPORT upper-left-point lower-right-point clip?) | (CLEAR-VIEWPORT) | (OUT-TEXT text-string) | (OUT-TEXT text-string) | (GET-XY)
pi
Coordinate systems
PIE-SLICE
And further... | (PIE-SLICE center-point start-angle end-angle
pixel
Coordinate systems | How to use PS | (PUT-PIXEL point color)
plot
Coordinate systems | Coordinate systems | (PUT-PIXEL point color)
plug-and-play
The PS and SPY
point
What is different in | Coordinate systems | Coordinate systems | And further... | And further... | And further... | And further... | And further... | And further... | And further... | How to use PS | (GET-IMAGE upper-left-point lower-right-point)
POINT?
And further...
polygon
What is different in | (SET-WRITE-MODE wmode) | (FILL-POLY list-of-points)
PostScript
What is BGI? | The PS and SPY
Encapsulated
How to use PS
printer
What is BGI? | The PS and SPY | How to use PS
laser
The PS and SPY
projection
And further...
PS$
How to use PS
PUT-IMAGE
(SET-WRITE-MODE wmode) | (PUT-IMAGE new-upper-left-point image-string put-mode)
PUT-PIXEL
(PUT-PIXEL point color)
ratios
(SET-USER-CHAR-SIZE x-ratio y-ratio)
RECTANGLE
(RECTANGLE upper-left-point lower-right-point)
{\itt 'RED}
(SET-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color)
resolution
What is BGI? | Coordinate systems | How to use SPY | How to use PS | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (GET-MAX-XY)
RESTORE-CRT-MODE
(RESTORE-CRT-MODE) | (SET-GRAPH-MODE [mode])
RESTORE-WORLD!
And further...
rewrite
(PUT-IMAGE new-upper-left-point image-string put-mode)
{\itt 'RIGHT}
(SET-TEXT-JUSTIFY horiz-just vert-just)
{\itt 'SANS-SERIF}
(SET-TEXT-STYLE font direction size)
{\itt 'SCRIPT}
(SET-TEXT-STYLE font direction size)
SECTOR
And further... | (SECTOR center-point start-angle end-angle
SET-ACTIVE-PAGE
(SET-ACTIVE-PAGE page)
SET-ALL-PALETTE
(SET-ALL-PALETTE color-list)
SET-ASPECT-RATIO
(CIRCLE center-point radius) | (SET-ASPECT-RATIO factor) | (PIE-SLICE center-point start-angle end-angle
SET-BK-COLOR
(SET-COLOR color) | (SET-BK-COLOR color)
SET-COLOR
What is different in | (SET-FILL-STYLE fill-style color) | (PUT-PIXEL point color) | (SET-COLOR color)
SET-COORDINATES!
And further...
SET-DISTANCES!
And further...
SET-FILL-PATTERN
(SET-FILL-STYLE fill-style color) | (SET-FILL-PATTERN fill-pattern color)
SET-FILL-STYLE
(SET-FILL-STYLE fill-style color) | (SET-FILL-PATTERN fill-pattern color)
SET-GRAPH-MODE
(RESTORE-CRT-MODE) | (SET-GRAPH-MODE [mode]) | (GET-GRAPH-MODE)
SET-LINE-STYLE
What is different in | (SET-LINE-STYLE line-style user-pattern thickness)
SET-PALETTE
(SET-COLOR color) | (SET-PALETTE entry color)
SET-POINT?-!
And further...
SET-RGB-PALETTE
(SET-PALETTE entry color) | (SET-RGB-PALETTE entry red green
SET-TEXT-JUSTIFY
(OUT-TEXT-XY start-point text-string) | (SET-TEXT-JUSTIFY horiz-just vert-just)
SET-TEXT-STYLE
What is different in | (OUT-TEXT-XY start-point text-string) | (SET-TEXT-STYLE font direction size)
SET-USER-CHAR-SIZE
(SET-TEXT-STYLE font direction size) | (SET-USER-CHAR-SIZE x-ratio y-ratio)
SET-VIEWPORT
(SET-VIEWPORT upper-left-point lower-right-point clip?) | (GET-VIEW-SETTINGS)
SET-VISUAL-PAGE
(SET-VISUAL-PAGE page)
SET-WORLD!
Coordinate systems
SET-WRITE-MODE
(SET-WRITE-MODE wmode) | (SET-WRITE-MODE wmode)
{\itt 'SIMPLEX}
(SET-TEXT-STYLE font direction size)
size
page (PS)
How to use PS
points
How to use PS
{\itt 'SLASH}
(SET-FILL-STYLE fill-style color)
{\itt 'SMALL}
(SET-TEXT-STYLE font direction size)
{\itt 'SOLID}
(SET-LINE-STYLE line-style user-pattern thickness) | (SET-FILL-STYLE fill-style color)
SPY
What is BGI? | no title
SUPER-VGA
What is BGI? | How to use PS | (SET-RGB-PALETTE entry red green
symbol
driver
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
redundancy
What is different in
symbols
and numbers
PCSCHEME BGI primitives reference
TEX
How to use PS
text
direction
(SET-TEXT-STYLE font direction size)
font
(SET-TEXT-STYLE font direction size)
size
(SET-TEXT-STYLE font direction size)
TEXT-SIZE
(TEXT-SIZE text-string)
{\itt 'THICK}
(SET-LINE-STYLE line-style user-pattern thickness)
thickness
(SET-LINE-STYLE line-style user-pattern thickness)
{\itt 'TOP}
(BAR-3D upper-left-point lower-right-point depth | (SET-TEXT-JUSTIFY horiz-just vert-just)
{\itt 'TRIPLEX}
(SET-TEXT-STYLE font direction size)
{\itt 'TRIPLEX-SCR}
(SET-TEXT-STYLE font direction size)
{\itt 'USER-BIT}
(SET-LINE-STYLE line-style user-pattern thickness) | (SET-LINE-STYLE line-style user-pattern thickness)
{\itt 'USER-FILL}
(SET-FILL-STYLE fill-style color) | (SET-FILL-STYLE fill-style color) | (GET-FILL-SETTINGS)
{\itt 'VERT}
(SET-TEXT-STYLE font direction size)
VGA
What is BGI? | (INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]]) | (SET-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color) | (SET-PALETTE entry color) | (SET-RGB-PALETTE entry red green
{\itt 'VGA-HI}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'VGA-LO}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
{\itt 'VGA-MED}
(INIT-GRAPH [driver [graph-mode [path-for-BGI-files]]])
viewport
(GRAPH-DEFAULTS) | (SET-VIEWPORT upper-left-point lower-right-point clip?)
{\itt 'WHITE}
(SET-COLOR color) | (SET-BK-COLOR color) | (SET-PALETTE entry color)
{\itt 'WIDE-DOT}
(SET-FILL-STYLE fill-style color)
writing
Writing text
{\itt 'XHATCH}
(SET-FILL-STYLE fill-style color)
{\itt 'XOR}
(SET-WRITE-MODE wmode) | (PUT-IMAGE new-upper-left-point image-string put-mode)
{\itt 'YELLOW}
(SET-COLOR color) | (SET-BK-COLOR color)