# unit graph

author: Tomasz Biela (Tebe)

http://www.freepascal.org/docs-html/rtl/graph/index-5.html

## Interface:

name: | description:
--- | ---
fLine | #### procedure fLine(x0, y0, x1, y1: smallint); Draw a line between 2 points
GetColor | #### function GetColor: byte; assembler; Return current drawing color
GetPixel | #### function GetPixel(x,y: smallint): byte; assembler; Return color of pixel
InitGraph | #### procedure InitGraph(mode: byte); overload; Init graphics mode
Line | #### procedure Line(x1, y1, x2, y2: smallint); Draw a line between 2 points
LineTo | #### procedure LineTo(x, y: smallint); assembler; Draw a line starting from current position to a given point
PutPixel | #### procedure PutPixel(x,y: smallint); assembler; overload; Puts a point at (X,Y) using color Color
PutPixel | #### procedure PutPixel(x,y: smallint; color: byte); overload; Puts a point at (X,Y) using color Color
SetBkColor | #### procedure SetBkColor(color: byte); assembler; Sets the background color to Color
SetColor | #### procedure SetColor(color: byte); assembler; Sets the foreground color to Color