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