unit graph

author: Tomasz Biela (Tebe)


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

Interface:

name:description:
InitGraph

procedure InitGraph(mode: byte); overload;


Init graphics mode
    SetBkColor

    procedure SetBkColor(color: byte); assembler;


    Sets the background color to Color
      GetColor

      function GetColor: byte; assembler;


      Return current drawing color
        SetColor

        procedure SetColor(color: byte); assembler;


        Sets the foreground color to Color
          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
              GetPixel

              function GetPixel(x,y: smallint): byte; assembler;


              Return color of pixel
                LineTo

                procedure LineTo(x, y: smallint); assembler;


                Draw a line starting from current position to a given point
                  Line

                  procedure Line(x1, y1, x2, y2: smallint);


                  Draw a line between 2 points
                    fLine

                    procedure fLine(x0, y0, x1, y1: smallint);


                    Draw a line between 2 points