unit graph

Unit to handle screen graphics

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
      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