Thanks, Jonas. I will deep inside it.
2007/7/16, Jonas Maebe <[EMAIL PROTECTED]>:
On 14 Jul 2007, at 16:01, Evgeniy Ivanov wrote:
> I'm doing sdlgraph - so I put my self to packages/base/graph.
graph probably has to be moved to packages/extra, so it can easily
use things like sdl and the (Mac OS X) universal interfaces.
> I can't understand the method (where are they used?) using routines in
> TModeInfo (from graphh.inc).
> In custom graph modules it's used in such way:
> mode.PutPixel:={$ifdef [EMAIL PROTECTED];
> But in windows and go32v2 there are no any routines for PutPixel from
> interface.
They don't need to be in the interface. PutPixel is a procedure
variable, and the only thing that needs to be in the interface (and
it's declared in graphh.inc, which is included in the interface of
the go32v2 and win32 unts). The procedures which are assigned to this
procvar do not have to be in the interface.
> I mean someting like
> PutPixel := @custom_PutPixel; (PutPixel :=
> @libvga_PutPixelProc; - in the unix graph.pp).
>
> So, if there are no such assignations (sorry, I don't know the
> right word)
> PutPixelDefault from graph.inc will be used...
> And it is:
> procedure PutPixelDefault(X,Y: smallint; Color: Word);
> begin
> Writeln(stderr,'Error: Not in graphics mode (use InitGraph and
> test
> GraphResult afterwards)');
> Halt(1);
> end;
>
> But windows module works...
Have a look at QueryAdapterInfo in graph.pp of go32v2. It has many
blocks like this:
InitMode(mode);
{ now add all standard VGA modes... }
mode.DriverNumber:= LowRes;
mode.HardwarePages:= 0;
mode.ModeNumber:=0;
mode.ModeName:='320 x 200 VGA';
mode.MaxColor := 256;
mode.PaletteSize := mode.MaxColor;
mode.DirectColor := FALSE;
mode.MaxX := 319;
mode.MaxY := 199;
mode.DirectPutPixel:={$ifdef [EMAIL PROTECTED];
> mode.PutPixel:={$ifdef [EMAIL PROTECTED];
mode.GetPixel:={$ifdef [EMAIL PROTECTED];
mode.SetRGBPalette := {$ifdef [EMAIL PROTECTED];
mode.GetRGBPalette := {$ifdef [EMAIL PROTECTED];
mode.SetAllPalette := {$ifdef [EMAIL PROTECTED]
SetVGARGBAllPalette;
mode.SetVisualPage := {$ifdef [EMAIL PROTECTED];
mode.SetActivePage := {$ifdef [EMAIL PROTECTED];
mode.InitMode := {$ifdef [EMAIL PROTECTED];
mode.XAspect := 10000;
mode.YAspect := 10000;
AddMode(mode);
When switching to a mode, initgraph will assign the putpixel field of
that mode to the global putpixel procvar.
Jonas
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
--
E.I.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
