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

procedure SetActiveBuffer(var a: TDisplayBuffer);



    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
                    HLine

                    procedure HLine(x1,x2,y: smallint);


                    Draw horizontal line between 2 points
                      fLine

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


                      Draw a line between 2 points
                        Scanline

                        function Scanline(y: smallint): PByte;


                        ScanLine give access to memory starting point for each row raw data.