unit fastgraph

author: Tomasz Biela (Tebe)


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

Interface:

name:description:
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; register;


      Puts a point at (X,Y) using color Color
        GetPixel

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


        Return color of pixel
          fLine

          procedure fLine(x0,y0,x1,y1: byte); assembler;


          DRAWTO in Graphics 8, 9, 15 A quick hack by eru
            LineTo

            procedure LineTo(x, y: smallint);


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

              procedure fRectangle(x1, y1, x2, y2: Smallint);


              Draws a rectangle with corners at (X1,Y1) and (X2,Y2), using the current color and style
                FrameBuffer

                procedure FrameBuffer(a: word); assembler;



                  InitGraph

                  procedure InitGraph(mode: byte); overload;


                  Init graphics mode