pythianproject-cvsmail — receives automatic CVS updates

[Pythianproject-cvsmail] CVS: GLForm - Imported sources

[Darryl L. <py...@us...>]

Update of /cvsroot/pythianproject//GLForm
In directory slayer.i.sourceforge.net:/tmp/cvs-serv28729

Log Message:
no message

Status:

Vendor Tag:	avendor
Release Tags:	arelease
		
N GLForm/GLFormTest.res
N GLForm/GLFormTest.dpr
N GLForm/GLForms.pas
N GLForm/Main.pas
N GLForm/Main.dfm
N GLForm/GLFormTest.dof
N GLForm/GLFormTest.cfg
N GLForm/debug.txt
N GLForm/pythiancvs/prototypes/glform/GLFormTest.cfg
N GLForm/pythiancvs/prototypes/glform/GLFormTest.dof
N GLForm/pythiancvs/prototypes/glform/GLFormTest.dpr
N GLForm/pythiancvs/prototypes/glform/GLFormTest.res
N GLForm/pythiancvs/prototypes/glform/GLForms.pas
N GLForm/pythiancvs/prototypes/glform/Main.dfm
N GLForm/pythiancvs/prototypes/glform/Main.pas
N GLForm/pythiancvs/prototypes/glform/debug.txt

No conflicts created by this import


***** Bogus filespec: -
***** Bogus filespec: Imported
***** Bogus filespec: sources

[Pythianproject-cvsmail] CVS: pythiancvs/prototypes/glform - Imported sources

[Darryl L. <py...@us...>]

Update of /cvsroot/pythianproject//pythiancvs/prototypes/glform
In directory slayer.i.sourceforge.net:/tmp/cvs-serv28478

Log Message:
no message

Status:

Vendor Tag:	avendor
Release Tags:	arelease
		
N pythiancvs/prototypes/glform/GLFormTest.res
N pythiancvs/prototypes/glform/GLFormTest.dpr
N pythiancvs/prototypes/glform/GLForms.pas
N pythiancvs/prototypes/glform/Main.pas
N pythiancvs/prototypes/glform/Main.dfm
N pythiancvs/prototypes/glform/GLFormTest.dof
N pythiancvs/prototypes/glform/GLFormTest.cfg
N pythiancvs/prototypes/glform/debug.txt

No conflicts created by this import


***** Bogus filespec: -
***** Bogus filespec: Imported
***** Bogus filespec: sources

[Pythianproject-cvsmail] CVS: Prototypes/GLCanvas - New directory

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/GLCanvas
In directory slayer.i.sourceforge.net:/tmp/cvs-serv4722/GLCanvas

Log Message:
Directory /cvsroot/pythianproject/Prototypes/GLCanvas added to the repository

[Pythianproject-cvsmail] CVS: PythianProject/Source/Units vglcanvas.pas,NONE,1.1

[Kamil K. <kkr...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv31077

Added Files:
	vglcanvas.pas 
Log Message:
@kk

--- NEW FILE ---
unit vglcanvas;

{ ******************************************************************
  ** Visual GL                                                    **
  ** Version 0.1                                                  **
  **                                                              **
  ** Here will be our licence!!!                                  **
  ******************************************************************

  Authors:
    Kamil Krauspe - basic ideas and definitions

  History:
    27.10.00 - (@@kk) first definitions, fundamentals and ideas, 

  To do:
    **** don't have time to write everything what should be done
}

interface

uses
  Points, OpenGL, Classes;

const
  // Visual GL - basic commands
  VGL_LINE           = $000A;
  VGL_RECT           = $000B;
  VGL_TRIANGLE       = $000C;

  // Visual GL - basic properties change commands
  VGL_FONTCHANGE     = $005A;
  VGL_COLORCHANGE    = $005B;
  VGL_PENCHANGE      = $005C;
  VGL_BRUSHCHANGE    = $005D;

  // Return codes
  VGL_OK             =   0;
  VGL_ERROR          = - 1;

type
  // Visual GL - classes
  TvglUObj = class;
  TvglFont = class;
  TvglColor = class;
// !!!!!!!! TODO  TvglPen = class; !!!!!!!!
// !!!!!!!! TODO  TvglBrush = class; !!!!!!!!!

  TvglCommandList = class;
  TvglCanvas = class;

  // Visual GL - command structures
  Pvgl_TRIANGLE_STRUCT = ^Tvgl_TRIANGLE_STRUCT;
  Pvgl_LINE_STRUCT = ^Tvgl_LINE_STRUCT;
  Pvgl_RECT_STRUCT = ^Tvgl_RECT_STRUCT;
  Pvgl_FONT_CHANGE_STRUCT = ^Tvgl_FONT_CHANGE_STRUCT;
  Pvgl_COLOR_CHANGE_STRUCT = ^Tvgl_COLOR_CHANGE_STRUCT;

  Tvgl_FONT_CHANGE_STRUCT = record // used internaly
    FontNumber, Effects: Integer;
    Size, AspectRatio: Single;
  end;

  Tvgl_COLOR_CHANGE_STRUCT = record
    Data: TByteColor;
  end;

  Tvgl_LINE_STRUCT = record
    Pa, Pb: TPoint3D;
  end;
  Tvgl_RECT_STRUCT = record
    Pa, Pb, Pc, Pd: TPoint3D;
  end;
  Tvgl_TRIANGLE_STRUCT = record
    Pa, Pb, Pc: TPoint3D;
  end;

  TvglUObj = class(TPersistent)
  protected
    FCanvas: TvglCanvas;
  public
    constructor Create(ACanvas: TvglCanvas); virtual;
    procedure Update; virtual; abstract;
  end;

  TvglFont = class(TvglUObj)
  private
    FEffects: Integer;
    FFontNumber: Integer;
    FAspectRatio: Single;
    FSize: Single;
    procedure SetAspectRatio(const Value: Single);
    procedure SetEffects(const Value: Integer);
    procedure SetFontNumber(const Value: Integer);
    procedure SetSize(const Value: Single);
  protected
    procedure AssignTo(Dest: TPersistent); override;
  public
    procedure UseFont(const Data: Pvgl_FONT_CHANGE_STRUCT); virtual;
    constructor Create(ACanvas: TvglCanvas); override;
    destructor Destroy; override;
    procedure Update; override;
    property FontNumber: Integer read FFontNumber write SetFontNumber;
    property Effects: Integer read FEffects write SetEffects;
    property Size: Single read FSize write SetSize;
    property AspectRatio: Single read FAspectRatio write SetAspectRatio; // x:y size - aspect ratio
    // ??? use color here, too or will be using color of pen and brush
  end;

  TvglColor = class(TvglUObj)
  protected
    FAsByteColor: TByteColor;
    procedure SetAsByteColor(const Value: TByteColor);
    procedure SetAsGLColor(const Value: TGLColor);
    procedure AssignTo(Dest: TPersistent); override;
    function GetAsGLColor: TGLColor;
  public
    procedure UseColor(const Data: Pvgl_COLOR_CHANGE_STRUCT); virtual;
    procedure SetValue(R, G, B, A: Single); overload;
    procedure SetValue(R, G, B, A: Byte); overload;
    constructor Create(ACanvas: TvglCanvas); override;
    destructor Destroy; override;
    procedure Update; override;
    property AsGLColor: TGLColor read GetAsGLColor write SetAsGLColor;
    property AsByteColor: TByteColor read FAsByteColor write SetAsByteColor;
  end;

  TvglCommandTwin = record
    ID: Integer;
    Data: Pointer;
  end;

  TvglCommandList = class
  protected
    FCommands: array of TvglCommandTwin;
    function GetCount: Integer;
    procedure FreeItems;
  public
    constructor Create; virtual;
    destructor Destroy; override;
    function Enqueue(AID: Integer; Data: Pointer): Integer; overload;
    // appends a command onto FCommands array
    function Pop(ADelete: Boolean): TvglCommandTwin;
    // returns (and deletes) first Command form FCommands
    function GetItem(AIndex: Integer): TvglCommandTwin;
    // returns item at AIndex
    function DeleteItem(AIndex: Integer): Integer;
    // deletes item at AIndex
    property Count: Integer read GetCount;
  end;

  TvglCanvas = class
  protected
    FCommands: TvglCommandList;
    FFont: TvglFont;
    procedure DrawRectangle(const Data: Pvgl_RECT_STRUCT); virtual;
    procedure DrawTriangle(const Data: Pvgl_TRIANGLE_STRUCT); virtual;
    procedure DrawLine(const Data: Pvgl_LINE_STRUCT); virtual;

    procedure ProcessItem(const AItem: TvglCommandTwin); virtual; 
  public
    procedure Draw; virtual;

    constructor Create; virtual;
    destructor Destroy; override;

    procedure Rectangle(APa, APb, APc, APd: TPoint3D);
    procedure Triangle(APa, APb, APc: TPoint3D);
    procedure Line(APa, APb: TPoint3D);

    property Font: TvglFont read FFont;
  // TODO: add another public declarations
  end;

implementation

const
  VGL_BYTE2GL = 1 / 255;
  VGL_GL2BYTE = 255;

{ TvglUObj }

constructor TvglUObj.Create(ACanvas: TvglCanvas);
begin
  inherited Create;
  FCanvas := ACanvas;
end;

{ TvglFont }

procedure TvglFont.AssignTo(Dest: TPersistent);
begin
  if Dest is TvglFont then
  begin
    TvglFont(Dest).FEffects := FEffects;
    TvglFont(Dest).FFontNumber := FFontNumber;
    TvglFont(Dest).FAspectRatio := FAspectRatio;
    TvglFont(Dest).FSize := FSize;
  end
  else
    inherited; // trigger TPersistent.AssignTo(Dest) -> Raise Exception
end;

constructor TvglFont.Create(ACanvas: TvglCanvas);
begin
  inherited Create(ACanvas);
  FEffects := 0;
  FFontNumber := 0;
  FAspectRatio := 1;
  FSize := 1;
end;

destructor TvglFont.Destroy;
begin
  //
  inherited Destroy;
end;

procedure TvglFont.SetAspectRatio(const Value: Single);
begin
  FAspectRatio := Value;
end;

procedure TvglFont.SetEffects(const Value: Integer);
begin
  FEffects := Value;
end;

procedure TvglFont.SetFontNumber(const Value: Integer);
begin
  FFontNumber := Value;
end;

procedure TvglFont.SetSize(const Value: Single);
begin
  FSize := Value;
end;

procedure TvglFont.Update;
var
  ACmd: Pvgl_FONT_CHANGE_STRUCT;
begin
  New(ACmd);
  ACmd^.FontNumber := FFontNumber;
  ACmd^.Effects := FEffects;
  ACmd^.Size := FSize;
  ACmd^.AspectRatio := FAspectRatio;
  FCanvas.FCommands.Enqueue(VGL_FONTCHANGE, ACmd);
end;

procedure TvglFont.UseFont(const Data: Pvgl_FONT_CHANGE_STRUCT);
begin
  // changes the Font (in processing/drawing time) - something like DrawLine...
end;

{ TvglColor }

procedure TvglColor.AssignTo(Dest: TPersistent);
begin
  if Dest is TvglColor then
  begin
    TvglColor(Dest).FAsByteColor := FAsByteColor;
  end
  else
    inherited; // trigger TPersistent.AssignTo(Dest) -> Raise Exception
end;

constructor TvglColor.Create(ACanvas: TvglCanvas);
begin
  inherited Create(ACanvas);
  FillChar(FAsByteColor, SizeOf(FAsByteColor){4 i think}, 0);
end;

destructor TvglColor.Destroy;
begin
  //
  inherited;
end;

function TvglColor.GetAsGLColor: TGLColor;
begin
  Result[0] := FAsByteColor[0] * VGL_BYTE2GL;
  Result[1] := FAsByteColor[1] * VGL_BYTE2GL;
  Result[2] := FAsByteColor[2] * VGL_BYTE2GL;
  Result[3] := FAsByteColor[3] * VGL_BYTE2GL;
end;

procedure TvglColor.SetAsByteColor(const Value: TByteColor);
begin
  FAsByteColor := Value;
end;

procedure TvglColor.SetAsGLColor(const Value: TGLColor);
begin
  FAsByteColor[0] := Round(Value[0] * VGL_GL2BYTE);
  FAsByteColor[1] := Round(Value[1] * VGL_GL2BYTE);
  FAsByteColor[2] := Round(Value[2] * VGL_GL2BYTE);
  FAsByteColor[3] := Round(Value[3] * VGL_GL2BYTE);
end;

procedure TvglColor.SetValue(R, G, B, A: Single);
begin
  SetAsGLColor(MakeGLColor(R, G, B, A));
end;

procedure TvglColor.SetValue(R, G, B, A: Byte);
begin
  FAsByteColor[0] := R;
  FAsByteColor[1] := G;
  FAsByteColor[2] := B;
  FAsByteColor[3] := A;
end;

procedure TvglColor.Update;
var
  ACmd: Pvgl_COLOR_CHANGE_STRUCT;
begin
  New(ACmd);
  ACmd^.Data := FAsByteColor;
  FCanvas.FCommands.Enqueue(VGL_COLORCHANGE, ACmd);
end;

procedure TvglColor.UseColor(const Data: Pvgl_COLOR_CHANGE_STRUCT);
begin
  // changes color: Is this OK?
  glColor4bv(@Data^.Data[0]);
end;

{ TvglCommandList }

constructor TvglCommandList.Create;
begin
  inherited Create;
  SetLength(FCommands, 0);
end;

function TvglCommandList.DeleteItem(AIndex: Integer): Integer;
var
  i, ACount: Integer;
begin
  Result := VGL_ERROR;
  ACount := Length(FCommands);
  if AIndex >= ACount then
    Exit;
  if AIndex = ACount - 1 then
    SetLength(FCommands, AIndex)
  else begin
    i := (ACount - AIndex - 1) * SizeOf(TvglCommandTwin);;
    // moving could be done with Copy function, but this is better and faster
    Move(FCommands[AIndex + 1], FCommands[AIndex], i);
    SetLength(FCommands, ACount - 1);
  end;
  Result := VGL_OK;
end;

destructor TvglCommandList.Destroy;
begin
  FreeItems;
  inherited;
end;

function TvglCommandList.Enqueue(AID: Integer; Data: Pointer): Integer;
var
  AIndex: Integer;
begin
  Result := VGL_ERROR; 
  if Data = nil then
    Exit;
  AIndex := Length(FCommands);
  SetLength(FCommands, AIndex + 1);
  FCommands[AIndex].ID := AID; 
  FCommands[AIndex].Data := Data;
  Result := VGL_OK;
end;

procedure TvglCommandList.FreeItems;
var
  i: Integer;
begin
  for i := 0 to Length(FCommands) - 1 do
    if FCommands[i].Data <> nil then
      Dispose(FCommands[i].Data);
  SetLength(FCommands, 0);
end;

function TvglCommandList.GetCount: Integer;
begin
  Result := Length(FCommands);
end;

function TvglCommandList.GetItem(AIndex: Integer): TvglCommandTwin;
begin
  if AIndex < GetCount then
    Result := FCommands[AIndex]
  else begin
    Result.Data := nil;
    Result.ID := VGL_ERROR;
  end;
end;

function TvglCommandList.Pop(ADelete: Boolean): TvglCommandTwin;
begin
  Result := GetItem(0);
  if ADelete and (Result.ID <> VGL_ERROR) then
    DeleteItem(0);
end;

{ TvglCanvas }

constructor TvglCanvas.Create;
begin
  inherited Create;
  FFont := TvglFont.Create(Self);
  FCommands := TvglCommandList.Create;
end;

destructor TvglCanvas.Destroy;
begin
  FFont.Free;
  FCommands.Free;
  inherited Destroy;
end;

procedure TvglCanvas.Draw;
var
  D: TvglCommandTwin;
begin
  D := FCommands.Pop(True);
  while (D.Data <> nil) and (D.ID <> VGL_ERROR) do
  begin
    ProcessItem(D);
    D := FCommands.Pop(True);
  end;
end;

procedure TvglCanvas.DrawLine(const Data: Pvgl_LINE_STRUCT);
begin
  // Don't know much about OpenGL, is this OK?
  glBegin(GL_LINES);
    glVertex3f(Data^.Pa.X, Data^.Pa.Y, Data^.Pa.Z);  // Point A
    glVertex3f(Data^.Pb.X, Data^.Pb.Y, Data^.Pb.Z);  // Point B
  glEnd;
end;

procedure TvglCanvas.DrawRectangle(const Data: Pvgl_RECT_STRUCT);
begin
  // Don't know much about OpenGL, is this OK?
  glBegin(GL_QUADS);
    glVertex3f(Data^.Pa.X, Data^.Pa.Y, Data^.Pa.Z);  // Point A
    glVertex3f(Data^.Pb.X, Data^.Pb.Y, Data^.Pb.Z);  // Point B
    glVertex3f(Data^.Pc.X, Data^.Pc.Y, Data^.Pc.Z);  // Point C
    glVertex3f(Data^.Pd.X, Data^.Pd.Y, Data^.Pd.Z);  // Point D
  glEnd;
end;

procedure TvglCanvas.DrawTriangle(const Data: Pvgl_TRIANGLE_STRUCT);
begin
  // Don't know much about OpenGL, is this OK?
  glBegin(GL_TRIANGLES);
    glVertex3f(Data^.Pa.X, Data^.Pa.Y, Data^.Pa.Z);  // Point A
    glVertex3f(Data^.Pb.X, Data^.Pb.Y, Data^.Pb.Z);  // Point B
    glVertex3f(Data^.Pc.X, Data^.Pc.Y, Data^.Pc.Z);  // Point C
  glEnd;
end;

procedure TvglCanvas.Line(APa, APb: TPoint3D);
var
  ACmd: Pvgl_LINE_STRUCT;
begin
  New(ACmd);
  ACmd^.Pa := APa;
  ACmd^.Pb := APb;
  FCommands.Enqueue(VGL_LINE, ACmd);
end;

procedure TvglCanvas.ProcessItem(const AItem: TvglCommandTwin);
begin
  case AItem.ID of
    VGL_LINE: DrawLine(AItem.Data);
    VGL_RECT: DrawRectangle(AItem.Data);
    VGL_TRIANGLE: DrawTriangle(AItem.Data);
    VGL_FONTCHANGE: FFont.UseFont(AItem.Data);
    VGL_COLORCHANGE: {Color.UseColor(AItem.Data)};
    VGL_PENCHANGE:;
    VGL_BRUSHCHANGE:;
  end;
end;

procedure TvglCanvas.Rectangle(APa, APb, APc, APd: TPoint3D);
var
  ACmd: Pvgl_RECT_STRUCT;
begin
  New(ACmd);
  ACmd^.Pa := APa;
  ACmd^.Pb := APb;
  ACmd^.Pc := APc;
  ACmd^.Pd := APd;
  FCommands.Enqueue(VGL_RECT, ACmd);
end;

procedure TvglCanvas.Triangle(APa, APb, APc: TPoint3D);
var
  ACmd: Pvgl_TRIANGLE_STRUCT;
begin
  New(ACmd);
  ACmd^.Pa := APa;
  ACmd^.Pb := APb;
  ACmd^.Pc := APc;
  FCommands.Enqueue(VGL_TRIANGLE, ACmd);
end;

end.

[Pythianproject-cvsmail] CVS: Prototypes/GLBitmapDemo GLBitmapTutorial.html,NONE,1.1 frmMain.dfm,NONE,1.1 frmMain.pas,NONE,1.1 gadgetcollage.bmp,NONE,1.1 glBitmapDemo.dpr,NONE,1.1

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/GLBitmapDemo
In directory slayer.i.sourceforge.net:/tmp/cvs-serv7229

Added Files:
	GLBitmapTutorial.html frmMain.dfm frmMain.pas 
	gadgetcollage.bmp glBitmapDemo.dpr 
Log Message:
added GLBitmapDemo

--- NEW FILE ---
<html>

<head>
<meta http-equiv="Content-Language" content="en-gb">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>OpenGL Bitmaps tutorial</title>
</head>

<body>

<p>This tutorial will hopefully explain to you how to display colour bitmaps of
any size in OpenGL, using the glDrawPixels() command. It will also teach you how
to use a separate alpha bitmap to let you define transparent areas in the
picture. There are several ways of displaying pictures in a GL window, the one
that I found to be mentioned most often is using a textured quad, but this has
several disadvantages not least of which is the 256x256 size limitation. So, how
do you load and draw bitmaps of any size into the frame buffer?</p>
<p>The first problem we encounter is the fact that OpenGL does not have any
support for the BMP file format used in Windows, or any file format for that
matter. The glDrawPixels command is fairly simple, it takes a pointer to some
memory, the image size and the way the image is layed out in memory (i'll look
at this in a minute). So how do you load pictures? Well, you could read the
picture file directly but this is a pain and means that you can't use libraries
to use new file formats. Here's the solution I came up with, just load the file
using and library you want (in Delphi this means the VCL TBitmap object) and
then use the GetPixel routines to retrieve each pixel one at a time, placing it
into the memory buffer at the correct location. I can hear some of you scream
now about how inefficient that is, but remember we only have to do this once
when we first load the bitmap, and if you'd like to make the routine more
efficient then that's fine but for now simplicity is my aim. So, we first load
the bitmap and allocate the memory buffer:</p>
<p><code>var bmp: TBitmap;<br>
&nbsp;&nbsp;&nbsp; PixData :Pointer;</code></p>
<p><code>bmp := TBitmap.Create;<br>
bmp.LoadFromFile(&quot;picture.bmp&quot;);<br>
<br>
PixData := AllocMem( (bmp.Width * bmp.Height) * 3 ); // multiply by 3 because of
RGB data<br>
</code></p>
<p>Notice that I said, &quot;in the correct location&quot; in the previous
paragraph. This is something that took me a while to clock, but OpenGL draws
bitmap data from the bottom left corner, not the top left. Obviously this means
that when we load the picture we need to place the top left pixel of the bitmap
file into the bottom left pixel of the memory :( OK, I'm going to show you the
code that translates an X, Y position in the bitmap to a pixel offset. I'll take
you through it one step at a time.</p>
<p><code>oy := (PxHeight-1) - oy; // now y is OK<br>
    pxoffset := ox;<br>
<br>
    if oy > 0 then<br>
&nbsp; pxoffset := pxoffset + (oy*PxWidth);<br>
<br>
    pxoffset := pxoffset * 3; // move into position for RGB data</code></p>
<p><br>
Here, OX and OY are the positions we want to translate and pxoffset is the
result. The first thing we do is invert oy, to take into account the difference
in opinion about where bitmap origins should be located. The reason we take 1
from PxHeight before subtracting OY is because measurements of height/width are
not usually zero based. We assign x to pxOffset, then check that oy &gt; 0 ,
because if it is we need to do some more work. We simply multiply oy by PxWidth
to account for all the rows we've &quot;skipped&quot;. Finally, we multiple the
result by 3 because in fact each pixel takes 3 bytes, not 1 (for the red, green,
blue components right?) Sorry, I know that's not a very good explanation but you
get the general idea.</p>
<p>Ok, so here's the loop that does the work:</p>
<p><code>for y := 0 to pxHeight-1 do<br>
  begin<br>
&nbsp; for x := 0 to pxWidth-1 do<br>
&nbsp; begin<br>
&nbsp;&nbsp;&nbsp; c := b.Canvas.Pixels[x,y];<br>
&nbsp;&nbsp;&nbsp; red := TColorQuad(c)[0];<br>
&nbsp;&nbsp;&nbsp; green := TColorQuad(c)[1];<br>
&nbsp;&nbsp;&nbsp; blue := TColorQuad(c)[2];<br>
<br>
&nbsp;&nbsp;&nbsp; pd^[ XYToOffset(x,y) + 0 ] := red;<br>
&nbsp;&nbsp;&nbsp; pd^[ XYToOffset(x,y) + 1 ] := green;<br>
&nbsp;&nbsp;&nbsp; pd^[ XYToOffset(x,y) + 2 ] := blue;<br>
&nbsp; end;<br>
  end;</code></p>
<p>As you can see, the loop goes through each pixel in turn. The TColorQuad
stuff is just to extract the separate rgb components from the Delphi TColor
type. Once we have this, we assign each component to the offset + 0, 1 or 2. Now
pd points to the pixel data OpenGL can accept. One more thing before we draw,
this line must be added to the OpenGL init code:</p>
<p><code>glPixelStorei(GL_UNPACK_ALIGNMENT, 1);</code></p>
<p>This tells OpenGL that the data is aligned to every 1 byte (ie isn't
aligned). The reason for this is because some processors are optimised for
accessing data on certain byte alignments so if you're willing to use a bit more
memory you can improve the time required for the card to access your pixel data
by aligning it to every 4/8/16 bytes or whatever and telling OpenGL about it
here.</p>
<p>Finally, we need to actually DRAW the damn thing :) The location that we draw
the bitmap to is controlled by something called the raster position. This is
simply a point which OpenGL maintains like any other vertex and that can be
moved around using the glRasterPos commands. Because it's a point it's affected
by matrix transformations though, so you can scale it and rotate it, but
remember that this won't scale or rotate your image, just its starting point.
Remember also that the bitmap will be drawn upwards, not downwards.</p>
<p><code>glDrawPixels(pxWidth,pxHeight,GL_RGB,GL_UNSIGNED_BYTE,pd);</code></p>
<p>This says, draw a bitmap of width pxWidth, height pxHeight, pixel type
&quot;red, then green, then blue&quot; and that each pixel is represented by an
unsigned byte. Finally, we give it the pointer to the pixel data! There, that
wasn't too hard was it?&nbsp;</p>
<p>The reason we need to tell the GL that we're using unsigned bytes is because
pixel data can be represented in numerous ways. Not only can you use bytes for
RGB data in the usual way, but you can also use floats and integers like other
GL commands. Data can be stored as RGB data, colour index data (you need to be
in colour index mode for this), RGBA (like RGB but with an additional alpha
component),&nbsp; depth data (you can write to any of the GL buffers using this
command), stencil indexes (see the excellent NeHe tutorial on stencil buffers if
you're curious at <a href="http://nehe.gamedev.net/opengl.asp">http://nehe.gamedev.net/opengl.asp</a>,
luminance (the weighted sum of the RGB components) and that's just a selection.</p>
<p>You can magnify, reduce and flip your image using the glPixelZoom() command.
This lets you specify a magnification factor for each axis - so a zoom with x
and y equal to 2.0 would map each pixel to 4 pixels. Fractional zoom factors are
allowed, as are negative factors, and these are what flip the image.</p>
<p>Finally, by modifying the code you can easily add in alpha transparency to
your images (although I haven't tried this). To do this load two images, one
which is the normal image and another (still 24bit) image that is greyscale and
defines the alpha channel. By this I mean that each pixel in the new image maps
to the alpha value of each pixel in the original bitmap. An alpha bitmap is
white to mean totally opaque, black to mean transparent and shades of gray to
represent partially see-through. Once you've made the alpha bitmap you make the
following modifications:</p>
<p><code>for y := 0 to pxHeight-1 do<br>
  begin<br>
&nbsp;    for x := 0 to pxWidth-1 do<br>
&nbsp;    begin<br>
&nbsp;&nbsp;&nbsp;      c := b.Canvas.Pixels[x,y];<br>
&nbsp;&nbsp;&nbsp;      red := TColorQuad(c)[0];<br>
&nbsp;&nbsp;&nbsp;      green := TColorQuad(c)[1];<br>
&nbsp;&nbsp;&nbsp;      blue := TColorQuad(c)[2];<br>
<br>
&nbsp;&nbsp;&nbsp; alpha = alphabmp.Canvas.Pixels[x,y];&nbsp;&nbsp;&nbsp; { NEW
}<br>
<br>
&nbsp;&nbsp;&nbsp;      pd^[ XYToOffset(x,y) + 0 ] := red;<br>
&nbsp;&nbsp;&nbsp;      pd^[ XYToOffset(x,y) + 1 ] := green;<br>
&nbsp;&nbsp;&nbsp;      pd^[ XYToOffset(x,y) + 2 ] := blue;<br>
&nbsp;&nbsp;&nbsp; pd^[ XYToOffset(x,y) + 3 ] := alpha;&nbsp;&nbsp;&nbsp; { NEW
}<br>
&nbsp;    end;<br>
  end;</code></p>
<p><code>--------------------------------------------------<br>
<br>
glDrawPixels(pxWidth,pxHeight,GL_RGBA,GL_UNSIGNED_BYTE,pd); { GL_RGBA changed }</code></p>
<p><code>--------------------------------------------------<br>
<br>
</code><code>oy := (PxHeight-1) - oy; // now y is OK<br>
    pxoffset := ox;<br>
<br>
    if oy > 0 then<br>
&nbsp;      pxoffset := pxoffset + (oy*PxWidth);<br>
<br>
    pxoffset := pxoffset * 4; // move into position for RGBA data, 4 components
now</code></p>
<p><code>--------------------------------------------------<br>
</code></p>
<p><code>// allocate enough memory for the new component<br>
PixData := AllocMem( (bmp.Width * bmp.Height) * 4 ); // multiply by 4 because of
RGBA data</code></p>
<p>&nbsp;</p>
<p>I hope this tutorial has helped you understand how to draw bitmaps and how to
do some more advanced things with them.</p>
<p>-mike </p>
<p><a href="mailto:mh...@su...">mh...@su...</a></p>
<p>&nbsp;</p>

</body>

</html>

--- NEW FILE ---
ÿ

Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.Style
TextHeight
Exit1Click
FrameTimerInterval
OnTimerFrameTimerTimerLeft„
--- NEW FILE ---
unit frmMain;

{ GL Bitmap demo
  (C) Michael Hearn 2000
  mh...@su... }

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, GLPanel, OpenGL, Textures, Trace;

type

  { This demo shows how to write pixel data from a bitmap file
    directly to the frame buffer - no need to worry about textures etc.
    However, it is horribly inefficient, in a better implementation
    the pixel data would be read directly from the bitmap file
    like in the TTexture object. However, for simplicity I will use the
    slow but easy to understand GetPixel routines to make a copy of the
    bitmap.
  }

  // we use this to store the pixel data from a bitmap
  TPixelData = TByteArray;
  PPixelData = ^TPixelData;

  TMainForm = class(TForm)
    GLPanel: TGLPanel;
    MainMenu: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    FrameTimer: TTimer;
    procedure FrameTimerTimer(Sender: TObject);
    procedure GLPanelGLInit(Sender: TObject);
    procedure GLPanelResize(Sender: TObject);
    procedure GLPanelGLDraw(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }

    // Animation trackers can go here
    animSquare: integer; // this var will be cycled through 1..360
                         // which states the angle of the square. By
                         // incrementing this every frame we can create
                         // a rotating square :)

    Px :PPixelData;
    PxWidth, PxHeight :integer;
    procedure SetProjection(Sender: TObject);
    function BmpToPixelData(filename:string):PPixelData;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FrameTimerTimer(Sender: TObject);
begin
  { Add code to advance animations etc. here }
  inc(animSquare);
  if animSquare >= 360 then animSquare := 0;

  // now redraw the screen
  GLPanel.GLReDraw;
end;

procedure TMainForm.SetProjection(Sender: TObject);
var
  gldAspect : TGLdouble;
begin
   // Redefine the viewing volume and viewport when the window size changes.
  gldAspect := GLPanel.Width / GLPanel.Height;

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(30.0,           // Field-of-view angle
                 gldAspect,      // Aspect ratio of viewing volume
                 1.0,            // Distance to near clipping plane
                 100.0);          // Distance to far clipping plane
  glViewport(0, 0, GLPanel.Width, GLPanel.Height);
  InvalidateRect(Handle, nil, False);
end;


procedure TMainForm.GLPanelGLInit(Sender: TObject);
begin
  // Add GL init code here
  // Any enable/disable commands that affect the entire app should go here

  //
  // Enable depth testing and alpha blending
  //
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA,GL_ONE);
  // uncomment this line to enable alpha blending

  try
    Px := BmpToPixelData('gadgetcollage.bmp'); // go gadget go!
  except
    on E:Exception do
    begin
      ShowMessage('BmpToPixelData() failed: '+e.message);
      px := nil;
    end;
  end;
  glPixelStorei(GL_UNPACK_ALIGNMENT, 1);

  glDisable(GL_STENCIL_TEST);
end;

procedure TMainForm.GLPanelResize(Sender: TObject);
begin
  SetProjection(Sender); // this sets up the view
  // init any variables here
  animSquare := 0;
end;

procedure TMainForm.GLPanelGLDraw(Sender: TObject);
begin
  //
  // Clear the color and depth buffers.
  //
  glClearColor(0.0,0.0,0.0,1.0); // clear to black
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  // reset the matrix to it's identity (original, unmodified) matrix
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;


  { ADD YOUR DRAWING CODE HERE }

  // scale and rotate
  glScalef(0.5,0.5,0.5);
  glRotatef(animSquare,0.0,1.0,0.5);
  //
  // Draw the six faces of the cube.
  //
  glDisable(GL_BLEND);
  glColor4f(1.0,0.0,0.0,1.0);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, 0.0, 1.0);
    glVertex3f(1.0, 1.0, 1.0);
    glVertex3f(-1.0, 1.0, 1.0);
    glVertex3f(-1.0, -1.0, 1.0);
    glVertex3f(1.0, -1.0, 1.0);
  glEnd;

  glColor4f(0.0,1.0,0.0,1.0);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, 0.0, -1.0);
    glVertex3f(1.0, 1.0, -1.0);
    glVertex3f(1.0, -1.0, -1.0);
    glVertex3f(-1.0, -1.0, -1.0);
    glVertex3f(-1.0, 1.0, -1.0);
  glEnd;

  glColor4f(0.0,0.0,1.0,1.0);
  glBegin(GL_POLYGON);
    glNormal3f(-1.0, 0.0, 0.0);
    glVertex3f(-1.0, 1.0, 1.0);
    glVertex3f(-1.0, 1.0, -1.0);
    glVertex3f(-1.0, -1.0, -1.0);
    glVertex3f(-1.0, -1.0, 1.0);
  glEnd;

  glColor4f(0.0,1.0,1.0,1.0);
  glBegin(GL_POLYGON);
    glNormal3f(1.0, 0.0, 0.0);
    glVertex3f(1.0, 1.0, 1.0);
    glVertex3f(1.0, -1.0, 1.0);
    glVertex3f(1.0, -1.0, -1.0);
    glVertex3f(1.0, 1.0, -1.0);
  glEnd;

  glColor4f(1.0,1.0,0.0,1.0);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, 1.0, 0.0);
    glVertex3f(-1.0, 1.0, -1.0);
    glVertex3f(-1.0, 1.0, 1.0);
    glVertex3f(1.0, 1.0, 1.0);
    glVertex3f(1.0, 1.0, -1.0);
  glEnd;

  glColor4f(1.0,1.0,1.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, -1.0, 0.0);
    glVertex3f(-1.0, -1.0, -1.0);
    glVertex3f(1.0, -1.0, -1.0);
    glVertex3f(1.0, -1.0, 1.0);
    glVertex3f(-1.0, -1.0, 1.0);
  glEnd;

  // add bitmap code here
  // px contains our data in RGB format 8bit per component, 24 bits pp
  glLoadIdentity;
  glRasterPos2d(-1,-1);
  glClear(GL_DEPTH_BUFFER_BIT);
  glDisable(GL_DEPTH_TEST);
  if px <> nil then
    glDrawPixels(pxWidth,pxHeight,GL_RGB,GL_UNSIGNED_BYTE,px);
  glEnable(GL_DEPTH_TEST);
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

function TMainForm.BmpToPixelData(filename: string):PPixelData;
type
  TColorQuad = array[0..3] of byte;
var
  b:TBitmap;
  pd :PPixelData;
  x,y:integer;
  c:TColor;
  red,green,blue:byte;

  function XYToOffset(ox,oy:integer):integer;
  var pxoffset:integer;
  begin
    {
       0 1 2 3 4 5 6 7 8 9      PxWidth=10
     0 X X X X X X X X X X      PxHeight=3
     1 X X X X X X X X X X
     2 X X X X X X X X X X   }
    pxoffset := 0;
    oy := (PxHeight-1) - oy; // now y is OK
    pxoffset := ox;
    if oy > 0 then
    begin
      pxoffset := pxoffset + (oy*(PxWidth){-1}) {+ 1};
    end;
    pxoffset := pxoffset * 3; // move into position for RGB data
    Result := pxoffset;
  end;

begin
  Result := nil;
  b := TBitmap.Create;
  b.LoadFromFile(filename);

  pxWidth := b.Width;
  pxHeight := b.Height;
  // allocate memory for it, assume RGB data (3 components)
  pd := AllocMem( (b.Width*b.Height)*3 );
  // now for the inefficient bit - copying the data pixel by pixel
  // from the Win32 GDI to our own data structure.
  for y := 0 to pxHeight-1 do
  begin
    for x := 0 to pxWidth-1 do
    begin
      c := b.Canvas.Pixels[x,y];
      red := TColorQuad(c)[0];
      green := TColorQuad(c)[1];
      blue := TColorQuad(c)[2];

      pd^[ XYToOffset(x,y) + 0 ] := red;
      pd^[ XYToOffset(x,y) + 1 ] := green;
      pd^[ XYToOffset(x,y) + 2 ] := blue;
    end;
  end;

  b.Free;
  Result := pd;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if assigned(px) then
    FreeMem(px);
end;

end.

--- NEW FILE ---
BMV
	





D'L/(9Y=6X>7]B8eH?^>3\8.rL@|UFsK8ZDc8%oD5|OD]4+a;6hD>Y5/]80kB9xNA{Q>tN6zU;‡dJ‘mUtM7‘cQ†VD…QAl;+wJ=kD6^:0eB8fB<Q-'S0,X83^?<O62?0-ÿüøÿÿüÿÿüýýýøúúüþÿýÿÿþýÿþýÿÿýÿÿýÿÿýÿÿýÿþþþþÿýýÿþ÷ûöÿÿüüýù÷üûúÿÿñôùýüÿÿúÿþ÷ÿÿûÿýüÿÿþÿþøù›‡†

š{~ÿÞڂWD´‰^ÿݚÿ߅ÿçzÿìwÿÙeóÍ]úÔnÿâùà~úä~ÿëÿçyúÞrÿæ{ÿã}þÖpöÓqÿà}ÿå€üÞyþÝvñÏk÷Öuÿãˆû܍úؒÿٛÿ֓ÿ×~ÿÞ|ÿå‡ÿâ„þÓrûÎlþÔqøÖrúáyòÝtÿãzÿàŒ†O(…SAY;(-"cfM¢¨—üýûïìõøôÿëçóíçøðëúüøÿýúÿ÷öúûúþýùÿüøÿÿþÿÿýÿöïôùöøï÷÷ëöôÿýÿæóÿFn*mž—ÒÿÛÿÎüwÉøwÉùƒÒÿ•ÜÿyÀò‚Çÿ‚Éÿ|Âø“Úÿ€Çù†ÎþyÂô†ÒÿËÿ„Óÿ€ÎÿËÿ…ÐÿÉù€Æõ’ÔÿÚÿ‘ËüL‚«|­ÍÑúÿÛúÿìÿÿïþÿóÿÿíÿÿäÿÿÔüûÑÿÿÅþýÊÿÿ»÷÷ÆþÿÈÿÿ»ÿÿ¨òôËÿÿÅýÿ»üÿ•ØóXrX~*r²NæpÃÿwËÿrÅø†Øÿ€Ðù„ÑÿyÃûÔÿ‹Ëÿ,n¡g²æpÆü"…¿5–ΐâÿÕÿRŠÅOŒÎS¥íc h¿á®ÿÿ´üÿºÿÿºüÿ¸ûþ¾ÿÿºúþ»øüÆÿÿÄÿÿ¿üøÆÿþÌÿÿÕúÿÒõÿsžçQ¬P–ê+{ÎmÄ+|Ñ?Ù6€Ò#iÎ%iÒ(nÉ*qÉ>|à.lÖ#bÔZÍ dÕ*lÕ0nÌ8xÍ0sÊ0uÌ$hÁc¼%jÇ$iÆ[¸a½>zÓD}ØGè/hÃ<s°I€­


Z@4nTD\>+T/wM:¤ug”dXžpe‡YQ™riyWJmM@ƒiY[D5n[N\MDYOHG@=@>=fhhµº¹Ÿ¤¢‰‚¬µ«¨­¤OJGTDEcGFd?;sIBi<1tK<pM9W7 R3^<%d?+\3$_5(f>2^:0V4.ÿöòÿóóÊÆÅ¡ œ†ƒ~skdrifjegWSYijntvwb`_ZXWWTVJFQE?VPKh3	'‚uÜÐäÿùÿÿûÿû÷ýÿúÿÿúÿùòÿÿøÿçÙë€ndS`ÿ÷ÿÿýÿÿùúÿýÿÿõýiFJIüɯÿ՝ÿډøÖrñÖhüâxøßyîÐqõÔwÿà‚ôÔpñÖgûãqÿé|ÿéƒÿçŒÿæÿáƒÿå~ÿÞqðÏbýÝtÿà}ÿã†ÿæ‰ýà~üß|ÿá‚þÞ}øØuþÞzÿæÿå|ÿâtÿçzÿäƒâÇ}9)

	
xty½¼¾ÚßÝÊÑÌÉÐÍÒ×ÖÐÑÕÊÇÐÍÊÓÐÐÖÑÕÖÕÜÙÉÓÍËÒÏÐÑÕËÎÖÛèöÒÔÞF-)a<4D%$@!$J%'N&'U*'T,'H'$G*&S3-E%T61N3/5
¢˜˜ÊÆÅ{}}’™–§¡’•RZPKB96 O--b:;X,-R&'h<;G<
˜pdvL?~OAN@ŒWM¢ngŒZT¬zt˜e[—dZ‡ZOg[kK@dKAiYSC75VQRš™›£§¨”••“™ ™£˜©ª ^UQF30jMI_94b7.rE:pG8f@.Y8%W8#dA-fB0]6']6(d<0W8/T@?MDG+*.:;?@;=mbd ’¶¥©ÓÅÐîæðýüÿúýûöúôîñèåæäèèîÃÁÕ% ;

•‹¢ÿøÿÿùÿÿûÿÿüÿÿýÿüûÿùöÿÿûÿþôÿÿùÿïàîZM[­¨·ûûÿïðúçäíÿûÿDZ¶<¨€gÿÞ©úӈüÜ}÷Ûvÿã„ÿèø؅ÿâÿߋñÔyíÔnôÞtûãþä†ÿà‹ýۈÿâˆÿç†ýÚsñÎfÿä€ÿé‹ÿà†ü؀ÿá„ÿá‚ÿބþ݀ýÛ}ÿ߁ÿâ€úÝzþàwúÛtîÏtïՒȺ–º­¸­¯·°·º½Â¾ÅÈóüÿïûýîúüæòôë÷ùìõøôûþð÷úò÷úöýÿöÿÿòûþîúüòûþõøü÷öúúöûû÷üûúþòüÿÌì÷Ïáw²Òx¼ç~Éÿ{Éÿq¹õ~Æü‡ÒÿˆØý‰áÿŒäÿ‰ÙÿŠÔÿ†ÉÿÐÿŽÍÿ™Ùÿ•ÖÿÒÿ‰ÍüÒÿÊü‡ÓÿÏþyÊ÷zÎøäÿˆÙÿ€Òû|Òü|Ðú‹Ùþ‹Õù‘ÛÿÚÿ‡Öÿd°ÚšÞÿ¾Þ¯éÿ¹õÿ¯óÿµûÿáÿw½åk¸æÞÿ}ÕþuÍö‡ÛÿˆÕÿÄõ“Öÿ’Øÿ—àÿ•åÿ†ÕÿˆÑÿÕÿ†Ïÿ~Éý~Çùr¾îtÂð‡ØÿtÉö‰Ûÿ‚ÌÿÎÿf¢ô2pÎ=‚é0|Ö!m¨?†§¿üÿÌÿÿÉÿúËÿúÉÿüÇÿýÅþÿÅÿÿÀýùÅþûÏÿÿÌýÿÁôÿq©Ú?~ÈIŠæ>|àCƒé:{Ý1vÓ>„ß5yØ8wß.lØ3pØ-lÎ8wÓDÞ4mÐ.eÍ6qÔA~à2qÓ5wÖ7z×AƒÜ1pÈ=vÌX‰ß^ŠÝ]‹ØEq±<d•ˆ¤ÆÜèúõöÿôîùÿöÿ





<P[¥¿Í¹ÙìÏõÿÌõÿÐþÿËûÿÅùùÍÿÿÍÿÿÈÿÿ½÷ý½öÿÆÿÿÄþÿÃýÿÀùûÆÿÿÂúûÉùÿz˜»€“¸ÔÞïÐÖÛÇÍÌÏÕÔ ¦­€…Ž‡†ƒ„“‘‘trq !uxvÈÉÅÏÐÌÍÎÌËÍÍÈÊÊÂÄÄ ¢¢ÄÆÆ¥§§®°°ÍÏÏÏÑÑÌÎÎÏÑÑÅÇÇÉËËÌ흅ˆ†ƒ†„TTT'''
	
	

²šˆÅ«ŸÜ¿»Þ¾¿×²¶à¸½Þ³¶Ý°³Ñ¢ªÎžªÞª»äµÅ߶ÅÞ¶ÁÛ²¹ÝµºÜ·¹ÚÀÀýôñÿþýÿýÿíæëüûýø÷ùùöøÿùüÿýÿÿýÿÿýÿÿþÿûúüýÿÿûÿÿûýþÿþÿÿþÿÿùüÿüýîôïðõóþùû÷ïöûðúÿüÿÿûÿûÿÿïùùïýÿìýÿÚòÿ”·Ø­ÖŽÉ÷‘Ñÿ˜×ÿ–Ôý›ÛÿšÛÿÐ÷•Øÿ¢åÿ—Ûÿ’ÖùÓö™àÿ›âÿ†ÏõØÿ†Òü„ÏûÓÿ’Öÿ†Êõ‹Ðø“ßÿ‘Ýÿ‘Õÿ‰Ëû„ÉûƒÍÿsÂÿ




	

J¢y¹ÿ™ßÿ„ÍÿÑú~Òö~Ôø‚Öú‰Øÿ‹ÖýÖü‰ÐõŒÛü€ÕõÜý‡ßÿ‹Ðÿp¯éÍÿ–Ûÿ8€Í	Q¥3zÒ8xÖ.hÈK…åDáAƒâ6zÙ1vÓJ‡å;xÚ2zàO—ïr°ì¨àÿÇþÿÅüÿÃúÿÇýþÇÿÿÉÿÿÆÿþÇüÿÎûÿÐûÿÆý3d®>|Ö?„áFä;€×.nÌ:wÙW‘ø@{ÞJˆâK‹àC‚ÚF„ÞZ—õ>}Ù8zÍ9{ÎCÛ5kÂ1b¨Ek¡1ClÑÕòþõÿìßïêàíùñûÿûÿøõ÷öôôù÷÷ú÷ùÿüùÿñæfI:
	


(&573;.BMžªÉÓÝÅËÒÄÈÍÀÉÍÀÍÕÃ×⃡´7`€y¦Ë©Õú¢Ðò³ãÿ´Òë</7J()O.2O03E)(E)"O2$M- Z;2A)#/#!&&&¡§¦´ÀÀt†…~”’{’Žp}§²ªš™»°¢oYGW8!ª…kyO2‡_FH,TD8Ä·•ž”k}v…œ—˜”ƒ˜•˜¬§}”Œ˜°¨HcZ=XOáûõìÿþÑèäz”ŽIe__~w†¢œƒ›“–ªŒ˜†<?)zsX|mMŽxUš‚^u\:K4zfGÔ¿¤•}k…n_UE5>/K;*aO>_E5N/ kJ;`>1U5(]@2T4)\8.h?6[4+sTKÿôîöììúùûûÿÿûÿÿÎÒÍhlgÿÿþÿÿÿþøùÿüÿͽÈ{qû÷ÿùýÿõÿýóÿþðÿÿíÿÿëÿÿëÿýíÿýîÿüîþýïþÿïþÿíþÿêÿÿåÿýãÿÿÞöÿìüÿíóÿÿúÿòà÷58„nŠÿõÿþ÷þÿÿþû÷òÿÿû±¥¥sdhëÛâÿéñÿØàÿèïÿ×ÞÚ±¹uwN]¢yˆÌ¢­ÊŸ¢ß³²â³µß¯µÞ®ºå·ÃêÂÇû×Ýÿíüÿñÿÿëûÿèöÿîûÿóûÿóóüóðûíñÿûÿÿúÿÿüÿñøóëõïû÷üÿúÿÿ÷úÿýÿÿþÿÿûüøøøúüüûýýúúúÿþþþüüüúúÿþþýÿÿúÿþöþýûþÿÿúÿÿòÿÿöÿÿøÿÿúÿþûÿþùûÿþÿÿþÿøò÷ÿ÷ÿÿùÿ÷ïöèææÔØÍÑÔŸµ¦¨¢›Á¹Ã‘‰¨?8qdd°NY³9T¯?mÁX–Ý‹ÕÿâÿáÿŽàÿŠÕÿ|Äú‹Ðÿ˜Üÿ™ÛþšÛÿÑÿˆÅý‘Êþ“ÍþÓúˆÑýwÇÿ"o¾



),";?2NU7Tb9H=TdµÇÒÆÐ×ÉÒÕÄÏÓ¿ÏÖºÐÜIh},Uu¼âªÙÿªÙÿ¿òÿÆäý:+3B !E%&G'(I*'O/)N-$D$V617" '"#ÍÕÕ¡­­s…„’§¥z‘“ŽŽ†ž ”º±£{gUO2ŽjR„\@£y\ˆbJS9+~qiËÉÁs~v‹Ÿš‹¢~•…›–ŠŸ—m‚zH`V>WMz“‰ìÿûñÿüëÿúìÿÿÙòîTok@YUlƒ~‡œ“§µ©fl[20tXnM€jFzb>š‚^iQ-\E%À¨×Á¯Ä²¡˜ˆxQA1/F0$tZLU:,y^PeJ<Y<.^>3eA7[1*U0(_E9ÿõìÿÿüôùøúÿÿïö󙛕‹‹…üýûÿÿÿÿýÿÿûÿŽ„”,"9md…ðíÿúýÿùÿû÷ÿþóÿÿòÿÿðÿÿðÿþðÿþïÿýñÿýñþÿîýÿìýÿêÿÿæÿÿæÿÿÙîýêúÿôüÿúúÿÿøÿiYp


 %/IU6Wj=g~5L(<Wu€ÀÔÕ½ÌÈÌÙ×ÃÓٚ±ÁJh„«Ë¯Üÿ™ÊøžÐþ¦Úÿ¹×ð<+8F!#V52@b97W+*S)*F""V6;Ÿ™žÃÇÌw€ƒ‘Ÿž‰š—n~wŒ˜Œš´«—˜ƒmU7‹fL”mQW>hNjJ7Q>7©¢Ÿ–‘{‹„‹£›„Ÿ–kƒ{ƒš’}’‰2G>~•z‘‰ž³«óÿþñú÷øÿÿøÿÿòûþôÿÿÅÓÒYihEVR€‡œ©›PVCDD,yqSwiEu^8‚f=‘rE[=T9ꐽ¥´›‹»¥šzsVF?D8.]OCK;.U@1Q7)]=2lG?g?:tPJ]C<ÿÿ÷þüûúÿÿ÷üýûÿÿcaaùóôÿþÿÿüÿÿúÿçÜðbUmÞÒî|›ÞÜòýûÿþÿýýÿÿúÿÿøÿÿõþÿóýýðüüóÿÿôÿÿòþÿðüÿíýÿæøÿÕêòÄÙè¿ÐëÎÝ÷íüÿåðøöþÿáçîegr‹Œšö÷ÿóñÿáÙðaSk¸¢ºÿæúÿøÿÿÞâ¤xyY-.྿ÿúÿÿëôò×áà½Ë¯‹—¯ˆÙ¯¶éºÂÞ¯¸Ú¬¸îÉÓÿî÷ÿòûÿñýýóÿÿøÿÿüÿÿøþýïóüîðÿñòÿôöÿñõÿüÿÿþÿò÷ú÷ýÿûüÿøõþØÑÔéâßØÙÐéíáÝÝÏ£Ÿ”THBüîïÿýÿÿüÿýþÿúþÿúÿþúÿþöýúûÿÿÿüÿýõÿÿûÿóëòèÞäàÕ×ÿýýÿÿü÷ýøøÿüöÿüøþýûýýüþþýÿþúüöúúìÿÿõÈ«¦tSZeKc‚¦—”Å~‰½j}°Gb•Om¤`‚¾Lqµ6c¬9r½A|Ä<p¶9o¶MŽßGŽåI’íZ£ùR”ã[šäc¤îb¥ð{½ÿg¦ÿXµO¯(ZºQ†àU£
W(X£½âÎíÿÂãöÓöÿÝýÿµÍë]cgU’qS”zc—xf|q‹‡˜xt€#"+dei„…‰rqs€„®ª°ÈÂÍÕÐÙ¼»½ÍÎÌËÎÌÊÏÍÏÔÓÏÓÔ¼ÀÁ“–šº½ÁÉÌÐÈÍÐÌÏÓÊÌÍÏÏÏÝÙØÊÈÈklp #'	

/2'3&?@b7\$RtBn…;H{••ÁÓÒ³ÃÊÅÖé¯Äê^y¥„¨Î³Üÿ ÍÿšËû¦ÕûÂÛõC1>S.0Y85O,(a86S)*H!#? #7 %¿±·¬¦«ƒ„’‘‹’¥š“™ˆ¨¦Ž¤™}_J+Q4¡}_œuYŠeOˆhUgM==+ \SPÿÿÿÆÑÎ1E@|—Ž{˜ª m†|8PF€•Œª¿·bwoL[WíøõûÿÿýüþýþÿîñõúÿÿøÿÿéóóôÿÿäòîWd\bl`bjYIL3JF){qO|Up\3}e;ƒg>tT0R0™ybǨ™»¡•¸¦›¨šŽ(
TD3ZC3Y<-iF9Y0'a72hC?P73ÿû÷üýûöüûúÿÿ­¯¯°«¬ÿùüÿúÿÿúÿÿ÷ÿ}pŠØËåÿöÿúùÿõöÿÿþÿÿÿÿþýÿøüý÷üýöþþ÷ÿÿöÿÿôýúôÿúóÿùïýùïýüîÿÿêýÿá÷ýåþÿÎæòÐäïìþÿéøÿòûÿðõÿ›œ±rl‹µ¨Î_Mvÿíÿÿîÿ§Š¤W9LˆirÿõôÔ¹µÆ´³ýðòûíóÿïøÿïüÿæñíËÖЫµÒ§°ã¶¿Ý¯»êÂÍÿéôÿñúÿûÿÿúÿüøþÿûÿÿüÿÿöúÿïòÿëîÿìñüèíùëñüòøþöÿÿøÿÿøÿüùÿÚèæêþùîüø÷úøÿþþDz±.rTS«–•ÿô÷ÿüÿÿýÿÿýÿÿÿÿýÿûõûöúûÿÿýÿöõùÿþÿÿóñA51QB?³¨¤öòíÿÿûÿÿüðîíÿüþÿýÿÿþÿýûúÿÿôÛͺ‚aQgC9]AAĶ¼ûûÿòûÿñýÿóüÿêñÿÜàøÕÚù¾Ê연Ї£Æ‡›ËwŒÉ;[§/U­a‹ëmšûQ‚ÞH~ÜZšøBŠè%oÍ(kÇ1f·PxÀ‘¬ì&7jA+6R15@Os{[‡d€‹sŠ™yŸ{¬\x¡Tx®oœß6nµF‡Ì™ÞÿÏÿˆÊû‹Ëÿ‹Ëÿ…ÇÿˆÎÿŠÑÿ~ÇÿÈÿ‹Ìÿt®öR‡×=oÇ$V¶9mÒAxÙK‰ÝMŠÔ]•ÜMƒ¸ÀøÿÄüÿÁú÷ÌÿÿÊÿÿÅýþÊÿýÍÿûÌýûÓûÿÍëÿt•ÆK~Ä_ëCˆÍF‹ÐJ…ÔOˆÝE~ÙB~×F‡Ø8wÇ<vÈO‡Ödšág˜ÐW€ 1Tb#*
^jdûý÷ÿõøûìôÿòÿôæñòìíóïîúõ÷ùñûøîþüòÿüøþÿýÿÿíøG /
!Y
K
4




	


%*

"




@i;t§ˆÇú‹ÍÿÓÿ˜ÚÿˆËø†ÊõŸåÿŸçÿ‡Ôû‡ÓýØÿ™ßÿŒÎÿ‹Êü•×ÿ€ÇóƒÏù}ËúŸæÿy¸üQ†É_Ç¡ÍöÄðÿÓÿÿÆúúÄüýÄÿÿÊÿÿÅþÿËÿÿÇøöÕþÿÚþÿÇëÿBkª\ŽàYëP€ßMzÕd‹ÚOl±DMJE|&=04D6:YJGmUUmUUZKHaUO«›”ÿøõÿûÿÿ÷ÿôæøÿ÷ÿøôÿû÷ÿøóüÿøÿÿûÿÿüÿÿþþÿ÷úæÀÒe6P
ŵÿú÷ÿÿþþýÿûþÿðóûúýÿúüÿýýÿÿýÿÿýÿÿýÿÿýÿÿþÿÿþÿûþÿúÿÿûÿÿóùøöÿþñÿþ>UMe€w„¢—Toey’ˆEXO–¢œôûöüýûÿÿþÿûüþüüýÿþûÿþýÿÿýÿÿÿþÿÿþÿÿýÿÿýÿÿýÿÿþÿÿþÿýþÿûÿÿúÿÿøÿÿøÿÿúÿÿûÿÿýÿÿùúþýþÿúüýûýþÿþýÌÆ¿eLBW:,M,W4&F'N2'Q:2ÿþüÿûÿÛÛá`bcýýýüúùÿþÿýûÿˆˆšop„ô÷ÿûýÿõùúúÿþøÿü÷ÿû÷ÿûõÿþóÿÿòÿÿòþÿóýÿõýÿøþÿúüÿììø¼»Ë ž´¢¡»šš¸”“µ¨¢Ë{z¡| æòÿêýÿâøþéÿýîÿþñþüúþÿüõÿ“†œmZsÿöÿõãôüê÷ÿóüº£«¥“šúèï¹£¨W@Ev_dÔÀÅcX[VORtoqunqi^atkn»´·ÿüÿÿöþøàèÿíôþðöÿöüÿüÿÿüÿýóùôíðÿþÿýýýýÿÿîððÿÿþý÷øÿûøÿÿ÷»¼²uqf¡™Œsj\Œƒu×ÑÄÿÿõÿÿøýÿûúýûüÿýûÿúýÿûõûðÿÿùŽuyhEOqPW=$R7;…ruhce§ª®ûþÿýýÿÿþÿÿÿþöúïÿÿôÛ̹ƒ[I‚5,œ>8‘0,ŸED·jn¬nt½“¨ƒ…¯Ž‹‘rq–y|gLPXAE}jghUH[B8gEKW5?YDFbSPaNKfNNT28`=GtSbI/G+<, P??u4Bv<^‰Dg‰.D`¡³ÛöÿßÿÿÚÿÿÎöÿÓûÿÍ÷ÿÓþÿÅðÿÓýÿÍöÿ¦ÑüGs¨ZŠÄŠÀüšÙÿÑÿ|½ð‚Äô¢çÿ“ÛÿƒÐ÷{ÈïËõÔÿÍýˆÇù˜Úÿ˜Ýÿl·å{Æô†Êù—Òÿv­à!S‚³ÓÃõÿÍÿÿÂü÷Èÿÿ¾úùÀûýÇÿÿÈÿþÉÿüÍÿþÑÿÿÏüÿ·äÿ^Å8hª[†Éa†ÄOn¡Wh“PPxREeh~ˆpzŽ}‰wvx€„lvjZah[]xjkäÓÖÿðùîàìîæ÷ýúÿòóýõ÷ÿûøÿþöÿýòüÿòúÿ÷ùÿúþÜÅÓx]q
#
!0
):<Q$B[%@
#*#9D.8$8C,3),	

.>=N:N+Tk5_|?b&J
$2"-&,


!
$,%BQ)Fa'H
	'

1	)
1Af"V

N]L

?
O
I
,*


_aa
z+


]
OE

3	7

Znvƒ1 ,‘0‘2ƒ/‚.
œ7”&—)—.#4/(+z"(kn#VU6
	

<)?*"3+uiuøòÿ÷÷ÿ¬¯¾"XUeû÷ÿ·µÒ”°åðÿëùÿóÿÿöÿÿïüú·ÊϧÄÒ¾çþ^Ž°c—À¦Ýÿœ×ÿŸÜÿ”ÕÿÑþ™ãÿžæÿˆÇío¨ÏCx£Uˆºo¡ÝœÍÿ€¯íp©à‡ÕÿuÌô”ãÿ’ÜÿÖþ’Õü–×ý—Ùü“ØùÕöšÜÿ‘Ïõ¬áÿ¬Ýÿ’Á÷;k¥a“Ï”½ôc}¢mq‰Õ¾Æÿåã†][M}?5K@v80‡MHd)-b21/urc´¾¸ÐßâßæõàçøíùÿèþÿÙúÿ´àø~·Þ
M~F“Ëc¹ïpÌûlÊõŒéÿ~Ùÿj¿ì‡ÞÿŠëÿrÔöNªÍ9‡«?yœ±Ï¹ëÿŸÎܼÞäàüüêÿÿñÿüóöôö÷õöþýíòõÿöÿúé÷

TTQZ[Xa
d
	\
,{
E,5%0$$
+#+<
%@^T{›6Y-T0W„T|¬)S€8d‰šÂÞÅëýÐóýÝÿÿÚÿÿm™ªa”®ŠÀá©âÿžÙÿœÛÿÓøâÿ‹Ð÷Òó¬çÿ_ŠŸ
%G2Pi‹Á;a›%WŒsºæßÿ“ßÿ‘ÙÿŽÓûŽÑø’Óù˜ÚýœÞÿžàÿ¨æÿ¦áÿ¤ÖÿœÉü­Ùÿ©Ôÿ‰µð7Y".Xÿõÿ°Ž™h9;k77ƒHFp)%}20‡@Co+2‚AJˆTToQ@¨‰nuhboqÈÒêÝìÿØ÷ÿºçüU‘§d‚yÄðsÁöˆÚÿŠáÿtÏÿ[ºæfÅðeÄïkÉ÷€áÿdÐònÛûnÑ÷tÌõv¾íÀìx¹à>z˜6ez¿åñßÿÿæÿýôÿþ÷ÿøóûôùþüþüÿðêõ
*G
RMD

LNX[
V
>
3
S6/W8/eF=`A8P1(\?6U8/P1(]=7U1+EŠ_\\31\45ÿáãÿÝáÖ·ºL22ÿõôÿüùýýÿñùÿ2<dU^—ÆÌÿÊÐÿÕÜýëöÿñýÿõþÿ÷ÿþùÿýùÿýúÿýúÿþúþÿúýÿûÿÿúÿÿõþûøÿþõÿÿôÿÿíöÿy‚Üìùìûÿóÿþúÿûÿÿûÿþúÿûýû÷ü÷øüôúÿïøÿçõÿ‰š¯¡µÇåþÿèÿÿÒÞð!%>ÌÅæ¶Úôçÿÿöÿû÷ÿúûÿúüÿ÷ûÿýÿÿý÷ü9+7WAT`Da
±š˜ÿòàèÓ¸¹£zpXãÈ~ÿãÿê‰ÿçÿíƒùä{ó؈3
H
G
7
Jais
f
Al Y†H{T"U”(Zœ,]›@s
1[?`LmU|'c[„S| \†W†M†$X”%[’']’I€SŠ

N
]	nŽ%ˆu~"…/Ž7#†"‘+ =)—;"Š6r‰*–8%x)„5 $‚%~(* ‰/.‡'-‰!(–/6‚,,h)%S3-
N`/1
EVO	
#'	>SP—¼Ôÿ~ØÿjÆùoÍûoÑûcÈîxàÿ_Ãå‡ãÿêÿãÿfÍínÕötÙùqÕò‹ïÿbÊçkÕô„ìÿïÿÔÿwÅðŸçÿÔû™àÿ”Ýý„ÌôÔÿ•Öÿ5k”)QqŽµ»×ÿ¬Êû3X’;z‹»û ÞÿmÀó{Óü„ÔùŒÔöÓøŽÓúÕýŒÖÿ‡ÖÿƒÖÿtÉöqÆó€ÑþyÊ÷‚ÔþpÄî|Óû‹Ùÿ‘Ìÿ¥ÐÿZy¦8>8K0$*:l1?K/	B# bD?_NR*-I)Fr]˜ÐÑÿg½ñeÅówàÿwçÿPÀîKºêeÎÿ_ÄñiÉñx×þdÄèlÍóuÙÿjÏüxÙÿjËýlÊøZ½éYÅïkÔÿsÏÿƒÛÿeÂúa»ôyÏÿŠàÿkÅã]o
gLU¬„ýÜ»ÿÛ­øΟ÷ȕÿѝÿؚïÄsûÕ}ìÇrÿ݇ÿ܆ù×~ÿéÿÝ{ÿäzúÔhñÊbþӄB

…—ž+!'x$%¢, ¹:+™$²;%º7#˜ƒ Š4(;,}“›"¨7'—0'”76ƒ)/†+4t,8V2B)-?
0

°3±'ž,ƒ+‹- Š#¢,¤(ª2&—,$ˆ00l!)p/>W,A,'B

!$–µ¾Çôÿ¶íÿ²ëÿÉøÿÃîÿ’¼Ù\†£¹âÿ›Äå`Š§«ÚðÄöÿÁöùÈýúÎÿüÐýúØÿýàÿÿÙÿþÓÿÿÏÿÿÒÿÿÑþÿÍþÿÇÿÿÃÿÿ¿ÿÿÄÿÿÆÿÿÉÿÿÌýÿËüþËüþÎþÿÕþÿàÿÿàÿÿÖýÿÏÿÿÄûÿÂùÿÇüÿx«Ì™Çé½ìÿ½ëýÁòüËüÿÆùÿ VaN\)Ub+K^GVv>ElovÏÜÿ¾×ù±Ïò¼àÿÂçÿ¿åÿµÞþ°Þý°Þÿ®Ûÿ«Ûÿ›Îÿ™Ìþ£Ñÿ®ÛÿœÊóŸÐøÑú–Ëö¬àÿšÑþŸÙÿ£ÜÿžÔÿ¦Øÿ’¼÷Wƒ¹	@k ^„Y†!ZY
;vV“MŒ0u
n!r	†'˜4"Ÿ5$¡5#›)¢'”Ÿ
 ¤"Ž
²7-®/ °0¥&´4§! &›9)…*ƒŽ¡- '$‰y(+^'0J*=3.I!;_
l 
x0co"y
'¡3!¤2!ª4!©0  Ž	
5e{ŸŸÃLp”?a~Dbu\kt,,,C4+aD6X1"`1#l8,c0&i?3qNAiH?V:3O<7ÿÿüÿÿÿðúúëýü–®®ßùù×òïìÿÿíÿÿïþúóÿþéüùïÿÿíûùöÿÿúÿÿðõôûýýþÿýÿÿûýüò@8+VG7†nZrR;zR9sJ4xWHZ>7P97?15‰•ek~

—¡ £&¨2&2+‡*+d%T$1
ˆ§°ÇôÿÇýÿÃÿÿºùÿ¬ßùjš¶*\x!Sqb“¹¯àÿÆúÿ´ëÿ¿ûÿ¾ûÿÇÿÿÊÿÿÊýÿÌüÿÎþÿÈùûÄýþÄýþËüþÌüþÉüþÅýþÂþþÂþþÅýþÊýÿÎÿÿÌÿÿÉÿÿÆþÿÆþÿÈþÿÅøúÌýÿÍþüÌúûÐûÿÖþÿ¤ÆꂥͷßüÅóÿÌýÿÍþÿËöÿ§Ðç D\;MPW/^f3RiPdƒgq““ŸÃÉÞþÊæÿÁçÿ¶áÿ·ÞþÃéÿÍòÿÁèÿ®Üÿ©Ýÿ¨âÿ™Ôÿ˜Ïü¤ÙÿžÓþ©Ýÿ£Øÿ—Éýª×ÿµãÿ£Ôÿ£Öÿ®åÿ¥Üÿ¦Öÿ®Ýÿ˜Ëý/b”"Sƒ*[‹%ZŒ%^‘TŒ,c "S—%SšN’%W™&\˜%[Ix9ie”ÌŽ¼ö¿÷”ÄøœÍýÐû£Øÿ—Ì÷žÒÿšÎüŸÓÿ¤Øÿ Ôÿ Õÿ¡ÖÿÓü¦Ùÿ Óþ£Ôÿ¥Øÿ¬àÿÄäÿD5=Z01_03X%,R!)U&.a9>\<A4#QCN3+<-$@Sf‡g‚§Ddˆ^}œq‹£q‹-/0L>8jPD\9,e8...@8d...C[?4nTMlYRƒwsúõôûÿÿôÿÿã÷øÐêêåÿÿ›··Öñîìÿÿîÿþíþú»ÌÉòÿþðúú÷üýýÿÿÿþÿÿþÿùúøñóíýüò0-]UD}lWhP8y[@yW?eD1\>3K3-N@B‹–U\m+7@]xnŒ¥Jcwv‡”NT[($#I=7^KDR51Ö´´ß·¼Ù´¸Ó³´çÏÑXFM‘ÿøÿ0-MÁÅõÌÕÿ",z
YÆÌÿ¼ÀûÂÆÿÁÈùÇÓ÷Ùæÿéøÿïþÿïÿÿíüÿðüÿðþýðþýðþüðþüîþýîýÿîýÿóÿÿòÿÿóýÿõþÿ÷ÿþõÿýõÿýñÿýëüÿíÿÿáúöæÿÿÞúûäüÿ½Ëû™£Óâíÿîùÿáìÿåîÿ…Œ·åëÿñóÿóóÿûöÿ‚|“
 
<

yŒ™Ôòÿ¾æøË÷ÿÆ÷ÿÐüÿÉ÷ÿÃôÿµèü¹ëÿÃöÿ”Êè¡ÚðÀûÿ¿úüÆÿÿÊÿÿÈþÿËþÿÌÿÿÃüû½ÿþ½ÿþÄýþÇýþÅýþÂþþ¾þþ¾þþÆÿÿÈþÿÇýþÆüýÄýþÃÿÿÅþÿÃþÿÀüÿÂüÿÌÿÿÉùûÔýÿØúÿ—´ÙªÉð¿çÿÆ÷ÿÈþÿÊÿÿ½ëÿ‹´Õ<^@YIP*af-Rf?WuUd…{‡«ËàÿÄãÿ¢Ëì°Üû¸àý¶Û÷¼Þû½ãÿ­Ùÿ™ÎùžÚÿ•Ñû™Ïø¤Øÿ—Íö ÔÿÐÿ•Åù§Ñÿ¯×ÿ£ÐüœÎø ×þŸÖýžÒû›Îù³çÿb—Â%UMuMr#\ƒ
HuP‚ WMŠJ‰N Y‘L
1a4a”šÆÿ–Ãÿ™Èÿ¡ÑÿÏýÐûŸÔÿ—Ì÷ÑÿœÐþ Ôÿ ÔÿšÑþŸÖÿ£ÚÿžÖÿŸÔÿ›Îù¢ÓÿÐûšÎ÷´Òï8'0S'(a/3W#*^)2s@HQ%+F"(P5>G6?61:*-;/;PkoŒ«HiŠZy˜l†žEUb'+0JA>TA:X;4c?7d<7c?9P3,fOGaKE\LF©›ÿýþýþÿôýÿçøû¥§×ðòàúú×ïíìÿÿçüùåö󛫪Úææøÿÿöúûÿþÿøõ÷ÿþÿÿÿÿÿÿüÿÿùEE7MK9{pZiX=`J.y\AiG0fD4W<2TBAhah7<K.C
&@Ol‡t’«aybr!$,5-.YHEW?9R32Ö±³Ü²¹Ú±¸×´¸àÃƘ‚‡RAJöéùkfƒ†²ÆÐÿ‹Ùl™äÎÐÿÄÉÿ¿Æý¿ËõÌÚ÷Úêûãóÿêúÿíþÿîýÿîþýîþýîÿüîþýîþýîýÿêýÿèÿÿèÿÿêþÿíþÿòÿÿòÿþòÿÿðÿÿéúÿëþÿâüüäÿþâýÿãøÿ×ãÿ‘˜ÉÛæúïþÿÐáôæøÿŸ®ÕÅÑõóùÿìíÿ÷ïÿÿõÿÒÆêh]}
	
[ŽmÃñf¿øc¼ÿGéc¼ÿsÕÿæÿkÑô{âÿpÖÿiÑüiÑüoÓýˆèÿx×þx×þvÙÿqÛÿxêÿ^ÙûhàÿtâÿqÜÿYÇñ]Êö\Åö\ÆûOÃøK½òiÍÿ`¿ðkÐ÷‚ÜþB„¬×êã÷ÿÔÚåñî÷ÿüÿ
'.+>;3L=4bG=eB8d90Q*"cIBfWN<0*]TPÿÿûòôôøÿÿôÿÿñÿÿ£µ´k}|¡³²éüùÁÔÑÅÖÓîÿüðþýðþýïýû¿Í˺ÇÅðúúÅÏÏ¿ÉÉôÿýõÿý×âÚ$!‚wcÙ¬]@+R4!_C2]C5M>501('#'$
33Y€‚m‘‘h†‡0EC
VPKfPKV52eAA฽ൾݯ»à±ºè¹Ááµ»jpD(5ÿíÿ!A‹‹ÁÂÈÿ®µþ


Ž&€!sŠ+•.	”
¦©!­2¡*–›	ž&¤+Š
˜
‘$8 ”G-‰9"‹9'y&Œ7/3"v, U-28;PJ|¦†ÕÿƒÛÿx×ÿƒèÿvÛÿmËösÍülÈùxÓÿpÊí•éÿ×ñãÿ•Ùÿšàÿ=Â


£¹ÅÑñüÒøÿËõÿÉôýËùÿÄ÷úÇúýÈöþÌøÿÀîÿ½îþÁöÿºòý·ôø¿ýýÃÿþÃÿþÅþÿÇþÿÈÿÿÊÿÿÈÿûÄÿúºüûÃÿÿÁúüÌþÿ«×öošÁ§ÔùÄóÿÏÿÿÎüýÌõÿÆçÿšÍ…šÑ5Gp6NlCW KZ=L7I7N5Om‰¢Ê³Ðü¯Óÿ«×ÿ Óþ–Ñù–Ñù›Òý¦Øÿ¥Öÿ™Ëõ­Üÿ°ÚýžÁâs­7Nh&<1>Ob£µ¼Ò䃛¯=Um&=W2N&A(%+)7
	
	


#"
 5"</"#.6#+").60]jBqŒ$TxHt3c
lXMnRGnMDjFFW17e@H4aMYòêõsw‚êôþ”ª}†öüÿ÷úÿ><B%![CKX6<T,.භ۳¸Ó­³Ï§²Ð¨´â¸Éâ½ÑåÇএ¯odŒwt¡
8bl¢ÎÙÿcn§`j ½ÆÿÆÎÿ²¼ø½Çÿ¼Åþ½Æø¾ÄñÌÔù×ßýäïÿíúÿíýÿêýÿâúÿßøüäüÿÝøüÜúûàþÿâÿÿåÿÿêÿÿêÿÿëÿþåÿùãý÷êÿüîûýøúÿÿùÿª£¸ÜÞößéÿÞìÿËÙöÝçÿ½Âá|{ìéÿrq‘ƒœÛâñîôûýþÿÿýÿþóÿYO\
cœ^uÑütÔühÏöfÑ÷j×ývâÿlÖÿhÎùnÑýnËü{ÖÿrÌÿsÍÿpÊÿdÁùcÄüfÎÿgÖÿbÓþ\Éõ`ÄôoÈû}Îÿ…Ôÿ“ÚüšÔê*VcÂÜãôþÿóõýÿüÿÿûÿâÌÑ


	

7'=7
NYOÓÞÖúÿüøûùýÿþÉÍÈ÷þùôýúîüúéúýêÿÿ¢¾Åp˜ÐôþØÿÿÊôÿWƒÈóÿÒûÿPw€Öùýáúþ€”•ëøööÿüïüôöÿûôÿûïý÷øÿü?FA:;7=<863.KHCQLIa\[LDE

~0*Š=4¬9,¨%°6•4 f,&4)1

,=}›´Ìøÿ¤Ûÿ•Öý“Øÿ‡Ïñœäÿ¥íÿ†ÍîÖû“Ýÿ‹Öÿ‡Õÿ†ÒüÕÿ—Õù»êÿÜùÿŸ§ XQB


	






—„+ƒ1 ˜4Ÿ1®:#ž1#/4a#9)@8S™Ùÿ|ÚþSÈåjßüw×ûnÅí„ÜÿpÈð}ÔöçÿëÿæÿpÂò`©ãt´õ={»{Æú•âÿ¤ëÿËÿÿßúþ³Á¶L`C'/@7Ugn§¸Ëðÿ¯àÿªåÿ™Üûžâÿ£æÿ¬ëÿ—ÐïÖö¢Þÿžßÿ“Øÿ—ßÿšàý©çùÈúÿÛûúœ©¡[XPo`^ùåêÿ÷ÿÌÈÛåïÿßùÿÀëÿ“Êïzºãšßÿšæÿj¼æpÃöjÃöc¿ò}ÜÿnÑý~åÿnÕülÒütØÿ@¥ÙS·ífÍÿWÄøLºîK¹íj×ÿcËÿ[ÁõuØÿmÐÿU¹é[Áñl×ÿfÑýhÒÿvÜÿiÊüiÅørËþ‚Ûÿ{ØÿfÌýP½óUÈÿUÉÿTÁù^Áók»ä Øõf€‘%&K))_1&J±ŒpǪ{cQ,

	
ˆ:)”C44)’,'“( ™0"¦9$±9#»;&Á:&¹2¦&¢$©(
¸5½5»7 ¸:(ž(§:¯=¶2º3´7"®4¬+°1«1#™->$Ÿ?!ž*˜%’3 ‡.¢?)¤:#ž+–"•&.x#9HA+*Th”½—èÿràþ[Ìì}ÞÿxÕüqÓû}ÞÿwÑóêÿ€Ýþ‡åÿ{Ðÿ[¨á"b£xµ÷žãÿÖÿÇåÅúÿáúÿ‚>N=exgÛò¾˜·ÌÑ÷ÿ«Ûý£Ýÿ¡âÿ£çÿ©êÿ³ïÿ¦Üý¨Þÿ¡Ûÿ–ÕûŒÓù’Üþ×ñ§éü¢Ùâ¼æëäÿÿ­½ÄOTcuuááÿïõÿÛîÿx›ÃZ‹·|¸æ“×ÿŠÕÿ—çÿ{ÐøuÍü]¸ëqÍÿ†äÿmÍõuØþrÚÿsÚÿwÝÿD¦ÖU¶ènÑÿaÊýQ½íYÇ÷cÏÿdÌûgÍýxÚÿu×ÿkÍûmÒÿ{ãÿkÔÿ_ÆójÎþlËýyÔÿ|ÒÿxÑÿ~ÞÿvßÿVÇÿL¿üL½ûgÎÿ†ÝÿžáÿœÇØ0@F>PSoE.S.‡aIÆ¢Š
9lAqHxAo



ª4
£-
¬1«(².¨+¤,¡.™,6¦C'Ž/Œ+”(—'!™,$–#”œ!–(.€/>X*@-Eh‚‹Îé”äÿÛÿåÿtâÿe×ÿtÜÿ€äÿyáÿzàÿhÉûG ÙGÎ‡Ìÿ}Äýp¹í7‚®[™ÁÁáÿá÷ÿÏëÿ¯ÑéÃíÿÅñÿœÇåžÑü±ìÿžÞÿ ãÿ”ÔöšØü Ûÿ Ýÿ–Ùÿ•ÞÿŒßÿÖþŠØÿ’Úÿ§ëÿ…Çêm®Õf¢Ðy±èq¦ßƒ´ì€´én¨Ùl¯Ü‡ÕÿÖþ…Ýÿ’êÿ€ØüƒÞÿtÒÿB¡ÓqÎÿvÕÿxÙÿîÿwÝÿwÜÿ‚äÿiÊöpÏûtÖÿqÙÿnÙÿn×þmÕú{áÿ{ßÿuÖúyÙýxÙÿxÙÿnÐøiÍ÷rÓÿ‚âÿtÑÿpÉüsÉÿyÕÿgÓýLÂìeÝÿL½õ^Àö‚ÐûœÒë\|‚!



¢#¥4 2œ%­4 «:*¡7&¢<)›6 ¤6$Ÿ2$‹% Ž66u27i:C@'5)/wqŠ±Ãà†ÂßmÁݍêÿ†èÿŒïÿ(ºN±ãa½ðnÀðŠØÿŠÙÿyÌòŠçÿzÐú>{­T‡;{«U™ÆyºæŸÝÿ£ßÿ{´ëj¥Ö‰Åï¬èÿ³íÿ ÙÿšÕýœÚÿÒúÛÿ”èÿ†àÿlÁîp¶òj§éb¡Ýo±ì{Äÿp½ü~Ìÿ‰Öÿ’Ýÿ„ÏûŒÚÿ†×ú‰Ýÿ‰ßÿ“äÿ’åÿ„ÚÿsËùb»íU²ãmÍûkÏùuÙÿjÎønÏûiÊöjÌôkÐ÷n×þiÕÿXÅø@«ÞlÒýyÙÿvÖþdÄìoÎöyØÿgÆíjÉñ}ÝÿrÑümÌø{ÙÿwÔÿ{ØÿoËþdÃôaËô\ÇíoÒøƒÕø‹ÅâTuˆ
*#,I10	
	

\
-9KO]yœ¯Ò´Ëñ´Ñö®Òø¼æÿ³äÿ›Ïý˜Ðÿ™Íÿ™ÌÿšÐÿ˜Ðÿ˜ÐÿÊôžÖÿ—Îõ£Øý­áÿ°ãÿ²åÿ¥Ùÿ–Íø™Òÿ•Ïù–Ñùž×þšÔø˜Î÷ Ñÿ¢ÑÿœËÿ›Êÿ ÐÿÎþ™Ëù˜Î÷›ÓöœÔ÷—Ïø•Ì÷¦Üÿ¦Üÿ¡×ÿ£Øÿ©Þÿ¡Õÿ™ÍûœÒÿ—Ìþ™Îÿ™Ìÿ•Ëÿ”Èÿ“ÇÿÀþ‚·ö~²øn¢é~¯ù‚²új—Û}”ÆS=Pf9<X-*^7/^:2P/&W3+c?7b>6jD?b20e33e68Y-.wJMʟ¢Q'(_64hB>Y5/_@7bF;eH:a?2pJ>wLCtB<ŠXRˆ[Pi_vYUvdk.'<‹¯Òåÿu²ÐôÿÑûÿÒüÿÑûúÚÿÿÚûþãþÿÙïû


KZm‡›º¶Îò¶Ðô¶Ô÷½àÿºäÿŸÒý•Íü™ÎÿžÓÿžÔÿ˜Ïü–Íø›ÒùÔùœÒõ±æÿ´éÿ®áÿ¨Ûü­áÿ°äÿ§ÛÿžÒúšÐùÒý¤×ÿ¥Øÿ£ÓÿžÎÿ˜Êþ•Êý”ÌýšÓÿŸÕþ¨Ýÿ¶èÿµåÿ¬Ùþ¨Õû¥Öþ¤×ÿ®áÿ®àÿ­áÿ«ßÿÐû›ÏýšÏÿ›Ïÿ‘Æÿ†¼ùµö‰½ÿ~´ûŠ¼ÿ‡³úpšá¬õj—ÛaÏz”Ã@.Eg>E\31^91`D9fJ?f@<^52\4/`83i>;h=:h<;W.,DñËÉuROL,'iIDdD?N.(uQKqIDzKGo:7‘ZWŠSP\V|MEŠd_nTT€r~(†’´Éáÿr‘°ØýÿÅðùÌüýÊüúÉýýÐýÿáÿÿÚïþÏàó$6ZYi€‹…ej¨|{©tq­up§pk¤pj‰XPŸndŸn`YMša_u=<LJvIFW1-‡d`¤„@ nHDg?:kA<h;7n?;f73k;7b96]B>
éÀqÿÚtÿÕlÿÑfÿ×kÿÚqÿá~ÿá}ÿâ{ÿæ}ÿâÿÊ}q$‰3!–B&Š2…#‡#!ˆ-(:.“=+“9!Ÿ;"©F*ˆ*
œ<£8²?³>½I2¯A5œ-#¥,¦(©*ÃB'ÌG+³3’
FC
E7


!5ew–«Àæ¸Ïõ·Ñö¼Ùþ¶ÝÿŸÐþœÑÿ›ÐÿžÓÿ ÕÿÔÿœÑü›ÑúœÑöšÐó§Ûÿ±æÿ³æÿªÝþ¦Ùú¤ÖúªÚþ²ãÿÐûÑÿ£Õÿ©Úÿ«Ûÿ§ØÿÒÿ•Íþ–ÑÿšÖÿž×þ¢×ü§Ùý«Øý¯Ùþ³Ýÿ§Õþ£Ôü¨Ùÿ¥Õÿ¢Ôþ¢ÔþšË÷šËû›Ëÿ™Êÿ“Âÿ’Âÿˆ¹ÿ…µýx¦ó„±ûŠ±öq–Úx¡æeÓd‘΀˜ÆF6Mg@HW0.Y4,V:/V90]64a56b52_50`52i>;lA>_63A¶‘½˜O1,qSNK-(fC?e?;d74‚OMFEQQ‰PO’]Z„VOzUQr[_|s€9Œ ÃÆäÿp—³ÎúÿÏÿÿÉýýÍÿÿ¾úúÉÿÿÌõþßþÿáüÿMbw);mfs‰rwŸyyŸli°yr§mhžfa£lg¨rk–`UŽWN†NIŒURNLnA=P'$°Œ†ŽieN*$nHDf<7m@=l=9l;9d40k:8`52N/.&
¯(¼5§'
±3¢"§%®,µ4 (“ œ1 7¥@§@ ª;%¦1(›'©-9ª49•*'1+3,˜4/™1*—1%…4,T-/PLX7Rg@e

D7






2["%c$&s46VH?*
(

Q'(S$&?

`'(E<
,$


ª0©5¥2#§+%¦,, /3‘&)’+)š4/™1,ƒ.2k?V,.Q7k™ŠàÿâÿxãÿrÜÿ'‘ÇS·ñpÔÿ@ŸÑpÎü{Øÿ„âÿ–öÿzÞûkÕí‹ûÿƒûÿdÝ÷}ëÿyâÿëÿlÖûH³ÕqÝÿuãÿxéÿqçÿiâü{õÿvîÿzîÿtäÿváÿƒíÿ}åÿjÐó~âÿyØÿdÀñ>šËhÇósÕý|çÿtàÿoÛý}èÿçÿoÑï‚ÜÿL§Î;›ÃuÖÿ3”ÆiÊü{áÿvÞÿcÎê~çÿzßÿs×úoÎöeÃîuÑúÚÿjÂðkÄðjÈìhÂáÝýœÖéKhe:;1A)#T22I+08 ",
:N!\&%SOIENJN?	C?	=
8
--	$
$
$



/#”,š4'”2"6'¢2&›)"Œ$*¥<)¦3·C ¬>™-§6§2Ÿ%¤*£.)š,& :(®E*•
«5" '› #¦36›10‹&š8,•3'‚67T3N!KUÁ‡ßÿ|áÿ{èÿkØþ6 ÏlÒÿmÒÿ(ŠºxÙÿ†æÿzÜþzÞûyàù{æûyëümæönåúqÞúvÚü”øÿ€äÿ+’³qÛúrßûiÚômáøqéü}õÿmãöyéÿrÞö}äÿ|âÿòÿ{Þþ‘ðÿ‰äÿ_´äEšÌuÎú{Ûÿ|áÿsÛøtÜù…ìÿ{ß÷wÔí|ÓõrÇïO«ÖvÓÿ9–ÍdÄùqÔÿwßÿtßú€ìÿvÞûvÚütÕûsÒú}Üÿ„ãÿtÏüzÕÿqÏúyÑù…Ó÷™ÒçC\X1,P.!a3+]34O'(D?JX
ZM
QaZG0
B/
>MP		

{sl³§›‹~’r~k\ym‰tev_PvaR}m]WH8*ˆxhÛÆ·N7(U:,aTkH;f>2g=1l?4|NCj<1d6+`<2UB;	


(
0&
!
4:Fb+>Y*B^1Qn%Kk0R}°Ü¥Æó´ÖÿµÜÿ¬Øý¤Õý–Éô›Îù Óþ ÓþœÏúÐû¥Ùÿ«ßÿ«ßÿ¤Øÿ£×ÿŸÒú£Öþ¬ßÿªÞÿ¥Øÿ¨Úÿ¨Øÿ¡Òÿ˜Íÿ•Ïÿ˜ÓÿœÕÿšÒûšÎ÷¬Ýÿ¨ÙÿœÎÿ˜ÊÿžÒÿžÓÿœÐÿžÑÿ•Æþ•Çÿ”Çÿ“Æÿ„¸ú‡»þÂÿz­ómå`ŽÕk•ÜiÕ_„È`‚ÄMm®pÎnŽÉc¼lˆÉa{½i‚À‰‘ÀU7Pg5?f3:m<>h>?W-.m9@}KMb:._=-dA7d@8X3+]80iE=mLCM.%E* Ø¿µ²œ‘M7,E/$_D:L/&rSJ|\V{\YnQM¦‰„H.'	
I61L@@‰ƒ„®¯³sz}~ŠŠˆ˜—i{|Qbeƒ’›v…Ž¤³µL\[#%

.4	8:
60
1%

	
>
0-
#
9>

|’-›9'ˆ,Ž7#‰7%ik w(t("dW_o€	£*¬4¤3±?º@½= ¬)¦#¼8.½@+²@¡7 <ž9 —+§7#¢1¦/«&"³11§;*¦C-¢@.’3 4‚6 m4%_:>3E
+


z"€+|,ƒ6&z1#\	Zlg[V	a
v‹š!°0µ6¥/°=¼C·8 £!¹7*®4°C£@¡@£A)™+¥2%œ'¡(¬)&¯0/Ÿ2$™6"›8$”3—:%…4p2"b898A=Š¾ì‡ÜÿsÛøpãø~ðÿsãùïÿcÑû3 ÓlÛÿ|èÿƒîÿ‚ïÿìÿnÙô€èÿ…éÿtÚñöÿoÙðpØõwÞÿ;¡ÄfÏðnÛ÷„öÿrçünæùuìÿhÜósãúyèþëý†ìÿèÿ|Ôø{ÚûpÑõoÔÿ‚®gÑúnØýƒìÿ|ãÿ|àÿwÞþxãþmÜö‡ùÿxãÿ‚ßÿR«Ý ~¬rÕÿl×ùqÞþXÆärßÿ_ÆíqÓûƒäÿtØúqÕ÷jÒ÷nÔÿ`Ã÷Žèÿ‹Úÿ§ãÿ2Zf
1



^
fmpv… ˜"'«,+´2%ª*
ª/	˜'
U65b65V*0X_eAAS--e4<e4<mEGtOQzRT[27b6<k?Ej>Dc:?W26\;?D),E347++4,,.*)'%$342675755-'(C8:~no‹ss‹liœyu‘pgÚ¿µ¤’‡a[Pjl`~„y˜ž“Ÿ —]WL}kZäƳ°Œz¯„súʾĕ¯†ƒÅ¢Ÿ¼Ÿš²›“ͺ«ØÊ·ËÁ¯¤ Žtrg…†}ROK~yv€xxoheLBB/(%H@@UPMFBAPMIWOOPGD?/0UA@[@CU69c?E$


O (´ŒŽ¹““Ϧ«Õ©°Ñ¥¬Õ©¯ã»¼üØØÿëêÿëíÿìñÿôýÿïû÷æñúéòþîõÿñõÿùýÿùÿ\DNœ‰Œÿðóÿïóÿñüøä÷ÿé÷ÿîéÌ¡€¬w4ÿËpýÐgúÓfÿçÿÜvýÐnÿÔrÿâÿä€ûÛwùØqóÌbüÕkóÑmëÃxc*o%{ …,"klv("r# fahgy#‹#$™%*¥(*§'"£&³A#¯B 7«>¸@¿E³8°7µ9'¦.¦3›/Ž'–2 œ6)¤6*±4&²0#­3-˜&‘(š7#ŸA*›?&œC(”A%…< s?/Q:?&-FV‚«”ßÿ„ëÿvêÿwêþqãúuéÿOÅî"šÈtíÿbÛû]×íhâòuñülæö|òÿñÿ„ïÿ†ñÿwáøtÚ÷†èÿ‡çÿrÑø|Ýÿ‹ïÿyáþgÔðwäÿxåÿ}èÿtßûxáü„èÿ‰éÿw×õ~âûyàûkÒóJ²ÕQºÛ~èÿqØøqØùmÑôtØúvÝøjÔìyäÿn×øgÌóäÿS»ê;§ÖYËôiÝÿaÕô}ìÿŒñÿ}ÝÿÜÿ~ÙþÝÿ‚âÿ|ÜÿlÊõrÇïœàÿ¨Á'2')5
0
)
+

/jBr…U‰ƒK€‡P„VƒW|yMjR"<E^©j~ɏšÒž¥Ô©¬Ð§¬Ú­¶Þ¯¸çµ¿ë¼Äⷺݸºÿäåÿðôÿí÷ÿíûþéøöáðúæóýëòÿòóÿòñÿùÿ«“›‹x{üìíÿòõÿìõúäöÿøÿÿïë×xf)ôºhúÈhÿ×rþ×oûÑlüËiÿÐnÿÝxÿÚtôÑjöÑiûÑgÿØnöÒnôÊt;~3*‚$ƒ vj
sy% njjgy&4Œ2!‹)š-%Ÿ,!

!,"#%!
,


-	-
0
/
„WB7
Þ¢fó½|z]1
¦7¨9¢23”6Ÿ=%›(©3 Ÿ6!—9&Ž9*‹8)”<,“1¥5#¥5(’/'ƒ/3h)=8B

	

}rtôâÛ`?+˜jKJ
FT¸ðÿþÿ{îÿgÞ÷\Ñìpåÿpæÿƒøÿxîÿ€öÿ~ïù…ñüƒìùqáîpéùsîÿuìÿxìÿ‚ñÿ~æÿqÐ÷]¶âqÊöŒìÿ~ëÿwïÿmíÿeåúháûoÜø‰çÿ~Ûôxà÷oßó}êÿìÿyãûvàøvÝøæÿŠðÿ|âÿxßÿrÙùlÕövßÿiÔö‚èÿ|×ü|Øû‚æÿ†òÿ{ìÿoäÿnßÿjØúkÓökÌòfÂíuËùÓÿ‡ÖÿƒÔ÷ŒÓôˆ»ã0T


*
5

+
+
–1™+
¤1¤0›-˜.—,¥7©5 ,µG%£9”6Œ2“9!ž@)›5 3¹J"±@ž%
/
0
0

*!










B=ZYPxsc’n\‘p]œiS”uT—{Vœe=‹tN O2‚1e[CƒnV–sX¡fL˜y_«~[«k4‰m*†y0—m+Y'rK™{\¡ePxi§±®æÍÙÿ»Ñû·ÐúÉëÿ¯ÚÿÎú™Êø¡Òÿ¢Óÿ›Ìü™ÊüžÏÿ Òÿ—ÉýšÎÿ›ÏÿšÎÿ™Ìÿ’Èÿ™Ïÿ‰Ãÿ~·üŠ»ÿ¼ÿq›àm—܁«îq›Üm“Ó{¡áo–ÛlÓs’Ï|”Â5B\(%"$,$$,  R@AwacuZ]pSVvY\sVYqVYoWYmWYmWYmWYmWYmWYt\\t_^p\[t`_t\^mPSY6:nFKnEJjBGQ,.a??‚``˜ur²Œˆ´Œ‡‡]XwMFsIBmF>^91\80hG>tSJqPGpQHbA8kJAuTKdC:wVMgH?vZOlVKWH?jb[e`]YWW437++1ûûÿûþÿøýþûÿþûý÷*)KE:q‡lXZD•lV–kV˜iT¨ua½…tªqbºr½ƒwŎº†yªxl­}q¯‚u¢uh—eYšg]ƒUJ¢zn©ƒwÚ·­Î«¡}ZPZ3+a70j@9wMFpF?g@8oKEqM;c@ìɅþہÿàuþÛfýØhüÒrõÄx¾‚Nt4
…NI¥sušnoig¤~|Žkh’lluwdi‰`g‰bjks´—Ó­³Ñ¨¯Ó§­À”[_k>A’gjÝ°³Èš ˆYbשµÇ¨×«±Á’Š\)½ˆUÿσüÒoÿâuÿÔiÿÒiÿÒkÿÖoÿÛuÿÝzÿÚ|ý×yõÑmûÔlÿÐlÿÎt݋Dò’VôOã?á‰Cì–Pò”RðOø•Wô“TæŒKê‘N÷™X÷“Xÿ˜dÿ•fðSì†VÁh5žF¤=¨;±B"¯>©5´>!º@(¬/¸5!¿8"º1²)	¦"


	

	
&



	"('!))&		
³?«=«@£8¤8¯C$“.ž:!¯H(¢9³G(­A)š.Š%—19'˜=9ˆ:RNA9œÁµóÿ¤÷ÿx×þhÎñwáÿwâþ{àù‚áû†ßú{ÓñyÒô€áÿxâÿváÿoÐñÞýŒíÿoÔôcÌíyàÿ‘òÿ|ÛõtÕñ{áþwåÿqßýyãûƒëÿçþˆóÿußö}çþ‚ïÿk×ïrÞö‚ðÿtßû‚íÿ„îÿußþp×øoÖ÷iÐñtÝþnÛûnÜúxßúqÔðvØölÍîgÈézÕôŠÙô°íÿ¥Ìèk~™(

	
 '!
/2	5	4
2	7
9
 &$A>7\F=hoc—}o¯o]¤gK‘]@…mT˜mU•tX”vT”pK•{W©V92qX>‘qT©{\½\Ä{V¾zK²g(Ži ‡mŽhŒXi5pF“sW™\M‹‚¹»Ëú¹Õþ´Õü¡Êñ¤Ôþ¤Öÿ¥Öÿ¢ÓÿÎÿœÍÿœÎÿ Òÿ˜Êÿ”Åý˜Èÿ“Ãý–Åÿ™Ëÿ¿û…ºù~´û|±út¤ìtŸèrœão™Þw¡âyŸßp”Ðn’Îg‰Ës’с™Ó~Ž¹EIa@=FRGI3&$8)'`LKs^]pXXu]]nVVmXWmXWlXWlXWmXWmXWoWWqWWmSSpXXkVUlWVpUXtUX`;?h?DX,2b9>^79b>>gCCc=;jA>nA>`0,m:7h52~NJ’b^¡rn½Œµ‹†˜ni“kfje’lg~ZTiE?lHBK.' Š„Ë»µÕÉÅÿüùÿþþÿûüÿýÿÿüÿûüÿöûüôÿýôÿüûÿü3*!zrqSHj^‰_R`Sžm_Ÿj]²zo±xo±wqȎˆ®vqΖ‘ÖŸšø»ó¾´à© ¼‚|¦lf‚LE§vn–g_[-%j>7mC<zNGvJCvIEuHDj=9nA=vLGgA/wT)óҍÿÜ{ÿÞnùÕ_÷Ï^þÍiÿÌuÿ΂ÿيüÌlÿÖoÿè‡ÿØxõÎkûÒoÿÎnÿÔsÿÙtÿØpÿÒmÿÍlÿÌnÿÍoþÔqüÕkÿÖiÿÒfÿÍiÿÎtöÅwâ°vs;TˆTN§vxr{’jv‘jy”kz“hu™nw¡rz—io§{Ï£ªÒ©°Ç¤Ñ¡§Ô¥¨ß¶´¶ŽU\¤vƒ¾¡Ç–ªà°¼—gcs;ˆTÿÆzÿÏrÿÙnÿÕfþÒgüÏfùÐiýÕoÿÛvÿÛxþÒuöÊmúÐmýÐiÿÑnÿÎvçŒIöUÿ•[ü’UñQî‘RóVõ‘WñSñRô•Ví“Sâ‰Lë‘Vê‹Yøšlê‹_æ‰\ç^ÖxMÝtS¿Q3²E%¯D©=¯A³C%³@%¨/³5½7»6¯0­5´A&­@$®D%¡:2¤9)–/§9!¦4¯?(¦6"—'’&™0"›2$Ÿ3(¥98ž4E€,HA6UTv‘µÛ¦èÿåÿYÀçmÛÿ~ìÿ€êÿ‹íÿ’íÿ„Þÿ|ÚýnÒõmØý{æÿyÜø€ßù‡êÿzáüoÚöpÛöŠóÿ‰ïÿ~æýwáùzèÿ…óÿöÿŠñÿ~åø€éüyâ÷Šõÿ‰öÿqàözèÿ‚ñÿwäÿƒðÿ€ìÿyãÿæÿ„èÿtØûr×ýpÙÿmÙÿpÞÿtåÿsäÿfÒôjËï‰Úû­æÿ—¶Íce}K:O.( 	

	$

	


#!
?0,O*,D&$:31E71D!,
9TLuk_“l]šfT™\F”kS«w\ÃsR»uH©k@—rRŸpU—t\–v\˜]<†fEšK0/{W@¢nV¼qTÇvVÍyVʀUÄk3˜e#‰fŒa‹T|`+‰sI–kO‘SH‡„ˆÃ·ÍÿŸÁï®Öÿ¨Õÿ Òÿ ÓÿÐÿ˜Ëý™ËÿžÐÿÏÿ–ÇÿŠºôŽ½ú•Áÿ‰µõˆ´ô‘¼ÿˆ³ö~«ï†´û«òqšßq–Ún•Ùm•ÖtÛq™Ôl“ÊkÊlŒÍrŽÎ~’Ìpy¥62K-#/*# 0$"2#!dPOmXWhSRjUTmXWmXWmXWmXWoWWoWWqWWsWWrVVsYYoWWnVVqTW{Z^iAFc:?d8>d8>`8:]77c==g@>h=:rB@uDB„QOp:9†POšba‡ONƒKJs;:…ML€JI~KINL…US‹^[Œa^—nk“he–mj¥|z¥|z–mk‰`^´‹‰õÏÍÿøóÿøòÿÿ÷ùçÜîØÍ°”‰¥~uÕª¡Èœ•Ÿtk¿‘†º‰ÀŽ‚Å‘„}I=ќ’º„}}IB·ƒ|´€y°{q³}r´}p³|o¨rg ka¢mcLB…TJ‰[PrG>rI@xQHjF<mIArNFkG?kF>jE=f@.[5ðˍ÷ÌuþÓlüÕiüÓlÿÐuÿÎvÿÎpÿÐoÿÒmúÐk÷ÎkùÏnüÐqùÍp÷ÌoúÐoýÕkÿÔiÿÏiÿÍmÿÑuÿØwþÝpøÚi÷ÕdûÔhÿÑoþÎnùÐmûÐy÷ÁŠÈŒhz=#h-–`Y’ceŒfl•r|Žhtgs™kw`l›kw¼’Å¡­Àœ¨Î£°Ì¡¬Æ¤Ë£¥Õ¦¨ä²²Í˜•½‡|p>( oIùÌÿЉÿցüÆgÿÙtúÏhÿÒkÿÖoÿØsÿÖsüÐküÍkÿÏqÿÔvþÐkÿ×qÿÎkÿÄmð™W÷“\ð‹TðŒUæ‰Qî”]ë]ç^æŽ`òoÿ±‚ñ§wæ¢sûºŽì«…ýº™ÿ½œÿǦÿÆ¡é›w÷™|ºV: =£A«B!ªB¤=«E"µJ%°>®3
­2¯8¯:§3"ž2!˜8!—: š6š6‰', ”)–)¢8'›4%—1%—6,’;+„0$‡,(ž::ž-0£5;†/9Y,M+C)'DUt“Íì€Øö{ßüyÝúŽòÿîÿsÔõwßÿ†ôÿpÛÿsÞÿwÛô…èþ‹ñÿƒíÿ{îÿsèýuéúoáòvãùuáùjÕñn×òåû„ëþçþ‹óÿ…ìÿ}çÿjÖîjÕðìÿvãÿkÖòtÞýqÛú}çÿèÿ…ìÿvÚülÎöbÂ÷bÂ÷_ÄêsÕówÎé¡åÿžÌëdy”5/B@-]#.y4>g#.4
	


3
	/
.5755(
sI¢p4â°dýÏwÿÖwþÑpÿÙwüÇfÿÓoþÍgÿÑhþÍgÿÑmÿÕsÿÖsÿÒmÿÎjÿÍmþÎnûÔlÿàuÿÜwûÅnݕUíhúªuõ©uõ¯€ÿŚú³Žú³’ÿ¿¢õ¶šñ»ïÀ¡ë¿¢ì¥꿤ù̱óǪôɨòˤÿÓ­í®’ñ§õ¥ŒÅnS›7£7­B!»P*¯B¯=¸B¼E½K"²C#¢2¤;(>$“34¨:ž1«:*¨4#©4³?(®=# .’&Ž0Ž6Ž/%Ž,&ž;- 7*²>7§//¢1529](1!6A]˜§ªñÿŸìÿ‚Ôó~×ùtÛü€ëÿaÉîq×úzÞú|âùußöwçýxîÿbÜô{õÿxîÿíÿåÿtÖþqÔúwÛýwÜüvàÿ„íÿxáÿ}äÿ€çÿyÝÿ{ßÿoÓõyÝÿiÍïaÅçyàÿhÏðmÖ÷qÛúoÕøjÄó•áÿ§âöÂáêunqBRv/2y2/‹@8;3Š0)’87^=-
/
-

œ0«:*¦3«2¶<&«4¹C&µ= œ,Š'„'
€=-Œ$©/#½92¶00¡.1~14Y8<%-(Van©¼‡Ïç–âÿæÿhÊìjÕ÷‡ìÿ„èÿ€äÿƒéÿyãúvæýwîÿdßùnêÿ]ÔîbÎð{àÿ~àÿoÎùoÓöèÿnÖù|çÿlÔ÷pØû„èÿåÿáÿnÐò‹íÿ`ÂäFªÌnÕöqØù„íÿ„ðÿuÛþŠãÿ¥ìÿd’£R^^Q1,|;3’87‰*'6,8)‰0"| Š,'nZ1


1
-
--- NEW FILE ---
program glBitmapDemo;

uses
  Forms,
  frmMain in 'frmMain.pas' {MainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'GL Bitmap Demo';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

[Pythianproject-cvsmail] CVS: Prototypes/GLBitmapDemo - New directory

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/GLBitmapDemo
In directory slayer.i.sourceforge.net:/tmp/cvs-serv6868/GLBitmapDemo

Log Message:
Directory /cvsroot/pythianproject/Prototypes/GLBitmapDemo added to the repository

[Pythianproject-cvsmail] CVS: PythianProject/Source/Units Textures.pas,1.5,1.6 glfd.pas,1.4,1.5

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv6787/Source/Units

Modified Files:
	Textures.pas glfd.pas 
Log Message:
no message

Index: Textures.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/Textures.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Textures.pas	2000/07/19 18:23:23	1.5
--- Textures.pas	2000/10/26 17:09:06	1.6
***************
*** 138,141 ****
--- 138,142 ----
      glTexEnvf(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,GL_BLEND);
  
+ 
      if FUseAlpha then
      begin

Index: glfd.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/glfd.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** glfd.pas	2000/10/21 12:29:58	1.4
--- glfd.pas	2000/10/26 17:09:06	1.5
***************
*** 1047,1051 ****
        conx := conWidth;
  
!     if conx >= conWidth then
      begin
        conx := 0;
--- 1047,1051 ----
        conx := conWidth;
  
!     if (conx >= conWidth) then
      begin
        conx := 0;

[Pythianproject-cvsmail] CVS: Prototypes/Console Demo frmMain.dfm,1.1,1.2 frmMain.pas,1.1,1.2

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/Console Demo
In directory slayer.i.sourceforge.net:/tmp/cvs-serv6734/Console Demo

Modified Files:
	frmMain.dfm frmMain.pas 
Log Message:
no message

***** Bogus filespec: Demo
Index: frmMain.dfm
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/Console Demo/frmMain.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
Binary files /tmp/cvsOh73DS and /tmp/cvs8KkOaB differ

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/Console Demo/frmMain.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** frmMain.pas	2000/10/21 12:26:23	1.1
--- frmMain.pas	2000/10/26 17:08:15	1.2
***************
*** 19,24 ****
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   Menus, ExtCtrls, GLPanel, OpenGL, glfd;
  
  type
    TMainForm = class(TForm)
--- 19,32 ----
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   Menus, ExtCtrls, GLPanel, OpenGL, glfd, Trace;
  
+ const
+   CONSOLE_SHOWN = 3;
+   CONSOLE_HIDDEN = 0;
+   CONSOLE_SHOWING = 1;
+   CONSOLE_HIDING = 2;
+ 
+   CONSOLE_START_POS = 3.0;
+ 
  type
    TMainForm = class(TForm)
***************
*** 34,37 ****
--- 42,47 ----
      procedure Exit1Click(Sender: TObject);
      procedure FormKeyPress(Sender: TObject; var Key: Char);
+     procedure FormResize(Sender: TObject);
+     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
      { Private declarations }
***************
*** 39,45 ****
--- 49,62 ----
      animSquare :integer;
      CubeEnabled :boolean;
+     consoleMode :byte; // 0 = hidden; 1 = showing; 2 = hiding; 3 = shown
+     consoleY :single; // top of console location for animation
+     strOverlay :TStringList;
+     textList :integer;
      procedure consoleInit;
      procedure consoleProcessKey(Key:Char);
      procedure consoleProcessCommand(cmd:string);
+     procedure consoleDraw;
+ 
+     procedure DumpStrings(s:TStringList);
    public
      { Public declarations }
***************
*** 67,70 ****
--- 84,88 ----
  begin
     // Redefine the viewing volume and viewport when the window size changes.
+   glClear(GL_COLOR_BUFFER_BIT);
    gldAspect := GLPanel.Width / GLPanel.Height;
  
***************
*** 99,102 ****
--- 117,122 ----
    glfSetAnchorPoint(GLF_LEFT_UP);
  
+   strOverlay := TStringList.Create;
+   textList := glGenLists(1);
    consoleInit;
  end;
***************
*** 191,215 ****
        glEnable(GL_BLEND);
      end;
- 
- 
-     { now draw an alpha quad to effectively "clear" the screen but still
-       leaving something showing }
-     glLoadIdentity;
-     glColor4f(0.6,0.6,0.6,0.99);
-     glTranslatef(0.0,0.0,-1.0);
-     glBegin(GL_QUADS);
-       glVertex2f(1.0,1.0);
-       glVertex2f(1.0,-1.0);
-       glVertex2f(-1.0,-1.0);
-       glVertex2f(-1.0,1.0);
-     glEnd;
  
  
-     glClear(GL_DEPTH_BUFFER_BIT);
      glLoadIdentity;
!     glTranslatef(-1.0,1.0,-1.0);
      glScalef(0.04,0.04,0.04);
  
!     glfConsoleDraw;
    except
      // ignore exceptions - the delphi IDE seems to screw up on my system :(
--- 211,249 ----
        glEnable(GL_BLEND);
      end;
  
+     // text
  
      glLoadIdentity;
!     glDisable(GL_DEPTH_TEST);
!     glTranslatef(-1.0,1.0,0);
      glScalef(0.04,0.04,0.04);
+     glCallList(textList);
+     glEnable(GL_DEPTH_TEST);
+     glLoadIdentity;
  
!     { work the different modes }
!     if ConsoleMode = CONSOLE_SHOWING then
!     begin
!       consoleDraw;
!       consoleY := consoleY - 0.1;
!       if consoleY <= 1.1 then
!       begin
!         consoleY := 1.0;
!         ConsoleMode := CONSOLE_SHOWN;
!       end;
!     end else if ConsoleMode = CONSOLE_HIDING then
!     begin
!       consoleDraw;
!       consoleY := consoleY + 0.1;
!       if consoleY >= CONSOLE_START_POS then
!       begin
!         ConsoleMode := CONSOLE_HIDDEN;
!         consoleY := CONSOLE_START_POS;
!       end;
!     end else if ConsoleMode = CONSOLE_SHOWN then
!     begin
!       glLoadIdentity;
!       consoleDraw;
!     end;
    except
      // ignore exceptions - the delphi IDE seems to screw up on my system :(
***************
*** 229,237 ****
  procedure TMainForm.consoleProcessKey(Key: Char);
  begin
!   // add this key to the console, unless it is a backspace key
    if Key = #8 {backspace} then
    begin
!     glfConsoleBackspace(1);
!     consoleCommandBuffer := Copy(consoleCommandbuffer,0,Length(consoleCommandBuffer)-1);
    end
    else if Key = #13 then
--- 263,290 ----
  procedure TMainForm.consoleProcessKey(Key: Char);
  begin
!   // process hide/show key (`)
!   if key = #96 then
!   begin
!     if ConsoleMode = CONSOLE_HIDDEN then
!       ConsoleMode := CONSOLE_SHOWING
!     else if ConsoleMode = CONSOLE_SHOWN then
!       ConsoleMode := CONSOLE_HIDING
!     else if ConsoleMode = CONSOLE_SHOWING then
!       ConsoleMode := CONSOLE_HIDING
!     else if ConsoleMode = CONSOLE_HIDING then
!       ConsoleMode := CONSOLE_SHOWING;
!     exit;
!   end;
! 
!   // check that we're not hidden
!   if consoleMode = CONSOLE_HIDDEN then exit;
!   // if not then add this key to the console, unless it is a backspace key
    if Key = #8 {backspace} then
    begin
!     if Length(ConsoleCommandBuffer) > 0 then
!     begin
!       glfConsoleBackspace(1);
!       consoleCommandBuffer := Copy(consoleCommandbuffer,0,Length(consoleCommandBuffer)-1);
!     end;
    end
    else if Key = #13 then
***************
*** 253,264 ****
--- 306,326 ----
  begin
    consoleCommandBuffer := '';
+   consoleMode := CONSOLE_SHOWING;
+   consoleY := CONSOLE_START_POS;
    glfSetConsoleParam( 45, 24); // this clears the console for 640x480
    glfPrintString('Console Demo app v1.0'#13);
    glfPrintString('by Michael Hearn'#13);
+   glfPrintString('- Use the ` key to show/hide the console'#13);
+   glfPrintString('- Type help for command info'#13);
    glfPrintString('> ');
  end;
  
  procedure TMainForm.consoleProcessCommand(cmd: string);
+ var
+   fn :string; // filename for dump command
+   x,y:integer;
+   s:string;
  begin
+   TraceString(Copy(cmd,0,Pos(#32,cmd)));
    if (LowerCase(cmd) = 'help') or (cmd = '?') then
    begin
***************
*** 267,270 ****
--- 329,333 ----
      glfPrintString('  - help/?: displays this text'#13);
      glfPrintString('  - cube on/off: changes the background cube'#13);
+     glfPrintString('  - dump "filename": writes filename to the screen'#13);
      glfPrintString('  - exit: quits the demo'#13);
    end else if (LowerCase(cmd) = 'cube on') then
***************
*** 276,283 ****
--- 339,405 ----
      CubeEnabled := false;
      glfPrintString('Cube OFF'#13);
+   end else if (LowerCase(cmd) = 'cube') then
+   begin
+     if CubeEnabled then glfPrintString('Cube is ON') else glfPrintString('Cube is OFF');
+   end else if (LowerCase(cmd) = 'dump') then
+   begin
+     glNewList(textList,GL_COMPILE);
+       for y := 0 to 30 do
+       begin
+         s := '';
+         for x := 0 to 40 do
+           s := s + Chr(Trunc(Random(Ord('Z') - Ord('A')) + Ord('A')));
+         glfDrawSolidString(s);
+         glTranslatef(0,-2,0);
+       end;
+     glEndList;
    end else if (LowerCase(cmd) = 'exit') then
    begin
      Close;
    end;
+ end;
+ 
+ procedure TMainForm.FormResize(Sender: TObject);
+ begin
+   SetProjection(Sender);
+ end;
+ 
+ procedure TMainForm.consoleDraw;
+ begin
+   { now draw an alpha quad to effectively "clear" the screen but still
+     leaving something showing }
+   glColor4f(0.6,0.6,0.6,0.99);
+   glTranslatef(0.0,consoleY-1,-1.0);
+   glBegin(GL_QUADS);
+     glVertex2f(1.0,1.0);
+     glVertex2f(1.0,-1.0);
+     glVertex2f(-1.0,-1.0);
+     glVertex2f(-1.0,1.0);
+   glEnd;
+ 
+ 
+   glClear(GL_DEPTH_BUFFER_BIT);
+   glLoadIdentity;
+   glTranslatef(-1.0,consoleY,-1.0);
+   glScalef(0.04,0.04,0.04);
+ 
+   glfConsoleDraw;
+ end;
+ 
+ procedure TMainForm.DumpStrings(s: TStringList);
+ var a:integer;
+ begin
+   // dumps the contents of s to the glf console
+   for a := 0 to s.Count-1 do
+   begin
+     glfDrawSolidString(s.Strings[a]);
+     glTranslatef(0.0,-2,0.0);
+   end;
+ end;
+ 
+ procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
+ begin
+   strOverlay.free;
+   glDeleteLists(textList,1);
  end;
  

[Pythianproject-cvsmail] CVS: Prototypes/BasicGLapp frmMain.pas,1.3,1.4

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/BasicGLapp
In directory slayer.i.sourceforge.net:/tmp/cvs-serv6734/BasicGLapp

Modified Files:
	frmMain.pas 
Log Message:
no message

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/BasicGLapp/frmMain.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** frmMain.pas	2000/10/24 17:21:24	1.3
--- frmMain.pas	2000/10/26 17:08:15	1.4
***************
*** 1,5 ****
  unit frmMain;
  
! { Shows texture fonts loaded from a grid.
    (C) Michael Hearn 2000
    mh...@su... }
--- 1,5 ----
  unit frmMain;
  
! { Basic 3D application
    (C) Michael Hearn 2000
    mh...@su... }
***************
*** 30,35 ****
      { Public declarations }
  
-     TestTex :TTexture;
- 
      // Animation trackers can go here
      animSquare: integer; // this var will be cycled through 1..360
--- 30,33 ----
***************
*** 38,55 ****
                           // a rotating square :)
  
-     GridSquareWidth,GridSquareHeight :integer; // size of grid square
-     GridCharSpacing:integer; // spacing between letters.
- 
-     txtfile :TStringList;
-     counter1 :integer;
- 
-     txtList:integer;
      procedure SetProjection(Sender: TObject);
- 
-     procedure DrawGridChar(C:Char);
-     function DrawGridSquare(X,Y:integer):integer;
-     procedure DrawGridString(s:String);
- 
-     procedure MakeList;
    end;
  
--- 36,40 ----
***************
*** 102,120 ****
    // uncomment this line to enable alpha blending
  
-   TestTex := TTexture.Create;
-   TestTex.UseMipmaps := true;
-   TestTex.UseAlpha := true;
-   TestTex.LoadFromFile('CourierNew Grid.bmp');
- 
-   GridSquareWidth := 20;
-   GridSquareHeight := 20;
-   GridCharSpacing := 15;
- 
-   txtFile := TStringList.Create;
-   txtFile.LoadFromFile('movies.txt');
- 
-   txtList := glGenLists(1);
-   Counter1 := 0;
-   MakeList;
  end;
  
--- 87,90 ----
***************
*** 203,243 ****
      glVertex3f(-1.0, -1.0, 1.0);
    glEnd;
- 
-   glLoadIdentity;
- 
-   glClear(GL_DEPTH_BUFFER_BIT);
-   glEnable(GL_TEXTURE_2D);
-   glEnable(GL_BLEND);
- 
-   // change co-ordinate system  to 1:1 pixel mapping
-   glScalef(2.0 / GLPanel.Width, -2.0 / GLPanel.Height, 1.0);
-   glTranslatef(-(GLPanel.Width / 2), -(GLPanel.Height / 2), 0);
- 
-   glMatrixMode(GL_TEXTURE);
-   glLoadIdentity;
-   glScalef(1/256,1/256,1);
- 
-   TestTex.Draw;
-   // left = 256 right = 0
-   // top = 0 bottom = 256
-   //
-   // left = 256 - (20 * (x-1))
- 
-   glMatrixMode(GL_MODELVIEW);
- 
-   glEnable(GL_SCISSOR_TEST);
- 
-   inc(Counter1);
-   if Counter1 >= 100 then
-   begin
-     MakeList;
-     Counter1 := 0;
-   end;
-   glScissor(10,10,630,470);
-   gltranslatef(0,animSquare-500,0);
-   glCallList(txtList);
-   glDisable(GL_SCISSOR_TEST);
- 
-   glDisable(GL_TEXTURE_2D);
  end;
  
--- 173,176 ----
***************
*** 245,325 ****
  begin
    Close;
- end;
- 
- function TMainForm.DrawGridSquare(X,Y: integer):integer;
- var l,t:integer;
- begin
-   Result := -1;
-   if (l <= 0) or (t <= 0) then
-     exit;
- 
-   l := 256 - (GridSquareWidth * (x-1));
-   t := (Y - 1) * GridSquareHeight;
- 
-   glBegin(GL_QUADS);
-     glTexCoord2f(l,t);
-     glVertex2f(0,0);
-     glTexCoord2f(l,t+GridSquareHeight);
-     glVertex2f(0,GridSquareHeight);
-     glTexCoord2f(l-GridSquareWidth,t+GridSquareHeight);
-     glVertex2f(GridSquareWidth,GridSquareHeight);
-     glTexCoord2f(l-GridSquareWidth,t);
-     glVertex2f(GridSquareWidth,0);
-   glEnd;
- 
-   result := 0;
- end;
- 
- procedure TMainForm.DrawGridChar(C: Char);
- var
-   AlphaOffset :integer;
-   x,y:integer;
- begin
-   C := UpCase(C);
-   if (Ord(C) >= Ord('A')) or (Ord(C) <= Ord('Z')) then
-   begin
-     AlphaOffset := Ord(C) - Ord('A') + 1;
-     // AlphaOffset contains the grid offset of the character now
-     // in this test grid there are 12 per line
-     Y := (AlphaOffset div 12);
-     if AlphaOffset mod 12 <> 0 then // need this in case letter is last on grid line
-       inc(y);
-     X := AlphaOffset - ((Y-1)*12);
-     TraceString(IntToStr(X)+','+IntToStr(Y));
-     DrawGridSquare(x,y);
-   end;
- end;
- 
- procedure TMainForm.DrawGridString(s: String);
- var a:integer;
- begin
-   for a := 1 to Length(s) do
-   begin
-     if s[a] = #13 then
-     begin
-       glTranslatef(-GLPanel.Width-GridCharSpacing,20,0)
-     end else begin
-       DrawGridChar(s[a]);
-       glTranslatef(GridCharSpacing,0,0);
-     end;
-   end;
- end;
- 
- procedure TMainForm.MakeList;
- var x,y:integer;
- begin
-   glNewList(txtList,GL_COMPILE);
-     for y := 1 to 800 div 20 do
-     begin
-       glPushMatrix;
-       for x := 1 to (640 div GridCharSpacing) do
-       begin
-         DrawGridChar(Chr(Trunc(Random(Ord('Z') - Ord('A')) + Ord('A'))));
-         glTranslatef(GridCharSpacing,0,0);
-       end;
-       glPopMatrix;
-       glTranslatef(0,20,0);
-     end;
-   glEndList;
  end;
  
--- 178,181 ----

[Pythianproject-cvsmail] CVS: Prototypes/BasicGLapp frmMain.pas,1.2,1.3

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/BasicGLapp
In directory slayer.i.sourceforge.net:/tmp/cvs-serv11441

Modified Files:
	frmMain.pas 
Log Message:
added scissor test -mike

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/BasicGLapp/frmMain.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** frmMain.pas	2000/10/23 20:55:11	1.2
--- frmMain.pas	2000/10/24 17:21:24	1.3
***************
*** 226,236 ****
    glMatrixMode(GL_MODELVIEW);
  
    inc(Counter1);
!   if Counter1 >= 10 then
    begin
      MakeList;
      Counter1 := 0;
    end;
    glCallList(txtList);
  
    glDisable(GL_TEXTURE_2D);
--- 226,241 ----
    glMatrixMode(GL_MODELVIEW);
  
+   glEnable(GL_SCISSOR_TEST);
+ 
    inc(Counter1);
!   if Counter1 >= 100 then
    begin
      MakeList;
      Counter1 := 0;
    end;
+   glScissor(10,10,630,470);
+   gltranslatef(0,animSquare-500,0);
    glCallList(txtList);
+   glDisable(GL_SCISSOR_TEST);
  
    glDisable(GL_TEXTURE_2D);

[Pythianproject-cvsmail] CVS: Prototypes/BasicGLapp CourierNew Grid.bmp,NONE,1.1 texdemo.cfg,NONE,1.1 texdemo.dof,NONE,1.1 texdemo.dpr,NONE,1.1 frmMain.pas,1.1,1.2 Basic3D.cfg,1.1,NONE Basic3D.dof,1.1,NONE Basic3D.dpr,1.1,NONE Basic3D.res,1.1,NONE

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/BasicGLapp
In directory slayer.i.sourceforge.net:/tmp/cvs-serv28155

Modified Files:
	frmMain.pas 
Added Files:
	CourierNew Grid.bmp texdemo.cfg texdemo.dof texdemo.dpr 
Removed Files:
	Basic3D.cfg Basic3D.dof Basic3D.dpr Basic3D.res 
Log Message:
no message

***** Bogus filespec: CourierNew
***** Error reading new file: (2, 'No such file or directory')
--- NEW FILE ---
-$A+
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J+
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-U"..\..\PythianProject\Source\Units\"
-O"..\..\PythianProject\Source\Units\"
-I"..\..\PythianProject\Source\Units\"
-R"..\..\PythianProject\Source\Units\"

--- NEW FILE ---
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=

[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\PythianProject\Source\Units\
Packages=VCL40;VCLX40;VCLDB40;VCLDBX40;VCLSMP40;QRPT40;TEEUI40;TEEDB40;TEE40;ibevnt40;nmfast40;Python_d4;PythonVCL_d4;NtfyIcon;glPanelPkg
Conditionals=
DebugSourceDirs=
UsePackages=0

[Parameters]
RunParams=
HostApplication=

[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252

[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

[Excluded Packages]
$(DELPHI)\Components\Indy\dclIndy40.bpl=Internet Direct "Indy" for D4 Property and Component Editors

[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

[HistoryLists\hlSearchPath]
Count=1
Item0=..\..\PythianProject\Source\Units\

[HistoryLists\hlOutputDirectorry]
Count=1
Item0=.

--- NEW FILE ---
program texdemo;

uses
  Forms,
  frmMain in 'frmMain.pas' {MainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Texure Demo app';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/BasicGLapp/frmMain.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** frmMain.pas	2000/10/21 12:26:23	1.1
--- frmMain.pas	2000/10/23 20:55:11	1.2
***************
*** 1,13 ****
  unit frmMain;
  
! { Basic 3D OpenGL application that uses the GLPanel component
!   by Michael Hearn 2000 for the Pythian Project } 
  
  
  interface
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   Menus, ExtCtrls, GLPanel, OpenGL, glfd;
  
  type
--- 1,15 ----
  unit frmMain;
  
! { Shows texture fonts loaded from a grid.
!   (C) Michael Hearn 2000
!   mh...@su... }
  
  
+ 
  interface
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   Menus, ExtCtrls, GLPanel, OpenGL, Textures, Trace;
  
  type
***************
*** 28,31 ****
--- 30,35 ----
      { Public declarations }
  
+     TestTex :TTexture;
+ 
      // Animation trackers can go here
      animSquare: integer; // this var will be cycled through 1..360
***************
*** 34,38 ****
--- 38,55 ----
                           // a rotating square :)
  
+     GridSquareWidth,GridSquareHeight :integer; // size of grid square
+     GridCharSpacing:integer; // spacing between letters.
+ 
+     txtfile :TStringList;
+     counter1 :integer;
+ 
+     txtList:integer;
      procedure SetProjection(Sender: TObject);
+ 
+     procedure DrawGridChar(C:Char);
+     function DrawGridSquare(X,Y:integer):integer;
+     procedure DrawGridString(s:String);
+ 
+     procedure MakeList;
    end;
  
***************
*** 82,87 ****
    glEnable(GL_DEPTH_TEST);
    glEnable(GL_BLEND);
!   //glBlendFunc(GL_SRC_ALPHA,GL_ONE);
    // uncomment this line to enable alpha blending
  end;
  
--- 99,120 ----
    glEnable(GL_DEPTH_TEST);
    glEnable(GL_BLEND);
!   glBlendFunc(GL_SRC_ALPHA,GL_ONE);
    // uncomment this line to enable alpha blending
+ 
+   TestTex := TTexture.Create;
+   TestTex.UseMipmaps := true;
+   TestTex.UseAlpha := true;
+   TestTex.LoadFromFile('CourierNew Grid.bmp');
+ 
+   GridSquareWidth := 20;
+   GridSquareHeight := 20;
+   GridCharSpacing := 15;
+ 
+   txtFile := TStringList.Create;
+   txtFile.LoadFromFile('movies.txt');
+ 
+   txtList := glGenLists(1);
+   Counter1 := 0;
+   MakeList;
  end;
  
***************
*** 116,120 ****
    // Draw the six faces of the cube.
    //
!   glColor4f(1.0,0.0,0.0,0.75);
    glBegin(GL_POLYGON);
      glNormal3f(0.0, 0.0, 1.0);
--- 149,154 ----
    // Draw the six faces of the cube.
    //
!   glDisable(GL_BLEND);
!   glColor4f(1.0,0.0,0.0,1.0);
    glBegin(GL_POLYGON);
      glNormal3f(0.0, 0.0, 1.0);
***************
*** 125,129 ****
    glEnd;
  
!   glColor4f(0.0,1.0,0.0,0.75);
    glBegin(GL_POLYGON);
      glNormal3f(0.0, 0.0, -1.0);
--- 159,163 ----
    glEnd;
  
!   glColor4f(0.0,1.0,0.0,1.0);
    glBegin(GL_POLYGON);
      glNormal3f(0.0, 0.0, -1.0);
***************
*** 134,138 ****
    glEnd;
  
!   glColor4f(0.0,0.0,1.0,0.75);
    glBegin(GL_POLYGON);
      glNormal3f(-1.0, 0.0, 0.0);
--- 168,172 ----
    glEnd;
  
!   glColor4f(0.0,0.0,1.0,1.0);
    glBegin(GL_POLYGON);
      glNormal3f(-1.0, 0.0, 0.0);
***************
*** 143,147 ****
    glEnd;
  
!   glColor4f(0.0,1.0,1.0,0.75);
    glBegin(GL_POLYGON);
      glNormal3f(1.0, 0.0, 0.0);
--- 177,181 ----
    glEnd;
  
!   glColor4f(0.0,1.0,1.0,1.0);
    glBegin(GL_POLYGON);
      glNormal3f(1.0, 0.0, 0.0);
***************
*** 152,156 ****
    glEnd;
  
!   glColor4f(1.0,1.0,0.0,0.75);
    glBegin(GL_POLYGON);
      glNormal3f(0.0, 1.0, 0.0);
--- 186,190 ----
    glEnd;
  
!   glColor4f(1.0,1.0,0.0,1.0);
    glBegin(GL_POLYGON);
      glNormal3f(0.0, 1.0, 0.0);
***************
*** 169,172 ****
--- 203,238 ----
      glVertex3f(-1.0, -1.0, 1.0);
    glEnd;
+ 
+   glLoadIdentity;
+ 
+   glClear(GL_DEPTH_BUFFER_BIT);
+   glEnable(GL_TEXTURE_2D);
+   glEnable(GL_BLEND);
+ 
+   // change co-ordinate system  to 1:1 pixel mapping
+   glScalef(2.0 / GLPanel.Width, -2.0 / GLPanel.Height, 1.0);
+   glTranslatef(-(GLPanel.Width / 2), -(GLPanel.Height / 2), 0);
+ 
+   glMatrixMode(GL_TEXTURE);
+   glLoadIdentity;
+   glScalef(1/256,1/256,1);
+ 
+   TestTex.Draw;
+   // left = 256 right = 0
+   // top = 0 bottom = 256
+   //
+   // left = 256 - (20 * (x-1))
+ 
+   glMatrixMode(GL_MODELVIEW);
+ 
+   inc(Counter1);
+   if Counter1 >= 10 then
+   begin
+     MakeList;
+     Counter1 := 0;
+   end;
+   glCallList(txtList);
+ 
+   glDisable(GL_TEXTURE_2D);
  end;
  
***************
*** 174,177 ****
--- 240,320 ----
  begin
    Close;
+ end;
+ 
+ function TMainForm.DrawGridSquare(X,Y: integer):integer;
+ var l,t:integer;
+ begin
+   Result := -1;
+   if (l <= 0) or (t <= 0) then
+     exit;
+ 
+   l := 256 - (GridSquareWidth * (x-1));
+   t := (Y - 1) * GridSquareHeight;
+ 
+   glBegin(GL_QUADS);
+     glTexCoord2f(l,t);
+     glVertex2f(0,0);
+     glTexCoord2f(l,t+GridSquareHeight);
+     glVertex2f(0,GridSquareHeight);
+     glTexCoord2f(l-GridSquareWidth,t+GridSquareHeight);
+     glVertex2f(GridSquareWidth,GridSquareHeight);
+     glTexCoord2f(l-GridSquareWidth,t);
+     glVertex2f(GridSquareWidth,0);
+   glEnd;
+ 
+   result := 0;
+ end;
+ 
+ procedure TMainForm.DrawGridChar(C: Char);
+ var
+   AlphaOffset :integer;
+   x,y:integer;
+ begin
+   C := UpCase(C);
+   if (Ord(C) >= Ord('A')) or (Ord(C) <= Ord('Z')) then
+   begin
+     AlphaOffset := Ord(C) - Ord('A') + 1;
+     // AlphaOffset contains the grid offset of the character now
+     // in this test grid there are 12 per line
+     Y := (AlphaOffset div 12);
+     if AlphaOffset mod 12 <> 0 then // need this in case letter is last on grid line
+       inc(y);
+     X := AlphaOffset - ((Y-1)*12);
+     TraceString(IntToStr(X)+','+IntToStr(Y));
+     DrawGridSquare(x,y);
+   end;
+ end;
+ 
+ procedure TMainForm.DrawGridString(s: String);
+ var a:integer;
+ begin
+   for a := 1 to Length(s) do
+   begin
+     if s[a] = #13 then
+     begin
+       glTranslatef(-GLPanel.Width-GridCharSpacing,20,0)
+     end else begin
+       DrawGridChar(s[a]);
+       glTranslatef(GridCharSpacing,0,0);
+     end;
+   end;
+ end;
+ 
+ procedure TMainForm.MakeList;
+ var x,y:integer;
+ begin
+   glNewList(txtList,GL_COMPILE);
+     for y := 1 to 800 div 20 do
+     begin
+       glPushMatrix;
+       for x := 1 to (640 div GridCharSpacing) do
+       begin
+         DrawGridChar(Chr(Trunc(Random(Ord('Z') - Ord('A')) + Ord('A'))));
+         glTranslatef(GridCharSpacing,0,0);
+       end;
+       glPopMatrix;
+       glTranslatef(0,20,0);
+     end;
+   glEndList;
  end;
  

--- Basic3D.cfg DELETED ---

--- Basic3D.dof DELETED ---

--- Basic3D.dpr DELETED ---

--- Basic3D.res DELETED ---

[Pythianproject-cvsmail] CVS: PythianProject/Source/Units glfd.pas,1.3,1.4

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv13585

Modified Files:
	glfd.pas 
Log Message:
added code to glf lib -mike

Index: glfd.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/glfd.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** glfd.pas	2000/10/17 06:05:28	1.3
--- glfd.pas	2000/10/21 12:29:58	1.4
***************
*** 22,26 ****
  Translation to Delphi:
  - Kamil Krauspe (main guy)
! - Michael Hearn (minor changes)
  - Darryl Long (teeny little changes)
  
--- 22,26 ----
  Translation to Delphi:
  - Kamil Krauspe (main guy)
! - Michael Hearn (minor changes), added console commands + console bug fixes
  - Darryl Long (teeny little changes)
  
***************
*** 117,120 ****
--- 117,123 ----
    procedure glfSetCursorBlinkRate(Rate: Integer);
  
+   // @@added mike - 20th October 2000
+   procedure glfConsoleBackspace(c:integer);
+ 
  implementation
  
***************
*** 222,225 ****
--- 225,229 ----
    glfSetSpaceSize(2.0);
    glfSetSymbolDepth(0.2);
+ 
    glfSetConsoleParam(40, 20);
    glfConsoleClear;
***************
*** 1028,1032 ****
  procedure glfPrint(const s: string; lenght: Integer);
  var
!   i{, e}: Integer;
  begin
    for i := 1 to lenght do
--- 1032,1037 ----
  procedure glfPrint(const s: string; lenght: Integer);
  var
!   i,c{, e}: Integer;
!   str2:string;
  begin
    for i := 1 to lenght do
***************
*** 1048,1053 ****
        if cony >= conHeight then
        begin
          //* Shift all console contents up */
!         Move(conData[conWidth], conData, conWidth * (conHeight - 1));
          //* Fill bottom line by spaces */
          FillChar(conData[conWidth * (conHeight - 1)], conWidth, 0);
--- 1053,1060 ----
        if cony >= conHeight then
        begin
+         // @@mike - modified here to fix bug
          //* Shift all console contents up */
!         conData := Copy(conData,conWidth,conWidth* (conHeight-1));
!         SetLength(conData,conWidth*conHeight);
          //* Fill bottom line by spaces */
          FillChar(conData[conWidth * (conHeight - 1)], conWidth, 0);
***************
*** 1110,1113 ****
--- 1117,1132 ----
      conCursorCount := Rate;
      conCursorMode := GLF_YES;
+   end;
+ end;
+ 
+ procedure glfConsoleBackspace(c:integer);
+ var a:integer;
+ begin
+   // just replace the character at the current location with a space,
+   // then move back a character. do this once for each c
+   for a := 1 to c do
+   begin
+     conData[cony * conWidth + (conx-1)] := #0;
+     if conx > 0 then dec(conX);
    end;
  end;

[Pythianproject-cvsmail] CVS: Prototypes/Console Demo ConsoleDemo.cfg,NONE,1.1 ConsoleDemo.dof,NONE,1.1 ConsoleDemo.dpr,NONE,1.1 ConsoleDemo.res,NONE,1.1 arial1.glf,NONE,1.1 frmMain.dfm,NONE,1.1 frmMain.pas,NONE,1.1

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/Console Demo
In directory slayer.i.sourceforge.net:/tmp/cvs-serv13420/Console Demo

Added Files:
	ConsoleDemo.cfg ConsoleDemo.dof ConsoleDemo.dpr 
	ConsoleDemo.res arial1.glf frmMain.dfm frmMain.pas 
Log Message:
added basic GL app and Console demo

***** Bogus filespec: Demo
--- NEW FILE ---
-$A+
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J+
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-U"..\..\PythianProject\Source\Units\"
-O"..\..\PythianProject\Source\Units\"
-I"..\..\PythianProject\Source\Units\"
-R"..\..\PythianProject\Source\Units\"

--- NEW FILE ---
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=

[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\PythianProject\Source\Units\
Packages=VCL40;VCLX40;VCLDB40;VCLDBX40;VCLSMP40;QRPT40;TEEUI40;TEEDB40;TEE40;ibevnt40;nmfast40;Python_d4;PythonVCL_d4;NtfyIcon;glPanelPkg
Conditionals=
DebugSourceDirs=
UsePackages=0

[Parameters]
RunParams=
HostApplication=

[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252

[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

[Excluded Packages]
$(DELPHI)\Components\Indy\dclIndy40.bpl=Internet Direct "Indy" for D4 Property and Component Editors

[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

[HistoryLists\hlSearchPath]
Count=1
Item0=..\..\PythianProject\Source\Units\

[HistoryLists\hlOutputDirectorry]
Count=1
Item0=.

--- NEW FILE ---
program ConsoleDemo;

uses
  Forms,
  frmMain in 'frmMain.pas' {MainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Console App';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

--- NEW FILE ---

--- NEW FILE ---
GLFArial Normal 1
`åP=Nb¾ð§Æ=¡Ë>ð§Æ=—.?ð§Æ½—.?ð§Æ½¡Ë>9´H½Nb¾¢E¶=š™¿¢E¶==
×¾5^º½=
×¾5^º½š™¿




#  h=Œ¾d;¿héJ¾
»X94?q=
¾X94?ù£X¾žï§>X9ô¾žï§>X9ô¾ƒÀJ>f¾s¾ƒÀJ>›¾Âõ½X9ô¾Âõ½X9ô¾
	
			$DF`åP=L7I¿`åP=‰A ¿G8M>º¾¿ö~£>}>¿UNË>ލžu“Ø>÷xq¾äeÕ>)(¾3ÝË>]ßǽ‹k¼>¦½ƒ§>2O<ùiŒ>*Xc=îÌT>Ñ"»=F>ƒä=`åP=ÃE>`åP==
?¼Aô=!ä?)\/>¼u?t—T>Eî>ú~j>¦›Ä>'1È>`åÐ>9³>’­
?Óùˆ>bº$??1>•‚2?`åP=X9?`åP=ÍÌL?žï'½ÍÌL?žï'½X9?ö&6¾'Ú1?…¾‹l#?k»¾V¹?q=ʾF¶»>bžßù>…µ¾ƒÀJ>ofœ¾ä÷>Óõt¾Ì|§=4…¾·¸=žï'½]£e¹žï'½‘íü¾O=¾Š”î¾VM¾ïS;B`u¾†¦¾®‡¾/]¾u“ؾmç{¾Vξª·¾u“¸¾¹Æç¾êzš¾¿Évn¾‰B¿/…¾³~¿žï'½œÄ ¿žï'½L7I¿žï'½°&>Ïó¾•ïI>ÅpE¾‡z>9`g¾h=œ>!°r¾uçÁ>–Ae¾h’è>²õ<¾þÔ?1´ú½‡?žï'½P?`åP=ÅżX >Í|½{¼`>ÛùÞ½ßP€>m;-¾Ë¡…>ö(|¾c|>øQ­¾EfN>ºIÔ¾ƒl	>#Ýï¾`åP=‘íü¾2
<=
<
;<;;
:;
:
:9:898787676565 45 4 !4!"34"3"#23#2#$
?‚W“¾Vó>VŽ¾¾½>8I“¾fh„>Õ"¢¾òz@>Ō¸¾“>1Ô¾ßO
>Ú7ï¾
¿…•‚>ÍÌ¿`‘·>3S
¿u=ñ>dæ¿‹Â
?ï¾£Z?1Ô¾P?w‘¾Tã%¿Z¸Ô>X94?C7“>X94?f¾Ó¾Tã%¿Ú #>羨n^>žš¿k¹›>"Q ¿-Ò>Tã%¿cÑ?ÙB ¿°?Fa¿›+?„+è¾Å 0?¨nž¾õ+?Ìy&¾ué?œf½»
?;
<^ºÑ>Âõ<ÛO–>xGÆ;ØóU>”À†½ó
!>ïT0¾)\>õ€™¾>ï>àKÁ½òÑ?°¾N
?cL¾ÍÌ?X›¾;U
?!®Ô¾•î?Ùø¾
iï>Ÿ¿…Ó>L7	¿•¸>Ÿ¿ºK¢>Ùø¾rS“>P9Ö¾VŽ>'…¡¾(E“>%²O¾s¢>â"¾
j¸>…Á½Ï÷Ó>žï§½






3
34
45
5
	

	


$5B'
øC=Õxi>ìQ¸=¬tï>ìQ¸=—.?ìQ¸½—.?ìQ¸½¬tï>–CK½Õxi>

¾W
A¾u








)
¡0¨<4L¿=
÷=ge¿í@>u
¾õØF>-^Œ=33>iå†>úC3=Xä÷>ƒÀʽX94?bX¾X94?ÈÎû½,ò?sh‘½1â>·Cü£>Ãô=<}—B>ñe"=+Áâ<9´H=–C¾oƒ¼^d¿bX¾#Ûy¿ƒÀʽ#Ûy¿			





*
Àz<¾'1Ø>mr˜½ZÌ>‰—¾²õ¬>nj`¾ûÎo>¼$î½
×#>¡I‚½¢ñt>ÄíP»çû±>Ãy=+w>±Âí=
×#>Îb>ûÎo>z
>sf«>ßĐ=ZÌ>]‹6>f¼Õ>¼t“>B`å>òÒ}>X?-²
>?1,=eãù>Ô(d=1^?¶ó}=X94?oƒ½X94?Ÿr½¤Ä?Ûù>½µpù>1^¾¯²?Û}¾X?¼t“¾B`å>	






P—=ƒÀʾP—=X94½¬Ú>X94½¬Ú>`åÐ=P—=`åÐ=P—=°rè>P—½°rè>P—½`åÐ=¬Ú¾`åÐ=¬Ú¾X94½P—½X94½P—½ƒÀʾ








,

8…•;š™¿—UX»|`+¿wH±¼½s8¿ÈT½ƒàA¿\Â½9´H¿‡Y½¬Z¿Û2`<°çO¿Žçs=+2B¿˜h°="Q0¿\Â=š™¿\Â==
×¾{®½=
×¾{®½š™¿


×¾ìQ¸½=
×¾ìQ¸½š™¿




'1

ü©q>Å 0?”h	>Å 0?®G¡=
ƒ?X9´»X9?ÂMæ½mÞ>ü©q¾Zd»>ü©q¾HáZ>íÓ!¾‰™}>¼Ì½ —>êxL<Há²>w¾Ÿ=ð§Î>w¾Ÿ=š™¿ü©q>š™¿			





2(&
{¤Q¾B`å¾+3¾[{ϾN
¾5´¹¾ғ½­/š¾%;6=ÿ$N¾åšB>ו½P“>mÇ<š>³>³&Ö=ñ¸È>39>=ÖÔ>vý‚>ßßØ>Jª>
Ë>â;ñ>¬¨¡>¢ð?J$A>À”)?gÑ»<Å 0?/¾f*?ß¿‰¾\ã?#¡µ¾ÓKô>ñɾåТ>¹þm¾¾Ÿš>yÍ[¾KuÑ>¼'¾ëú>8„ª½I€
?\äž<Ù?Úáï=f»
?ÿG>¬Äü>`­z>‹Ø>5î…>mç«>K
y>~;y>ïo@>
P>Ž¤=.ã<¢µÂ½Ž?
¾L[¾ëj¾tš¾F¶£¾A)º¾=
ϾkØϾ±û¾·b×¾ÇK¿/MÙ¾š™¿æÙ>š™¿æÙ>B`å¾

$%&#$&#&'#'

	
		'397
?¾æ;оí~•¾u’¿sc*¾ Ñ¿32H¼d;¿\>">¿Çõ—>V
¿ÊâÆ>TÀ¾+‡Ö> Âa¾7ˆÎ>€dÚ½;‹¶>Bv^¼>;a=½Ä8>·CÃ=v§ƒ>äø>ÇõŸ>¥ŸP>
±>?>´È¶>¾µ>BÍ°>$Dá>/۞>þ)?ª>]û?3>™š$?êЩ=:?-?sh‘¼Å 0?!¾i*?…?‹¾Dß?#0¶¾´þ>Vξ¢E¶>Ház¾žï§>Pà]¾¼tÛ>l“*¾Å 
ò¾7Š,¼mçû¾&Ç½{gô¾ö|-¾dçݾºöe¾sg¶¾Ë¡…¾ÙÎw¾+‡Ö¾Ý$†¾()*'(*&'*78
-
,-%&*%*+%+,%,$%$#$#
#
"#""!"!!! 84ƒÀŠ>š™¿ƒÀŠ>+‡–¾
×ã>+‡–¾
×ã>š™¾ƒÀŠ>š™¾ƒÀŠ>—.?˜n>—.?
×㾚™¾
×ã¾+‡–¾‹lç=+‡–¾‹lç=š™¿3‡”¾š™¾‹lç=“ÄÚ>‹lç=š™¾


5%#
RdžhæѾ`嘾Õ"¿A0¾<õ¿=
W¼d;¿çÿ5>šD¿
ª¥>”ÀÌ>¹Æ§¾š™Ù>Qh)¾lÑÊ>” ?:âxž>Pá>y@9>T8b>úÕ<







$677 ‡º>Òn
?¿ôƾ3‡¤>u“ؾÞ!E9¯°È¾O"’¾>™¾ãOô¾bi ¾ˆö¿0ò²<d;¿Ž>>>´¿h•i>¸¿ŽYž>ÀÌÿ¾¶ó½>¢íо…ëÑ>㧙¾u“Ø>1<¾‡jÊ>àډ¼žïŸ>p²í=ǝB>mãO>¢5=h‘m>ƒO3½Ôb>¾®›B>$µP¾\<>9´ˆ¾p(|=
ƒ‚¾óVm>¼tc¾K9·>›p/¾æ>Îl×½¤?o.½*?Dë<Ù?_bì=¹‰
?Ó¥?>C7û>ÞÊb>q<ß>‘í|>¢E¶>VÎ>j¼>Óe¾+ّ½ÍÌ,¾v4Ž<þ°½·E™=ä£E<ƒÀ=T;ã=·E™=øSC>v4Ž<ÐGy>ûW–½Ë¡…>4E¾gy>Ûú¡¾˜nB>Ï£Ò¾Åä=––ñ¾ä»”<mçû¾nùH½ÿéö¾^æ½·ñ羉B+¾¨qϾU¾+Ý­¾
23
#$
12010/0/
./
.
.-.-,-,,+,+*+*)*)()('('$67
¬Z>•?zÆ=zS¹>`åP¼Ëõ6>÷"Ú½:?żØÒ3¾“p¾˜`¾Ž¯Ý¾×£p¾š™¿•½š™¿_R½fÕ¾`åP¼h‘}¾:ç‡=…¸¼`å0>¾KI>/–>8HÈ>ázÔ>?ázÔ>ú~*?ázÔ¾ú~*?ázÔ¾•?			





Š>¶ó½>{À´>þÔ°>Høö>Õx‰>ö)?ú*>ã)?Œd»Å 0?‡¾ê*?5^Š¾Z¹?g±¾(îø>¶ó½¾ëý¶>Âß·¾HáŠ>䣥¾ìùJ>>̆¾rÀ>°Ê5¾]jÄ=’ëF¾íºß>º¡¾
»B`å<4…Î=ú<ÒQ>>8>½5x>É̾ˡ…>‰Ap¾š–x>Åu¬¾e@>B´Ö¾ÿÎÖ=¢šò¾j÷«:mçû¾·A½Nz÷¾•ï	¾73ê¾(¶B¾ÚÔ¾k¾G9¸¾9œ¾kd—¾Ë¡…¾Háj¾)121)*
89
8
787676
56
5
545)4)()(('(''&'&%&%$%$#$#"#"!"! ! / /./...-/A9::µ2¹¾%\ྒྷ’¾Dß	¿”i4¾`俾‰!½d;¿‘ó¾=-\¿œÀT>w¾¿5´™>5›ç¾-´»>}饾±4Ð>×ø¾=
×>x^Š=#.Ð>0I>‘™»>ƒjÛ>Ä͙>ˆö	?¯—V>Há?ÖÈÎ=áÐ+?–¼Å 0?h–4¾
(?F`œ¾Ë¡?¯_Ⱦ…Ü>=
×¾³E‚>›ɾùK«=’ëž¾VN½«!A¾_b¾ùó-½çû)¾œH=.¾?å>õ0ô½|dS>;ᅽÝ$†>()0;—†>…뼓ƒ>]¿
u>Ý(b¾¸Z>“Vœ¾º¡9>Û¥½¾œ>Í#×¾Ðï»=ªñê¾óv=ª÷¾½mçû¾† ç½õÕõ¾Õ2¾Ó¡ã¾
Ua¾Âöþ¶ó}¾•¾ÍÌ̾㥛¾©öi>fg>æ$4>bKO=‰ïÄ=0e໎“B»ôýÔ¼ÏÒ½0eà»Rd=¾bKO=á}u¾N>“„¾ûÎ>ú|t¾	T¿>1`9¾ Âñ>è†Æ½%[	?ˆI¸:Ù?!Ä=¾¿	?iá2>hçô>ì¥i>0ðÄ>mç{>ϟ†>9*99	9	
()
898787
67
6
$#$565"#"!"! !  5454343232121010/0/./.-.-,-,,+,+*+*)9:ìQ¸=š™>ìQ¸=Ãõ¨>ìQ¸½Ãõ¨>ìQ¸½š™>ìQ¸=š™¿ìQ¸==
×¾ìQ¸½=
×¾ìQ¸½š™¿
×¾{®½=
×¾{®½š™¿




<
u“Ø>òÒ;u“Ø>#Ûy¾‘í|¾+=u“Ø>-²>u“Ø>—î>u“ؾ/Ý=u“ؾ
×#½
×#½
×¾d;ß½=
×¾d;ß½š™¿




	
		   !!!"""###$
$
$%
+A¿Cá¿7ˆ.¿ÑA+¿ÇŸ¿¨ÇF¿¡òç¾x)]¿`9š¾¬m¿ýؾͫv¿AÕh=#Ûy¿ö'>QLv¿'‰Õ>ºŸk¿8i?•×Z¿ÀË,?ÃõD¿ŠwD?‹À,¿Ï÷S?ôý¿…+?ôý¿Ø?ª/¿ nà>LâD¿Jµ‡>3§S¿w¾_=u“X¿® ¾¡ÛS¿3Ý«¾5´E¿	kû¾«-¿Û¿ÏM¿éº,¿ºô¿¾!°2¿X94¾éº,¿¶¹±<Û¿Ý|S>jPü¾êzº>´r¯¾
]¾!?Ww¤¾å|á>’Aξ{¾¾>«â¾J`£>Õxé¾¼]—>4J羖A>s¾à¾Üb†>•,×¾“„>}ë˾Ás‡>H6·¾'…‘>+‡†¾…ëÑ>Tã¥>J‚>Tã¥>ÕÐf>€ºA>½.>„*…>6‘Ù=þ֞>€f=7®>¤ ½33³>¾@ª>>{¾bf>5]¯¾{jE>%\ؾÄí=GÉó¾7TŒ½‘íü¾†“T¾Ä
÷¾ü©¡¾Zbå¾VÔ¾ßNʾÔdþ¾þ*¨¾Ëö
¿ê°¿Ù&5¾š™¿S=Ù½¿*7½k¿N¶
=і¿j¼=péè¾Çc¦¾”¾ª››¾=
W½µßŠ¾tû<'Ùj¾(Í=›q:¾ðN>âv¾&5D>[
¨½ûZ>´Éá¼®Ga>Ž?Q=ƒP>à*ï=?5>M%>ìùš=X94>d:ô¼¸#,>B?ó½\ã>ƒT¾vãÝ=Ÿ­“¾›‘=ò(µ¾±‰L<=
Ͼ0¸&½ã§á¾ZÀ½ëäì¾F¶¾×£ð¾OçZ¾Õ$辽Ȍ¾ð§Î¾¯¢¾'Ú¥¾çû©¾öÐ^¾
kl
8
89	
9	9:	::;;<<<==>>>???@@AYqrXYrWXrWrsVWsUVsUstTUtTtuSTuRSuRu^R^_QR_Q_`PQ`P`aOPaOabObcNOcNcdMNdMdeLMeLefKLfJKfJfgIJgIghFIhFhiFijFjkFk
EF
DE
CD
C
BCBBBBA]uA/ÛÖ¾š™¿°È¾‡Y¾¬„>‡Y¾IÐ>š™¿Àu?š™¿¥£œ=—.?$ÓὍ—.?Àu¿š™¿Èλ½ºõš>PT½„½Ù>P©¼ÍÌ?rݔ<ÂöÛ>~r”=üU>iQ>P—½Vl¾P—½











	
	B9;_¶;š™¿á™ð=¨:¿y=X>°¿žš“>/Q
¿ñÔ³>\ã¿Ñ#Î>ƒÁí¾3Ýã>¬Ê¾*pò>œn¡¾ÇK÷>Cãi¾mTï>nÂý½¤n×><j½Ã·°>
ú=•›x>žï§=6\¤>ÞÌ>ÙÀ>ð÷K>?àÑ>_bŒ>P×>}?µ>G!Ñ>‡á>+ݽ>¶ó? CŸ>ú?
ªm>à$?›>ã,?Ö«H»—.?ÇK÷¾—.?ÇK÷¾š™¿‰A ¾®?‹áj½®?3¨v=v‰?#ƒ>¬?mã?>ú*ù>4Ûe>ãOä>ÆM}>™É>\‚>ìùª>b¾|>+†‹>¡c>f¾c>àõ9>A¶<>
3

$
#$#
"#
"
!"! !   ''(&'(&()%&)%)*$%*$*+$+,$,-$-.-'8C*(
-³°>Ñy•¾ôQ†>®É¾-^>H4é¾xÓ­<F¶ó¾—Ê»½‹ÿë¾I¾ÛÔ¾/‘¾:®¾T°¾…Co¾4œÂ¾ûÎϽ9´È¾(ÑR=aÃ¾~4>“´¾`;˜>…í—¾ZÏ>GY¾îzù>¡Mν7R
?)\=Ù?>Z>¤Ä
?Év~>Vý>H‰¥>-±Ò>7‰Á>?á”>–C?þ¨>äøñ>cÐù>w¹>´?>Z\>xò-?™=X94?…ïý½(E/?øS‹¾wh ?D˾C

	
'()')
	
		  %E

X9ô>š™¿X9ô>B`å¾/¾B`å¾/¾¦›D¼ºIÌ>¦›D¼ºIÌ>)\>/¾)\>/¾®?/Ýä>®?/Ýä>—.?X9ô¾—.?X9ô¾š™¿	




+‡¾š™¿+‡¾¼t“¼{®>¼t“¼{®>L7	>+‡¾L7	>+‡¾®??5Þ>®??5Þ>—.??5Þ¾—.??5Þ¾š™¿	
?ÙÍÌ>èÛ?`™>­(?^i9>KV1?¨QH=X94?U¾˜//?èù“¾j ?ÛOÖ¾÷’?CŒ¿¬ÄÄ>¿]>P¿Ù=ۅ¿†“¾ o¿}?¾QøÔ¾9aâ¾gº¾#…
¿íñ½Ì
¿¶ó}=d;¿b¾L>›¿C7«>-\¿ú)î>vS¿P?žï×¾P?/]=ÍÌL=/]=ÍÌL=9´È½   !!!!"""###$$
$
$%
%%&&&'
'
'(	
(	()	))***+++,,,---...//
/
/0
01

çû©¾š™¿çû©¾oƒ;çû©>oƒ;çû©>š™¿ƒ






I
{®=š™¿{®=—.?{®½—.?{®½š™¿
K

ìQ¸¾š™¿ìQ¸¾w¾¾ƒÀ¾Í<=°œ>š™¿®?š™¿rS½</%>7‰
?—.?´t>—.?ìQ¸¾ý¾?=ìQ¸¾—.?®¿—.?®¿š™¿





	L
ÍÌÌ>š™¿ÍÌÌ>B`å¾…k¾B`å¾…k¾—.?ÍÌ̾—.?ÍÌ̾š™¿


	
	N

Å °¾š™¿Å °¾9´Ð>³Eª>š™¿7‰
?š™¿7‰
?—.?Å °>—.?Å °>b¼¦¾³Eª¾—.?7‰
¿—.?7‰
¿š™¿	
¿@‰—¾¼Ëå¾´Êܾô§¥¾'Û¿€/¾M£¿
¿±Þà>ããã¾°Ç?2°ž¾ä?ïS¾‘í?aú=¢$?šCb>´É	?ßûÃ>0Ÿä>;‰?üQ¤>#…?Mº->OÌ.?B`e:X94?.{¾¬(?“â¾?{õ¿Hâ>‘í¿£ZÄ<´о]ø‰>Ý$ž¾lÞ>Ì$*¾kð?B`å:Ù?âû=o½
?±nl>Õü>/3¤>¢BÕ>²ŸÅ>™E >aûÙ>ôû>>œÄà>Z$=æåÐ>Ý'7¾ÇI¡>/Û®¾m:2>€â¾B`eºF¶ó¾2Ž1¾ø©â¾× ¾/…¯¾2Éоý‚=¾œÄà¾n²<%

%&
 




'PøS£¾š™¿øS£¾
×£½×¡<
×£½uèt>µ‰S½á$Å>‚å=éí>«B#>5^ú>=
Ÿ>Ìcõ>ÞæÍ>°tæ>bºø>[Ï>€?Lá±>‡?UL>J˜%? ÂA>¼t+?9ÕÚ=áÎ-?Zº»—.?5^ú¾—.?5^ú¾š™¿øS£¾®?l<®?‹Ù=²ó?u;+>œÄ?°h>*û>ÑvŒ>öÔâ>wœ>PŽÂ>®G¡>Zœ>3p˜>¸ÊS>úÒ{>ob>-¯>ÅȲ=ÁÈK<¼t“=øS£¾¼t“=

		








¿ÏLà>’­"¿bf?Ù$3¿
×¾=
8¾yé澞ï'=ÆßÖ¾+…ˆ>‹Â¦¾×KÛ>‘œ<¾HŒ?žï'¼Ù?mpâ=o½
?ö$`>Õü>Rž>ìPÕ>Õz¿> >„ÖÓ>çý?>¾ŸÚ>…+=¨qÇ>|íI¾dç>ªE¼¾ÅÆ,>À̗¾Ð

=u;{¾
(
()	
)	))***+++,,,---...///00
3R++—ɾš™¿—ɾÂõ¼
?W#;<q=
?+2
>»}?÷xa>ò|ö>&Š>¯[Ô>u‘’>¥ó©><2Ž>›Y‹>n>1^>‹W>”j/>mç>{h>¶j—=máù=“Žò¼h‘í=—ɾh‘í=
'(
()'

)*'''

'

	
		'''&'&%&%$%$#$#"#"!"!! !   *
*
ÙÁ>M÷¿i;æ>ÝÐܾI¡ü>=­¾J?ƒt¾ÆMý>
/¾íè>2“h½×LÆ>ge{<{À”>ýù–=F	:>é€ä=Úã<N>40"¾	QN>ÛQ|¾Ÿr|>H4‘¾Ý"˜>P—¾ÛM¸>t•Ž¾’Þ>K\g¾ÉÌý>.X
¾…µ	?@12»ßO
?Åt
>'f	?í`>ßQû>J>”„Ô>-²>R¸ž>×£ð>/ݤ>ç>°sÛ>ƒÐ>?œ1¬>%?‹v>
(?ÅÆü=IK1?žï'¼X94?\‘¾‡k1?ž—z¾)?öÒ¬¾à.?{hϾÙ#?å}侧Zã>…ë¾#/³>ýÀå¾Ìˆ>¸tÔ¾Ž“B>èf·¾zÆþ=F^Ž¾1=ÒR9¾D
=[´
7
676565
45
4
34323212110CT
{®=š™¿{®=®?ÁÊ
?®?ÁÊ
?—.?ÁÊ
¿—.?ÁÊ
¿®?{®½®?{®½š™¿
Ö >×¢…¾ãQ‚>
+ž¹Æ>“Åå¾A¼×£ð¾§væ½[&ë¾+/I¾®Ú¾\…¾õÀ¾Ñ"›¾ö(œ¾=
§¾÷«P¾«¾Âßo½«¾—.?%
¿—.?%
¿YÄp½;Èû¾¼Îv¾ìûè¾


V	
a°=š™¿ú)?—.?h“Ó>—.?‰=À"¾Â¤ø<ÃJµ¾ yçºë¾èÞ½j·¾
ª½À"¾X7.?ú)¿—.?äغ½š™¿

			
W
𧞾š™¿®¼$½¬ÈÀ>oƒºÓ÷?À%=¢íÀ>Vbž>š™¿:\ó>š™¿ªñR?—.?èO'?—.?ÛMè>
Û¾+Ç>{h×¾P5²>[N¾®ï“>qÈ=ìQØ=—.?¹nʽ—.?	T¯¾¬<¾ßO;{h×¾¾Ké¾"¾®ñ%¿—.?ªñR¿—.?Gù¾š™¿				





×c=üQ¾7‰Á>š™¿?š™¿Ú©Ù=ò"“=ÍÌ?—.?þ(º>—.?Q-â=}ç¯>Lc=\å‰>+ˆ
<U3K>£å



Y	
㥛=š™¿ã¥›=Ò7i½+‡?—.?}çÇ>—.?³x>㥛>¡€m:Ûùž=4¾R¸–>TÄ¾—.?+‡¿—.?ƒÀ½Ò7i½ƒÀ½š™¿


			
	

Z

ÁÊ
?š™¿ÁÊ
?B`å¾w¾Ÿ¾B`å¾÷xq¾â"·¾ìQø>®?ìQø>—.?-²Ý¾—.?-²Ý¾®?…—>®?D3_>.ë>Œ>5
Á>ÁÊ
¿q=â¾ÁÊ
¿š™¿


W¾oƒ;

-‹¾¯Ž>)Z©¾ôýd>ڍ¾¾>ÍÌ̾oƒ=mç{¾X94=™œZ¾¢š>+¾h•9>ãʽ>[W>B`庮Ga>¸ÊÓ=ºŸS>çS7>ߧ*><ÝY>ԝç=B`e>ظþ<ázd>
×#¼C7Û=å ½é›t½
	
	DD CD C !BC!"AB"B!1Db%%oƒ¾Õö¾n¾Ö俸Y¼:R¸¿äM>c¿õ€‘>¬Æú¾{¾¾>÷=ª¾òÒÍ>ß÷½û@Ê>Ñ?Á¼7‹¿> ¸Š=+‡®>ò$>9
˜>Eº_>g·v>·FŒ>…/>‡¡>Í ¾=.È®>9¶<33³>J¾Í£>#Ûy¾°Êe>#Ûy¾—.?òÒ;—.?òÒ;š™¿oƒ¾š™¿øþv¾íò­<C=¾oº>h?Ò½=dJ>ôýÔ»®Ga> ¶´=
-K>žë+>Ý>äLc>ÜÔÀ<Âu>X	¾„b>—”¾¬È(>¨;¥I©=oï¾/]¼Háú¾'/¾:\ë¾®[¾Í̼¾¦™~¾‹¾¸…¾¾





>Òȧ½ùK>÷>Õ<®Ga>ãÊ=1U>ëU$>í0>ì¦T>Ælé=F¶s>o=®Ç>ôýT=Iö°>Å6>Lˆ>Õv‹>Ô} >$D©>*q<33³>½ÈĽeü«>èKO¾X–>î%•¾e‹d>ïSµ¾ÿ=ÍwȾOw;ÙξòÒ
¾§À¾¨°¾š—“¾®ý¾*Œ¾ý¿¿›¯’<R¸¿ÁÊ!>åñ¿nŒ>¿ž¿{Á·>„+ؾÙÎ>)\¾


#d''òÒÍ>š™¿òÒÍ>—.?#Ûy>—.?#Ûy>Ï÷c>R¹I>4IŒ>¨
>°¡>É‹=’­®>œÃ5¼33³>
+õ½l{«>¨^¾ôS”>“«˜¾c`]>'3¶¾î=ëǾ6r]»òÒ;Ñ"¾4JǾMMŠ¾°³¾×¥Æ¾±0”¾…—ø¾®ïS¾Z¿_^à½Î¿ýÜP»R¸¿!¬>ŒÖ¿oƒ>Vbö¾oƒ>š™¿r¿c¾øûÅ<_¶-¾ì¥	>¤¹½_K>ìQ¸;®Ga>»GÖ=¼yJ>N?>k>Éqw>óT‡<¸…>ƒ¾ÅÇw>\;™¾€f@>gºÏ¾—9Ý=˜ð¾ÙN<Háú¾w¼©½—ﾬÈ(¾V¸Í¾„b¾·•¾Âu¾ÿ¯
¾
	
		&e$$X:_>ҌžËõ&>¬ã¾ bÃ=ùõ¾ÍÊv<Háú¾m绽œ†ð¾‘7¾¼vѾ=¶u¾랾'1ˆ¾X94¾!°Ú>X94¾Ñ"Û>L7	¾%Ì>“=B´ž>Árd>‡3>®ô¢>gbº;33³>æÎ,¾a¥¢>1\¾×÷a>)±Ë¾)^…=Ñ"Û¾ÓM¾'Ü˾¨°¾)ž¾m;ý¾?,¾£±¿+‰l<R¸¿ð¤%>’®¿Õz>d‘
¿¯[¼>©ä¾°rØ>
×£¾}?…>š™™¾ò&o¾o=X94¾Ð&>Ûù¾½f¿N>–?ß;®Ga>—í=ZJ>d;O>¡j>¡w>-wf=Ý$†>j<½“„¾j<½""#"	"	
!"
!
 !

	

	
	
>ÁÊ¿ƒ€>j¼ô¾T~>]û¿!Xu>R.¿4ÛU>
ö?¿}—">VcM¿Ž?±=iÇU¿¿ž/¼u“X¿eÐ½Ð·U¿q/¾á$M¿f¾S¾ˆ,B¿fff¾-2¿%Á¾V-¿_j¾ôüé<Ad1¾#Û	>Iƒ»½zlK>*‹Â;®Ga>_™×=K>X‘A>4ƒ>…é{>÷ÉÑ<®‡>?5þ½öy|>َ¾ØÒC>òÒž¸•Þ=¦ïå¾ÓK<×£ð¾fh¼½;á御I2¾ª™Å¾…Dj¾m卾‘í|¾¼tó½-.--	-	
,-
+,
$%
+
+
*+
*
)*)()('(''&'&5&55454343232121010/0./.%5h
‰A`¾š™¿‰A`¾j¼½˜Y¾’‘³;™E¾ù†¢=	ü!¾K:
>Z¼Ø½øû5>\“.½+ÙQ>€Ê<Ñ"[>)Û=W_M>ìM,>b$>€DS>¯$¹=‰A`>‹n=¼‰A`>š™¿%Á>š™¿%Á>òÓ8¼Ù¼>}=ß=ìQ°>ì¥I>
š>“…>N¶q>=`ž>¡J>vþ­>4Il=33³>À—½âÍ¢>‰A`¾T;c>‰A`¾—.?%Á¾—.?%Á¾š™¿





iÁÊ¡=ƒ

k

"




	l
ÁÊ¡=š™¿ÁÊ¡=—.?ÁÊ¡½—.?ÁÊ¡½š™¿
Ã=‡ƒ=9d>>^>l^>›qJ>C>Ñ"[>vR·>Æ£T>¸ÈÍ>é&A>u?ß>#>ìOê>+/ù=½5ð>Ìëˆ=-ò>+‰l¼-ò>š™¿7‰!?š™¿7‰!?==DÁ?Õy4>{i?Œ>³\î>àf©>Ýx¯>33³>Š?:>¨nž>Uù^=‰A@>±j<oƒ>y$½ßO>$)é½Mº­>Æ£T¾33³>ˆ+—¾óå­>@ß¾¾ðý>nOà¾È`…>5^ú¾mçK>5^ú¾Ãõ¨>7‰!¿Ãõ¨>7‰!¿š™¿+,

!	
!	!"	"#	##$$%%%&&&'''(()),n
‰A`¾š™¿‰A`¾Ú½½Ï¤M¾™ºk=áξ,¶>½©ˆ½—ÇJ>˜Ù<Ñ"[>~‹®=0ÚS>±>



o""óTϾFa¯¾ú*¡¾´tý¾{4¾Ø¸¿&å9R¸¿A+ð=Æ¿‹f>.¿Ãa¡>ýgý¾#/Ã>B´Î¾Ö×>X¾R¸Þ>Ú©ù½ö)Ï>%š= >øûe>¶¡2>Õ%£>&å933³>ñ€"¾
¾Ӂ¾eä¬<žïG¾Ëõ>Rܽ%³J>&å9®Ga>ZdÛ=’–J>}G>ù‚>—ā>Ð*³<¨Æ‹>¡j¾Ӂ>§³“¾žïG>¦E;#ƒÜ=Nzï¾&å9Háú¾Rܽ¹ˆï¾žïG¾í~;Ӂ¾r§”¾¨Æ‹¾ŸÊ	¾




	
		!p))mç{¾j¼t¿mç{¾–—
ƒ¾-¿Êpœ½}•¿ÄíкR¸¿£?Ô=9Õ¿J¸P>,¿m”>‡lø¾¦›´>ÛľËIÈ>€Ô†¾ÙÎ>o¾ÿçÈ>>?ºw·>î=—™>šA\>
 
 !	
!	!"	"""###$$$$%%(q%%òÒÍ>j¼t¿òÒÍ>Ãõ¨>¸…>Ãõ¨>¸…>¥óQ>wf>㤠>Å 0¼33³>j3߫>:Z¾må•>,š–¾œlc>µ¾ÿ=¿žÇ¾þEÐ;òÒ;®G
¾q’¾¾:Ê©¾îА¾Láù¾eá¾kF¿j÷«:R¸¿‡n–=ð†¿ Õ>ªò¿íÔL>‘
¿#Ûy>éÒÿ¾#Ûy>j¼t¿mŽc¾ ›ä<Ãñ,¾Év>Ed¸½
/Q>­K;‹lg>”Î=,‚O>c<>‡Â>±v>Çô„<¸…>æx¾S³w>’Z˜¾r@>®IϾa‹Ý=jûï¾®r<Háú¾x悔‹lï¾pé(¾V;7Œb¾¨Æ“¾Âu¾+¾
$
$
$#$#
"#
"
!"! !  $r
ƒÀ½š™¿ƒÀ½–Î罏³½þӍ¼ኽßĐ=׊6½Ifõ=Uù¼)° >)u	=7Ž8>žï§=ƒ@>°t>{8>¢íH>rÀ>%>>²™>rÀ.>öÒ¬>š™¹=33³>”‰=˜/¯>8 %¼ê$£>p|m½™Š>®Gá½shA>®Gá½Ãõ¨>%¾Ãõ¨>%¾š™¿	




/A¾î<=9
P¾€“=ôýT¾VÎ=II¾f>ÏK%¾Œ¼<>}A˽Õ$X>ƒÀ»®Ga>£•›=É W>79>¬8>oº5>Í>ƒÀJ>)\=X9´>ìQ¸=2s©>pë.>gd˜>À"o>¦E}>'1>/‰3>Á£>Ú«¯=.¯>½ŠŒ¼33³>îx³½KË°>/¾q“©>¤nW¾Êâž>øÿ¾Z’>€˜¾Vº{>^º©¾Ì$J>¬´¾ÃŸ>ìQ¸¾AÕ¨=Tå³¾¯´Œ<ϟ¦¾Œ¼,½2ɐ¾ÎS½½ïSe¾™¾gc¾ÒR)¾“‹<oS¾6‘ù=+q¾‡n6>j¼„¾Ó£Y>q<—¾B`e>@‰¯¾ªðW>mç˾ä¡/>-^侗×=‰@õ¾=-<Háú¾¹O®½½Šô¾J¸ ¾‡á¾¨R¾Â¾…k¾u“˜¾Ë¡Å¾/ݤ¾=>
45
4
4343
3
23121010/0/./-.-,-,+,+*+)*)()'('&'&%&$%$$#>t
…é+>=¶í¾Ÿr>—î¾zßØ=¼!í¾y‘©=‹À辈=hæᾬáb=%Ù¾üI=ÃõȾƒ@=D‹¬¾ƒ@=ôýT>Ï÷S>ôýT>Ï÷S>Ãõ¨>ƒ@=Ãõ¨>ƒ@=î|'?øSã½øS?øSã½Ãõ¨>°rh¾Ãõ¨>°rh¾ôýT>øSã½ôýT>øSã½`‘§¾ÿvÙ½I¹ã¾	ß»½¬p¿„†½Š¬
¿WμV¸¿,ô
=ï¿ÒýÜ=¬¿3á'>*È¿°rh>°¿Ï÷S>oë¾

	
	








v	
T›=š™¿¾ŸÚ>Ãõ¨>+ۇ>Ãõ¨>Å p=ò"s¾õÎ<«ª¾

			
w
´ D¾š™¿o»Âjì=•¸=X94½ñ*;>š™¿Pá°>š™¿øS#?Ãõ¨>üUø>Ãõ¨>h‘¥>!XU¾q=Š>’AƾTãe>ÁW¾„›¬=Ãõ¨>Ãõ¨>F^f¾Ÿr\¾¿ó‹¾´оÕ¦¾sT¾¼ ò¾Ãõ¨>øS#¿Ãõ¨>%²·¾š™¿		







	


	


y
•“¾U¢x¿Tãu¾#Ûy¿L6.¾‹w¿À—â½™šp¿’‘s½ö³d¿%l¼S¿
À<E·>¿}—=°Æ¿…ëÙ>Ãõ¨>sh‰>Ãõ¨>;ߏ=kZ¾ð=-¢¾"ߥ;Ýx×¾›tÛ¼H6Ÿ¾H1€½·CS¾¼tƒ¾Ãõ¨>…ëÙ¾Ãõ¨>!°’½¿)\¯½;ß#¿½ê½Ä_7¿ãý¾}éA¿„ ¾ÂI¿Dß=¾¼uN¿
†c¾¯ÒQ¿×÷‰¾ªñR¿5]Ÿ¾JR¿Å ¸¾)\O¿y鮾Ë÷t¿

		







Ǽ>±>¾‡‹Ü½ÿ¯
¾‘н<-¿½?6I<ÿ¯:½[ï7=¾¼€<]߇=ÕxÉ=B´–=ÝzM>㥛=P9Æ>j¾ª=Ïõõ>ÿØ=…?„½>KÍ?+‡f>`å?%>`å?%>X94?i9P>X94?Vb>ª3?ÉÆÃ=çû1?8R=И-?‘b€<–'?Å©V¼Ÿ?½1\?¾†`½"?+‡½ôQî>8/Ž½/ÜÉ>_²‘½mç‹>í,š½ìQ>a°½ÍW‰=kEÛ½H¥X< Â¾j2㼇C¾øl]½%¾oƒ½%&'$%'#$'#'(#()


	
		
#)*"#*"*+"+,",-!"-!-.!./ !/ /0 01 1122233334445556
6
67
7
W<“ ?3nê¼Ð*?K磽ߥ0?®¾~T3?²Q¾X94?J‚¾X94?J‚¾`å?'1h¾`å?µÆ ¾ƒj?Ìñê½Ûù
?žë»½ÉË?
×£½81ì>w¾Ÿ½¤„>ãQŠ½lëÇ=P½–C¼´Žª<·C£½œOÝ=ÿ¯
¾—$=„g2¾À´(¼øOg¾À8½Üb–¾+‡½oþ¼t“½ƒõ¾P—½°r(¿Òû¦½ä…@¿àGÕ½Ñ#N¿oe¾]nT¿žïg¾+‡V¿J‚¾+‡V¿J‚¾#Ûy¿Ü¡Q¾#Ûy¿Â÷¾u=y¿
×ýZdw¿4ôO½øþr¿Úäp¼äùl¿ò™l<%e¿¯Ò=ÕZ¿J)h=…–M¿–C‹=áz<¿ËG’=`9*¿óʕ=33¿€Ež=¶Ö¾õ0´=q嬾ÿ]ß=Zf‘¾êÎ>u“x¾`“E>ž?]¾J‚>ªñR¾J‚>oƒ½$%&#$&"#&"&'"'(



	
		


	

--- NEW FILE ---
ÿ

Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.Style
KeyPreview	MenuMainMenuOldCreateOrder
OnKeyPressFormKeyPress
PixelsPerInch`
TextHeight
Exit1Click
FrameTimerInterval
OnTimerFrameTimerTimerLeft„
--- NEW FILE ---
unit frmMain;

{ Console Demo
  by Michael Hearn 2000 for the Pythian Project }


{ we're going to "clear" the screen, see OnGLDraw for this. I'll
  then use the glf functions to draw the console. keystrokes
  will be interpreted and placed on the screen until I have
  a simple console.

  The commands you can use are
    - help
    - cube on/ cube off
    - exit }

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, GLPanel, OpenGL, glfd;

type
  TMainForm = class(TForm)
    GLPanel: TGLPanel;
    MainMenu: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    FrameTimer: TTimer;
    procedure FrameTimerTimer(Sender: TObject);
    procedure GLPanelGLInit(Sender: TObject);
    procedure GLPanelResize(Sender: TObject);
    procedure GLPanelGLDraw(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    consoleCommandBuffer :string;
    animSquare :integer;
    CubeEnabled :boolean;
    procedure consoleInit;
    procedure consoleProcessKey(Key:Char);
    procedure consoleProcessCommand(cmd:string);
  public
    { Public declarations }
    procedure SetProjection(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FrameTimerTimer(Sender: TObject);
begin
  // now redraw the screen
  inc(animSquare);
  if animsquare >= 360 then animsquare := 0;
  GLPanel.GLReDraw;
end;

procedure TMainForm.SetProjection(Sender: TObject);
var
  gldAspect : TGLdouble;
begin
   // Redefine the viewing volume and viewport when the window size changes.
  gldAspect := GLPanel.Width / GLPanel.Height;

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(30.0,           // Field-of-view angle
                 gldAspect,      // Aspect ratio of viewing volume
                 1.0,            // Distance to near clipping plane
                 100.0);          // Distance to far clipping plane
  glViewport(0, 0, GLPanel.Width, GLPanel.Height);
  InvalidateRect(Handle, nil, False);
end;


procedure TMainForm.GLPanelGLInit(Sender: TObject);
begin
  // Add GL init code here
  // Any enable/disable commands that affect the entire app should go here

  animSquare := 0;
  cubeEnabled := true;

  //
  // Enable depth testing and alpha blending
  //
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA,GL_ONE);

  glfInit;
  if glfLoadFont('arial1.glf') = GLF_ERROR then raise Exception.Create('font load failed');
  glfSetAnchorPoint(GLF_LEFT_UP);

  consoleInit;
end;

procedure TMainForm.GLPanelResize(Sender: TObject);
begin
  SetProjection(Sender); // this sets up the view
  // init any variables here
end;

procedure TMainForm.GLPanelGLDraw(Sender: TObject);
begin
  //
  // Clear the color and depth buffers.
  //
  try
    glClearColor(0.0,0.0,0.0,1.0); // clear to black
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

    // reset the matrix to it's identity (original, unmodified) matrix
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity;


    if CubeEnabled then
    begin
      glPushMatrix;
      // scale and rotate
      glScalef(0.5,0.5,0.5);
      glRotatef(animSquare,0.0,1.0,0.5);
      glDisable(GL_BLEND);
      //
      // Draw the six faces of the cube.
      //
      glColor4f(1.0,0.0,0.0,0.75);
      glBegin(GL_POLYGON);
        glNormal3f(0.0, 0.0, 1.0);
        glVertex3f(1.0, 1.0, 1.0);
        glVertex3f(-1.0, 1.0, 1.0);
        glVertex3f(-1.0, -1.0, 1.0);
        glVertex3f(1.0, -1.0, 1.0);
      glEnd;

      glColor4f(0.0,1.0,0.0,0.75);
      glBegin(GL_POLYGON);
        glNormal3f(0.0, 0.0, -1.0);
        glVertex3f(1.0, 1.0, -1.0);
        glVertex3f(1.0, -1.0, -1.0);
        glVertex3f(-1.0, -1.0, -1.0);
        glVertex3f(-1.0, 1.0, -1.0);
      glEnd;

      glColor4f(0.0,0.0,1.0,0.75);
      glBegin(GL_POLYGON);
        glNormal3f(-1.0, 0.0, 0.0);
        glVertex3f(-1.0, 1.0, 1.0);
        glVertex3f(-1.0, 1.0, -1.0);
        glVertex3f(-1.0, -1.0, -1.0);
        glVertex3f(-1.0, -1.0, 1.0);
      glEnd;

      glColor4f(0.0,1.0,1.0,0.75);
      glBegin(GL_POLYGON);
        glNormal3f(1.0, 0.0, 0.0);
        glVertex3f(1.0, 1.0, 1.0);
        glVertex3f(1.0, -1.0, 1.0);
        glVertex3f(1.0, -1.0, -1.0);
        glVertex3f(1.0, 1.0, -1.0);
      glEnd;

      glColor4f(1.0,1.0,0.0,0.75);
      glBegin(GL_POLYGON);
        glNormal3f(0.0, 1.0, 0.0);
        glVertex3f(-1.0, 1.0, -1.0);
        glVertex3f(-1.0, 1.0, 1.0);
        glVertex3f(1.0, 1.0, 1.0);
        glVertex3f(1.0, 1.0, -1.0);
      glEnd;

      glColor4f(1.0,1.0,1.0,0.75);
      glBegin(GL_POLYGON);
        glNormal3f(0.0, -1.0, 0.0);
        glVertex3f(-1.0, -1.0, -1.0);
        glVertex3f(1.0, -1.0, -1.0);
        glVertex3f(1.0, -1.0, 1.0);
        glVertex3f(-1.0, -1.0, 1.0);
      glEnd;
      glPopMatrix;

      glEnable(GL_BLEND);
    end;


    { now draw an alpha quad to effectively "clear" the screen but still
      leaving something showing }
    glLoadIdentity;
    glColor4f(0.6,0.6,0.6,0.99);
    glTranslatef(0.0,0.0,-1.0);
    glBegin(GL_QUADS);
      glVertex2f(1.0,1.0);
      glVertex2f(1.0,-1.0);
      glVertex2f(-1.0,-1.0);
      glVertex2f(-1.0,1.0);
    glEnd;


    glClear(GL_DEPTH_BUFFER_BIT);
    glLoadIdentity;
    glTranslatef(-1.0,1.0,-1.0);
    glScalef(0.04,0.04,0.04);

    glfConsoleDraw;
  except
    // ignore exceptions - the delphi IDE seems to screw up on my system :(
  end;
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  consoleProcessKey(Key);
end;

procedure TMainForm.consoleProcessKey(Key: Char);
begin
  // add this key to the console, unless it is a backspace key
  if Key = #8 {backspace} then
  begin
    glfConsoleBackspace(1);
    consoleCommandBuffer := Copy(consoleCommandbuffer,0,Length(consoleCommandBuffer)-1);
  end
  else if Key = #13 then
  begin
    // if user hit enter, process command and move onto new line to
    // display the result
    glfPrintString(key);
    consoleProcessCommand(consoleCommandBuffer);
    glfPrintString('> ');
    consoleCommandBuffer := '';
  end else
  begin
    glfPrintString(key);
    consoleCommandBuffer := consoleCommandBuffer + key;
  end;
end;

procedure TMainForm.consoleInit;
begin
  consoleCommandBuffer := '';
  glfSetConsoleParam( 45, 24); // this clears the console for 640x480
  glfPrintString('Console Demo app v1.0'#13);
  glfPrintString('by Michael Hearn'#13);
  glfPrintString('> ');
end;

procedure TMainForm.consoleProcessCommand(cmd: string);
begin
  if (LowerCase(cmd) = 'help') or (cmd = '?') then
  begin
    glfPrintString('This is the console demo application :)'#13);
    glfPrintString('Commands available:'#13);
    glfPrintString('  - help/?: displays this text'#13);
    glfPrintString('  - cube on/off: changes the background cube'#13);
    glfPrintString('  - exit: quits the demo'#13);
  end else if (LowerCase(cmd) = 'cube on') then
  begin
    CubeEnabled := true;
    glfPrintString('Cube ON'#13);
  end else if (LowerCase(cmd) = 'cube off') then
  begin
    CubeEnabled := false;
    glfPrintString('Cube OFF'#13);
  end else if (LowerCase(cmd) = 'exit') then
  begin
    Close;
  end;
end;

end.

[Pythianproject-cvsmail] CVS: /Prototypes/AI-Demos/FieldData AIDemoWin.dfm,1.4,1.5

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject//Prototypes/AI-Demos/FieldData
In directory slayer.i.sourceforge.net:/tmp/cvs-serv13420/AI-Demos/FieldData

Modified Files:
	AIDemoWin.dfm 
Log Message:
added basic GL app and Console demo

Index: AIDemoWin.dfm
===================================================================
RCS file: /cvsroot/pythianproject//Prototypes/AI-Demos/FieldData/AIDemoWin.dfm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
Binary files /tmp/cvsjYLtR3 and /tmp/cvsWBUWDX differ

[Pythianproject-cvsmail] CVS: Prototypes/BasicGLapp Basic3D.cfg,NONE,1.1 Basic3D.dof,NONE,1.1 Basic3D.dpr,NONE,1.1 Basic3D.res,NONE,1.1 frmMain.dfm,NONE,1.1 frmMain.pas,NONE,1.1

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/BasicGLapp
In directory slayer.i.sourceforge.net:/tmp/cvs-serv13420/BasicGLapp

Added Files:
	Basic3D.cfg Basic3D.dof Basic3D.dpr Basic3D.res frmMain.dfm 
	frmMain.pas 
Log Message:
added basic GL app and Console demo

--- NEW FILE ---
-$A+
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J+
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-U"..\..\PythianProject\Source\Units\"
-O"..\..\PythianProject\Source\Units\"
-I"..\..\PythianProject\Source\Units\"
-R"..\..\PythianProject\Source\Units\"

--- NEW FILE ---
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=

[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\PythianProject\Source\Units\
Packages=VCL40;VCLX40;VCLDB40;VCLDBX40;VCLSMP40;QRPT40;TEEUI40;TEEDB40;TEE40;ibevnt40;nmfast40;Python_d4;PythonVCL_d4;NtfyIcon;glPanelPkg
Conditionals=
DebugSourceDirs=
UsePackages=0

[Parameters]
RunParams=
HostApplication=

[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252

[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

[Excluded Packages]
$(DELPHI)\Components\Indy\dclIndy40.bpl=Internet Direct "Indy" for D4 Property and Component Editors

[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

[HistoryLists\hlSearchPath]
Count=1
Item0=..\..\PythianProject\Source\Units\

[HistoryLists\hlOutputDirectorry]
Count=1
Item0=.

--- NEW FILE ---
program Basic3D;

uses
  Forms,
  frmMain in 'frmMain.pas' {MainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Basic 3D application';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

--- NEW FILE ---

--- NEW FILE ---
ÿ

Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.Style
TextHeight
Exit1Click
FrameTimerInterval
OnTimerFrameTimerTimerLeft„
--- NEW FILE ---
unit frmMain;

{ Basic 3D OpenGL application that uses the GLPanel component
  by Michael Hearn 2000 for the Pythian Project } 


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, GLPanel, OpenGL, glfd;

type
  TMainForm = class(TForm)
    GLPanel: TGLPanel;
    MainMenu: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    FrameTimer: TTimer;
    procedure FrameTimerTimer(Sender: TObject);
    procedure GLPanelGLInit(Sender: TObject);
    procedure GLPanelResize(Sender: TObject);
    procedure GLPanelGLDraw(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    // Animation trackers can go here
    animSquare: integer; // this var will be cycled through 1..360
                         // which states the angle of the square. By
                         // incrementing this every frame we can create
                         // a rotating square :)

    procedure SetProjection(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FrameTimerTimer(Sender: TObject);
begin
  { Add code to advance animations etc. here }
  inc(animSquare);
  if animSquare >= 360 then animSquare := 0;

  // now redraw the screen
  GLPanel.GLReDraw;
end;

procedure TMainForm.SetProjection(Sender: TObject);
var
  gldAspect : TGLdouble;
begin
   // Redefine the viewing volume and viewport when the window size changes.
  gldAspect := GLPanel.Width / GLPanel.Height;

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(30.0,           // Field-of-view angle
                 gldAspect,      // Aspect ratio of viewing volume
                 1.0,            // Distance to near clipping plane
                 100.0);          // Distance to far clipping plane
  glViewport(0, 0, GLPanel.Width, GLPanel.Height);
  InvalidateRect(Handle, nil, False);
end;


procedure TMainForm.GLPanelGLInit(Sender: TObject);
begin
  // Add GL init code here
  // Any enable/disable commands that affect the entire app should go here

  //
  // Enable depth testing and alpha blending
  //
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_BLEND);
  //glBlendFunc(GL_SRC_ALPHA,GL_ONE);
  // uncomment this line to enable alpha blending
end;

procedure TMainForm.GLPanelResize(Sender: TObject);
begin
  SetProjection(Sender); // this sets up the view
  // init any variables here
  animSquare := 0;
end;

procedure TMainForm.GLPanelGLDraw(Sender: TObject);
begin
  //
  // Clear the color and depth buffers.
  //
  glClearColor(0.0,0.0,0.0,1.0); // clear to black
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  // reset the matrix to it's identity (original, unmodified) matrix
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;


  { ADD YOUR DRAWING CODE HERE }

  // scale and rotate
  glScalef(0.5,0.5,0.5);
  glRotatef(animSquare,0.0,1.0,0.5);
  //
  // Draw the six faces of the cube.
  //
  glColor4f(1.0,0.0,0.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, 0.0, 1.0);
    glVertex3f(1.0, 1.0, 1.0);
    glVertex3f(-1.0, 1.0, 1.0);
    glVertex3f(-1.0, -1.0, 1.0);
    glVertex3f(1.0, -1.0, 1.0);
  glEnd;

  glColor4f(0.0,1.0,0.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, 0.0, -1.0);
    glVertex3f(1.0, 1.0, -1.0);
    glVertex3f(1.0, -1.0, -1.0);
    glVertex3f(-1.0, -1.0, -1.0);
    glVertex3f(-1.0, 1.0, -1.0);
  glEnd;

  glColor4f(0.0,0.0,1.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(-1.0, 0.0, 0.0);
    glVertex3f(-1.0, 1.0, 1.0);
    glVertex3f(-1.0, 1.0, -1.0);
    glVertex3f(-1.0, -1.0, -1.0);
    glVertex3f(-1.0, -1.0, 1.0);
  glEnd;

  glColor4f(0.0,1.0,1.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(1.0, 0.0, 0.0);
    glVertex3f(1.0, 1.0, 1.0);
    glVertex3f(1.0, -1.0, 1.0);
    glVertex3f(1.0, -1.0, -1.0);
    glVertex3f(1.0, 1.0, -1.0);
  glEnd;

  glColor4f(1.0,1.0,0.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, 1.0, 0.0);
    glVertex3f(-1.0, 1.0, -1.0);
    glVertex3f(-1.0, 1.0, 1.0);
    glVertex3f(1.0, 1.0, 1.0);
    glVertex3f(1.0, 1.0, -1.0);
  glEnd;

  glColor4f(1.0,1.0,1.0,0.75);
  glBegin(GL_POLYGON);
    glNormal3f(0.0, -1.0, 0.0);
    glVertex3f(-1.0, -1.0, -1.0);
    glVertex3f(1.0, -1.0, -1.0);
    glVertex3f(1.0, -1.0, 1.0);
    glVertex3f(-1.0, -1.0, 1.0);
  glEnd;
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

end.

[Pythianproject-cvsmail] CVS: Prototypes/BasicGLapp - New directory

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/BasicGLapp
In directory slayer.i.sourceforge.net:/tmp/cvs-serv13204/BasicGLapp

Log Message:
Directory /cvsroot/pythianproject/Prototypes/BasicGLapp added to the repository

[Pythianproject-cvsmail] CVS: PythianProject/Bin/DATA/images logo1.bmp,1.1,1.2

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Bin/DATA/images
In directory slayer.i.sourceforge.net:/tmp/cvs-serv15733/Bin/DATA/images

Modified Files:
	logo1.bmp 
Log Message:
added transparent picture demo -mike

Index: logo1.bmp
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Bin/DATA/images/logo1.bmp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
Binary files /tmp/cvsTsVXHU and /tmp/cvsMmlGmH differ

[Pythianproject-cvsmail] CVS: PythianProject/Source/GameEngine GrEngState.pas,1.10,1.11

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/GameEngine
In directory slayer.i.sourceforge.net:/tmp/cvs-serv15733/Source/GameEngine

Modified Files:
	GrEngState.pas 
Log Message:
added transparent picture demo -mike

Index: GrEngState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/GrEngState.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** GrEngState.pas	2000/10/18 20:53:18	1.10
--- GrEngState.pas	2000/10/19 19:45:20	1.11
***************
*** 35,39 ****
  
  uses
!   glfd, OpenGL, SysUtils, Windows;
  
  { TGraphicsEngine }
--- 35,39 ----
  
  uses
!   glfd, OpenGL, SysUtils, Windows, Points;
  
  { TGraphicsEngine }
***************
*** 46,49 ****
--- 46,50 ----
  
  function TGraphicsEngine.Initialize: Boolean;
+ const whiteByte: TByteColor = (255,255,255,255);
  begin
    Result := inherited Initialize;
***************
*** 72,78 ****
      FTestTex := TTexture.Create;
      FTestTex.Initialize;
!     FTestTex.UseAlpha := false;
      FTestTex.LoadFromFile(DataPath+'images\logo1.bmp');
      if FTestTex.Image = nil then TraceString('Logo failed to init!');
    end;
  end;
--- 73,84 ----
      FTestTex := TTexture.Create;
      FTestTex.Initialize;
!     FTestTex.UseAlpha := true;
!     FTestTex.AlphaColor := whiteByte;
      FTestTex.LoadFromFile(DataPath+'images\logo1.bmp');
      if FTestTex.Image = nil then TraceString('Logo failed to init!');
+ 
+     // text antialiasing
+     glHint(GL_POLYGON_SMOOTH_HINT, GL_NICEST);
+     glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	
    end;
  end;
***************
*** 109,118 ****
  
    // hmm, we seem to need to do vertices in an anti-clockwise direction
!   glPushMatrix;
    glTranslatef(Window.Width-270,30,0);
!   glEnable(GL_TEXTURE_2D);
    FTestTex.Draw; // bind texture
    glMatrixMode(GL_TEXTURE);
!   glPushMatrix;
    glScalef(1/256,1/256,1);
  
--- 115,124 ----
  
    // hmm, we seem to need to do vertices in an anti-clockwise direction
!   glPushMatrix; // push logo matrix
    glTranslatef(Window.Width-270,30,0);
!   glEnable(GL_TEXTURE_2D); // reenable textures for this part
    FTestTex.Draw; // bind texture
    glMatrixMode(GL_TEXTURE);
!   glPushMatrix; // push tex matrix
    glScalef(1/256,1/256,1);
  
***************
*** 134,154 ****
      glVertex2f(0,64);
    glEnd;
-   glPopMatrix; // pop tex matrix
-   glMatrixMode(GL_MODELVIEW);
-   glPopMatrix; // pop logo matrix
-   glDisable(GL_TEXTURE_2D);
  
!  { glBegin(GL_QUADS);
!     glNormal3f(0,0,1);
!     glColor4f(1.0,0.0,0.0,0.5);
!     glVertex2f(100,100);
!     glColor4f(0.0,1.0,0.0,0.5);
!     glVertex2f(-100,-100);
!     glColor4f(0.0,0.0,1.0,0.5);
!     glVertex2f(10,-100);
!     glColor4f(1.0,1.0,1.0,0.5);
!     glVertex2f(-10,10);
!   glEnd; }
  
    // need this: scale it - otherwise text will be 1x1 pixels!
    glScalef(10, 10, 1);
--- 140,185 ----
      glVertex2f(0,64);
    glEnd;
  
!   // IMPORTANT NOTE: it appears to be important which order matrices
!   // are pushed and popped. You can't :
!   //
!   // push texture ; push modelview
!   // pop texture ; pop modelview
!   //
!   // as you might think, instead you must do this:
!   //
!   // push texture; push modelview
!   // pop modelview; pop texture
!   //
!   // in effect - last on, first off
! 
!   glMatrixMode(GL_TEXTURE);  glPopMatrix;
!   glMatrixMode(GL_MODELVIEW);  glPopMatrix; // pop logo matrix
! 
!   // now for non-rectangular images - ie basic transparency
!   glPushMatrix; // push circle matrix
!   glTranslatef(10,FWindow.Height-60,0); // move to bottom left
!   glMatrixMode(GL_TEXTURE);
!   glPushMatrix; // push tex matrix
!   glScalef(1/256,1/256,1);
! 
  
+   // hmm, for some reason the x axis on the texture matrix
+   // seems to be inverted. must investigate when i have time
+   // (which is probably sometime after never)
+   glBegin(GL_QUADS);
+     glTexCoord2f(256,64); glVertex2f(0,0);
+     glTexCoord2f(256,114); glVertex2f(0,50);
+     glTexCoord2f(206,114); glVertex2f(50,50);
+     glTexCoord2f(206,64); glVertex2f(50,0);
+   glEnd;
+ 
+   glMatrixMode(GL_TEXTURE);  glPopMatrix; // pop texture matrix
+   glMatrixMode(GL_MODELVIEW); glPopMatrix; // pop circle matrix
+ 
+ 
+   glDisable(GL_TEXTURE_2D); // disable texturing again for text
+ 
+   // now for the text
    // need this: scale it - otherwise text will be 1x1 pixels!
    glScalef(10, 10, 1);
***************
*** 162,169 ****
--- 193,204 ----
    glScalef(1, -1, 1);
  
+   glEnable(GL_POLYGON_SMOOTH);
+ 
    glPushMatrix;
    // finally draw the text
    glfDrawSolidString(Format('FPS: %f',[FFPS]));
    glPopMatrix;
+ 
+   glDisable(GL_POLYGON_SMOOTH);
  
    glScalef(1, -1, 1);

[Pythianproject-cvsmail] CVS: PythianProject/Source/GameEngine GameGrEngState.pas,1.11,1.12 GrEngState.pas,1.9,1.10

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/GameEngine
In directory slayer.i.sourceforge.net:/tmp/cvs-serv27384/GameEngine

Modified Files:
	GameGrEngState.pas GrEngState.pas 
Log Message:
texture demo in graphics engine -mike

Index: GameGrEngState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/GameGrEngState.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** GameGrEngState.pas	2000/10/17 06:03:12	1.11
--- GameGrEngState.pas	2000/10/18 20:53:18	1.12
***************
*** 91,94 ****
--- 91,95 ----
      glEnable(GL_CULL_FACE);    // enable face culling (no back faces)
      glEnable(GL_TEXTURE_2D);
+     glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA); // enable alpha blending
  
      teSetWedgie(2.0);
***************
*** 147,151 ****
    teStopTesselationMap;}
  
!   teFinishFrame;
  
    inherited;
--- 148,152 ----
    teStopTesselationMap;}
  
!   teFinishFrame; 
  
    inherited;

Index: GrEngState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/GrEngState.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** GrEngState.pas	2000/10/17 18:23:07	1.9
--- GrEngState.pas	2000/10/18 20:53:18	1.10
***************
*** 3,7 ****
  interface
  
! uses BaseObjects, Cameras, MovingObjects, Objects, OpenGLWin, States, Textures;
  
  type
--- 3,7 ----
  interface
  
! uses BaseObjects, Cameras, MovingObjects, Objects, OpenGLWin, States, Textures, Trace;
  
  type
***************
*** 14,17 ****
--- 14,19 ----
      FtxtFont :integer;
  
+     FTestTex :TTexture;
+ 
      procedure SetWindow(const Value: TOpenGLWindow);
      procedure SetBitDepth(const Value: TBitDepth);
***************
*** 39,42 ****
--- 41,45 ----
  procedure TGraphicsEngine.Finalize;
  begin
+   FTestTex.Free;
    inherited;
  end;
***************
*** 61,67 ****
--- 64,78 ----
      glfEnable(GLF_CONTOURING);}
  
+     // add some console text (not used at this time)
      glfConsoleClear;
      glfPrintString('Test Line 1');
      glfPrintString('Test Line 2');
+ 
+     // init the test texture
+     FTestTex := TTexture.Create;
+     FTestTex.Initialize;
+     FTestTex.UseAlpha := false;
+     FTestTex.LoadFromFile(DataPath+'images\logo1.bmp');
+     if FTestTex.Image = nil then TraceString('Logo failed to init!');
    end;
  end;
***************
*** 71,77 ****
    // Disable texturing so we can see our colours
    glDisable(GL_TEXTURE_2D);
!   glColor3f(1, 1, 1);
  
! //  glClear(GL_DEPTH_BUFFER_BIT); // don't know why we need this, but we do
                                    // well, turns out we don't :)
                                    // heh. okay :) must just be me
--- 82,92 ----
    // Disable texturing so we can see our colours
    glDisable(GL_TEXTURE_2D);
!   // turn on alpha blending for this text
!   glEnable(GL_BLEND);
!   glEnable(GL_ALPHA_TEST);
!   glColor4f(1, 1, 1, 0.4);
! 
  
!   //glClear(GL_DEPTH_BUFFER_BIT); // don't know why we need this, but we do
                                    // well, turns out we don't :)
                                    // heh. okay :) must just be me
***************
*** 85,98 ****
    glLoadIdentity;
  
    // change co-ordinate system  to 1:1 pixel mapping
    glScalef(2.0 / Window.Width, -2.0 / Window.Height, 1.0);
    glTranslatef(-(Window.Width / 2), -(Window.Height / 2), 0);
  
    // need this: scale it - otherwise text will be 1x1 pixels!
    glScalef(10, 10, 1);
  
    // offset it from the top by Y/2 text rows to make it look nicer
!   glTranslatef(0, 2, 0);
!   
    // need this: flip matrix because GLF is expecting OpenGL default
    // co-ordinates and we have changed them. Otherwise text will be
--- 100,160 ----
    glLoadIdentity;
  
+ 
    // change co-ordinate system  to 1:1 pixel mapping
    glScalef(2.0 / Window.Width, -2.0 / Window.Height, 1.0);
    glTranslatef(-(Window.Width / 2), -(Window.Height / 2), 0);
  
+   // draw shapes. for some reason we need to do this BEFORE text
+   // why? beats me :(
+ 
+   // hmm, we seem to need to do vertices in an anti-clockwise direction
+   glPushMatrix;
+   glTranslatef(Window.Width-270,30,0);
+   glEnable(GL_TEXTURE_2D);
+   FTestTex.Draw; // bind texture
+   glMatrixMode(GL_TEXTURE);
+   glPushMatrix;
+   glScalef(1/256,1/256,1);
+ 
+   glColor4f(1.0,1.0,1.0,0.8);
+ 
+   glBegin(GL_QUADS);
+     glNormal3f(0,0,1);
+     //  glColor4f(1.0,0.0,0.0,0.5);
+     glTexCoord2f(0,64);
+     glVertex2f(256,64);
+     //  glColor4f(0.0,1.0,0.0,0.5);
+     glTexCoord2f(0,0);
+     glVertex2f(256,0);
+     //  glColor4f(0.0,0.0,1.0,0.5);
+     glTexCoord2f(256,0);
+     glVertex2f(0,0);
+     //  glColor4f(1.0,1.0,1.0,0.5);
+     glTexCoord2f(256,64);
+     glVertex2f(0,64);
+   glEnd;
+   glPopMatrix; // pop tex matrix
+   glMatrixMode(GL_MODELVIEW);
+   glPopMatrix; // pop logo matrix
+   glDisable(GL_TEXTURE_2D);
+ 
+  { glBegin(GL_QUADS);
+     glNormal3f(0,0,1);
+     glColor4f(1.0,0.0,0.0,0.5);
+     glVertex2f(100,100);
+     glColor4f(0.0,1.0,0.0,0.5);
+     glVertex2f(-100,-100);
+     glColor4f(0.0,0.0,1.0,0.5);
+     glVertex2f(10,-100);
+     glColor4f(1.0,1.0,1.0,0.5);
+     glVertex2f(-10,10);
+   glEnd; }
+ 
    // need this: scale it - otherwise text will be 1x1 pixels!
    glScalef(10, 10, 1);
  
    // offset it from the top by Y/2 text rows to make it look nicer
!   glTranslatef(0, 2, -1);
! 
    // need this: flip matrix because GLF is expecting OpenGL default
    // co-ordinates and we have changed them. Otherwise text will be
***************
*** 100,109 ****
--- 162,178 ----
    glScalef(1, -1, 1);
  
+   glPushMatrix;
    // finally draw the text
    glfDrawSolidString(Format('FPS: %f',[FFPS]));
+   glPopMatrix;
+ 
+   glScalef(1, -1, 1);
  
    // and restore to default
    glMatrixMode(GL_PROJECTION);
    glPopMatrix;
+ 
+   glDisable(GL_BLEND);
+   glDisable(GL_ALPHA_TEST);
  
    // restore the colour to white because this affects everything else in the

[Pythianproject-cvsmail] CVS: PythianProject/Bin/DATA/images - New directory

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Bin/DATA/images
In directory slayer.i.sourceforge.net:/tmp/cvs-serv24003/images

Log Message:
Directory /cvsroot/pythianproject/PythianProject/Bin/DATA/images added to the repository

[Pythianproject-cvsmail] CVS: PythianProject/Source/Units PythianUtils.pas,1.1,1.2

[Kamil K. <kkr...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv17133

Modified Files:
	PythianUtils.pas 
Log Message:
@@kk 18/10/00

Index: PythianUtils.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/PythianUtils.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** PythianUtils.pas	2000/09/10 16:47:17	1.1
--- PythianUtils.pas	2000/10/18 17:58:11	1.2
***************
*** 11,14 ****
--- 11,16 ----
  function BoolToStr(b:boolean):String;
  
+ procedure PyFreeAndNil(P: Pointer);
+ 
  implementation
  
***************
*** 18,21 ****
--- 20,29 ----
      Result := 'TRUE'
    else Result := 'FALSE';
+ end;
+ 
+ procedure PyFreeAndNil(P: Pointer);
+ begin
+   Dispose(P);
+   P := nil;
  end;
  

[Pythianproject-cvsmail] CVS: PythianProject/Source/GameEngine GrEngState.pas,1.8,1.9

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/GameEngine
In directory slayer.i.sourceforge.net:/tmp/cvs-serv25629/GameEngine

Modified Files:
	GrEngState.pas 
Log Message:
stuff

Index: GrEngState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/GrEngState.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** GrEngState.pas	2000/10/17 06:03:12	1.8
--- GrEngState.pas	2000/10/17 18:23:07	1.9
***************
*** 54,58 ****
      Camera.ViewHeight := OpenGLWIndow.Height;
  
!     // put code to init tests here
      glfInit;
      Ftxtfont := glfLoadFont(DataPath+'fonts\arial1.glf');
--- 54,58 ----
      Camera.ViewHeight := OpenGLWIndow.Height;
  
!     // put code to init text here
      glfInit;
      Ftxtfont := glfLoadFont(DataPath+'fonts\arial1.glf');
***************
*** 75,78 ****
--- 75,79 ----
  //  glClear(GL_DEPTH_BUFFER_BIT); // don't know why we need this, but we do
                                    // well, turns out we don't :)
+                                   // heh. okay :) must just be me
  
    // reinit the matrices

[Pythianproject-cvsmail] CVS: PythianProject/Source/Units BaseAIs.pas,1.12,1.13 NetDataExch.pas,1.5,1.6

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv25629/Units

Modified Files:
	BaseAIs.pas NetDataExch.pas 
Log Message:
stuff

Index: BaseAIs.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/BaseAIs.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** BaseAIs.pas	2000/09/20 18:07:08	1.12
--- BaseAIs.pas	2000/10/17 18:23:07	1.13
***************
*** 95,99 ****
    C.Target := Character;
    C.CommandType := cmdType;
!   C.TTL := 1;
    MakeAICommand := C;
  end;
--- 95,99 ----
    C.Target := Character;
    C.CommandType := cmdType;
!   //@@C.TTL := 1;
    MakeAICommand := C;
  end;

Index: NetDataExch.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/NetDataExch.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** NetDataExch.pas	2000/10/17 06:04:40	1.5
--- NetDataExch.pas	2000/10/17 18:23:07	1.6
***************
*** 34,40 ****
  interface
  
  uses
    Windows, Classes, Points, IdTCPConnection, IdUDPBase, IdComponent, IdGlobal,
!   PythColl, IdException;
  
  const
--- 34,42 ----
  interface
  
+ 
+ // kamil - IdException doesn't seem to be in the repository. mike
  uses
    Windows, Classes, Points, IdTCPConnection, IdUDPBase, IdComponent, IdGlobal,
!   PythColl{, IdException};
  
  const

[Pythianproject-cvsmail] CVS: PythianProject/Source/Conversation/Interpreter/second frmMain.dfm,1.3,1.4

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Conversation/Interpreter/second
In directory slayer.i.sourceforge.net:/tmp/cvs-serv25629/Conversation/Interpreter/second

Modified Files:
	frmMain.dfm 
Log Message:
stuff

Index: frmMain.dfm
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Conversation/Interpreter/second/frmMain.dfm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
Binary files /tmp/cvs0tecFm and /tmp/cvse6Fkgz differ

[Pythianproject-cvsmail] CVS: PythianProject/Source/Units glfd.pas,1.2,1.3

[Darryl L. <py...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv25201

Modified Files:
	glfd.pas 
Log Message:
Fixed up some little things

Index: glfd.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/glfd.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** glfd.pas	2000/10/14 19:37:24	1.2
--- glfd.pas	2000/10/17 06:05:28	1.3
***************
*** 23,26 ****
--- 23,27 ----
  - Kamil Krauspe (main guy)
  - Michael Hearn (minor changes)
+ - Darryl Long (teeny little changes)
  
  For the Pythian Project
***************
*** 60,64 ****
  
    //* Font loading/unloading functions */
!   function glfLoadFont(font_name: string): Integer;           //* Load font to memory*/
    function glfUnloadFont: Integer;                            //* Unload font from memory */
    function glfUnloadFontD(font_descriptor: Integer): Integer; //* Unload font by font_descriptor */
--- 61,65 ----
  
    //* Font loading/unloading functions */
!   function glfLoadFont(const font_name: string): Integer;           //* Load font to memory*/
    function glfUnloadFont: Integer;                            //* Unload font from memory */
    function glfUnloadFontD(font_descriptor: Integer): Integer; //* Unload font by font_descriptor */
***************
*** 66,90 ****
    //* Text drawing functions */
    procedure glfDrawWiredSymbol(s: Char);     //* Draw wired symbol    */
!   procedure glfDrawWiredString(s: string);   //* Draw wired string    */
    procedure glfDrawSolidSymbol(s: Char);     //* Draw solid symbol    */
!   procedure glfDrawSolidString(s: string);   //* Draw solid string    */
    procedure glfDraw3DWiredSymbol(s: Char);   //* Draw 3D wired symbol */
!   procedure glfDraw3DWiredString(s: string); //* Draw 3D wired string */
    procedure glfDraw3DSolidSymbol(s: Char);   //* Draw 3D solid symbol */
!   procedure glfDraw3DSolidString(s: string); //* Draw 3D solid string */
  
    //* Text drawing functions by specified font */
    procedure glfDrawWiredSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDrawWiredStringF(font_descriptor: Integer; s: string);
    procedure glfDrawSolidSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDrawSolidStringF(font_descriptor: Integer; s: string);
    procedure glfDraw3DWiredSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDraw3DWiredStringF(font_descriptor: Integer; s: string);
    procedure glfDraw3DSolidSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDraw3DSolidStringF(font_descriptor: Integer; s: string);
  
    //* Text control functions */
!   procedure glfGetStringBoundsF(fd: Integer; s: string; var minx, miny, maxx, maxy: Single);
!   procedure glfGetStringBounds(s: string; var minx, miny, maxx, maxy: Single);
  
    procedure glfSetSymbolSpace(sp: Single); //* Set space between symbols */
--- 67,91 ----
    //* Text drawing functions */
    procedure glfDrawWiredSymbol(s: Char);     //* Draw wired symbol    */
!   procedure glfDrawWiredString(const s: string);   //* Draw wired string    */
    procedure glfDrawSolidSymbol(s: Char);     //* Draw solid symbol    */
!   procedure glfDrawSolidString(const s: string);   //* Draw solid string    */
    procedure glfDraw3DWiredSymbol(s: Char);   //* Draw 3D wired symbol */
!   procedure glfDraw3DWiredString(const s: string); //* Draw 3D wired string */
    procedure glfDraw3DSolidSymbol(s: Char);   //* Draw 3D solid symbol */
!   procedure glfDraw3DSolidString(const s: string); //* Draw 3D solid string */
  
    //* Text drawing functions by specified font */
    procedure glfDrawWiredSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDrawWiredStringF(font_descriptor: Integer; const s: string);
    procedure glfDrawSolidSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDrawSolidStringF(font_descriptor: Integer; const s: string);
    procedure glfDraw3DWiredSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDraw3DWiredStringF(font_descriptor: Integer; const s: string);
    procedure glfDraw3DSolidSymbolF(font_descriptor: Integer; s: Char);
!   procedure glfDraw3DSolidStringF(font_descriptor: Integer; const s: string);
  
    //* Text control functions */
!   procedure glfGetStringBoundsF(fd: Integer; const s: string; var minx, miny, maxx, maxy: Single);
!   procedure glfGetStringBounds(const s: string; var minx, miny, maxx, maxy: Single);
  
    procedure glfSetSymbolSpace(sp: Single); //* Set space between symbols */
***************
*** 107,114 ****
    //* Console functions */
    procedure glfSetConsoleParam(width, height: Integer);
!   function glfSetConsoleFont(Font_Descriptor: Integer): Integer;
    procedure glfConsoleClear;
!   procedure glfPrint(s: string; lenght: Integer);
!   procedure glfPrintString(s: string);
    procedure glfPrintChar(s: Char);
  
--- 108,115 ----
    //* Console functions */
    procedure glfSetConsoleParam(width, height: Integer);
!   function  glfSetConsoleFont(Font_Descriptor: Integer): Integer;
    procedure glfConsoleClear;
!   procedure glfPrint(const s: string; lenght: Integer);
!   procedure glfPrintString(const s: string);
    procedure glfPrintChar(s: Char);
  
***************
*** 236,240 ****
    //                 0 - big endian
    endianTester := 1;
!   endianChar := #0;
  
    endianChar := Char(endianTester);
--- 237,241 ----
    //                 0 - big endian
    endianTester := 1;
! //  endianChar := #0;
  
    endianChar := Char(endianTester);
***************
*** 357,361 ****
  end;
  
! function glfLoadFont(font_name: string): Integer;
  var
    i: Integer;
--- 358,362 ----
  end;
  
! function glfLoadFont(const font_name: string): Integer;
  var
    i: Integer;
***************
*** 393,397 ****
      // @@mike - FreeAndNil? Don't know about that one.
      //FreeAndNil(fonts[i]);
!     Dispose(fonts[i]); fonts[i] := nil;
    end;
  end;
--- 394,399 ----
      // @@mike - FreeAndNil? Don't know about that one.
      //FreeAndNil(fonts[i]);
!     Dispose(fonts[i]);
!     fonts[i] := nil;
    end;
  end;
***************
*** 489,493 ****
  end;
  
! procedure DrawString(s: string; funct: TCharProcedure);
  var
    i: Integer;
--- 491,495 ----
  end;
  
! procedure DrawString(const s: string; funct: TCharProcedure);
  var
    i: Integer;
***************
*** 496,506 ****
--- 498,512 ----
    if s = '' then
      Exit;
+ 
    if curfont < 0 then
      Exit;
+ 
    glPushMatrix;
+ 
    for i := 1 to Length(s) do
    begin
      if s[i] <> ' ' then
        funct(s[i]);
+ 
      if (fonts[curfont]^.symbols[Byte(s[i])] = nil) or (s[i] = ' ') then
        glTranslatef(SpaceSize, 0, 0)
***************
*** 513,516 ****
--- 519,523 ----
            if fonts[curfont]^.symbols[Byte(s[i+1])] = nil then
              Continue;
+ 
            sda := fonts[curfont]^.symbols[Byte(s[i])]^.rightx;
            sdb := -fonts[curfont]^.symbols[Byte(s[i+1])]^.leftx;
***************
*** 519,526 ****
        end;
    end;
    glPopMatrix;
  end;
  
! procedure glfDrawWiredString(s: string);
  begin
    DrawString(s, glfDrawWiredSymbol);
--- 526,534 ----
        end;
    end;
+ 
    glPopMatrix;
  end;
  
! procedure glfDrawWiredString(const s: string);
  begin
    DrawString(s, glfDrawWiredSymbol);
***************
*** 528,532 ****
  
  //* Draw wired string by font_descriptor */
! procedure glfDrawWiredStringF(font_descriptor: Integer; s: string);
  var
    temp: Integer;
--- 536,540 ----
  
  //* Draw wired string by font_descriptor */
! procedure glfDrawWiredStringF(font_descriptor: Integer; const s: string);
  var
    temp: Integer;
***************
*** 563,568 ****
        y := vp^[b^[bo]*2+1];
        anchor_proc(x, y, ap);
        if texturing = GLF_YES then
!         glTexCoord2f((x+1)/2, (y+1)/2);
        glVertex2f(x, y);
        Inc(bo);
--- 571,578 ----
        y := vp^[b^[bo]*2+1];
        anchor_proc(x, y, ap);
+ 
        if texturing = GLF_YES then
!         glTexCoord2f((x + 1) / 2, (y + 1) / 2);
! 
        glVertex2f(x, y);
        Inc(bo);
***************
*** 592,596 ****
  end;
  
! procedure glfDrawSolidString(s: string);
  begin
    DrawString(s, glfDrawSolidSymbol);
--- 602,606 ----
  end;
  
! procedure glfDrawSolidString(const s: string);
  begin
    DrawString(s, glfDrawSolidSymbol);
***************
*** 598,602 ****
  
  //* Draw solid string by font_descriptor */
! procedure glfDrawSolidStringF(font_descriptor: Integer; s: string);
  var
    temp: Integer;
--- 608,612 ----
  
  //* Draw solid string by font_descriptor */
! procedure glfDrawSolidStringF(font_descriptor: Integer; const s: string);
  var
    temp: Integer;
***************
*** 694,698 ****
  end;
  
! procedure glfDraw3DWiredString(s: string);
  begin
    DrawString(s, glfDraw3DWiredSymbol);
--- 704,708 ----
  end;
  
! procedure glfDraw3DWiredString(const s: string);
  begin
    DrawString(s, glfDraw3DWiredSymbol);
***************
*** 700,704 ****
  
  //* Draw 3D wired string by font_descriptor */
! procedure glfDraw3DWiredStringF(font_descriptor: Integer; s: string);
  var
    temp: Integer;
--- 710,714 ----
  
  //* Draw 3D wired string by font_descriptor */
! procedure glfDraw3DWiredStringF(font_descriptor: Integer; const s: string);
  var
    temp: Integer;
***************
*** 828,832 ****
  end;
  
! procedure glfDraw3DSolidString(s: string);
  begin
    DrawString(s, glfDraw3DSolidSymbol);
--- 838,842 ----
  end;
  
! procedure glfDraw3DSolidString(const s: string);
  begin
    DrawString(s, glfDraw3DSolidSymbol);
***************
*** 834,838 ****
  
  //* Draw 3D solid string by font_descriptor */
! procedure glfDraw3DSolidStringF(font_descriptor: Integer; s: string);
  var
    temp: Integer;
--- 844,848 ----
  
  //* Draw 3D solid string by font_descriptor */
! procedure glfDraw3DSolidStringF(font_descriptor: Integer; const s: string);
  var
    temp: Integer;
***************
*** 845,849 ****
  
  //* Get the size a string will have on screen */
! procedure glfGetStringBoundsF(fd: Integer; s: string; var minx, miny, maxx, maxy: Single);
  var
    font: Pglf_font;
--- 855,859 ----
  
  //* Get the size a string will have on screen */
! procedure glfGetStringBoundsF(fd: Integer; const s: string; var minx, miny, maxx, maxy: Single);
  var
    font: Pglf_font;
***************
*** 898,902 ****
  end;
  
! procedure glfGetStringBounds(s: string; var minx, miny, maxx, maxy: Single);
  begin
    glfGetStringBoundsF(curfont, s, minx, miny, maxx, maxy);
--- 908,912 ----
  end;
  
! procedure glfGetStringBounds(const s: string; var minx, miny, maxx, maxy: Single);
  begin
    glfGetStringBoundsF(curfont, s, minx, miny, maxx, maxy);
***************
*** 986,998 ****
  
  procedure glfSetConsoleParam(width, height: Integer);
! var
!   e: Integer;
  begin
!   if Length(conData) > 0 then SetLength(conData, 0);
  
    conWidth := width;
    conHeight := height;
    SetLength(conData, width * height);
!   e := Length(conData);
    glfConsoleClear;
  end;
--- 996,1009 ----
  
  procedure glfSetConsoleParam(width, height: Integer);
! {var
!   e: Integer;}
  begin
!   if Length(conData) > 0 then
!     SetLength(conData, 0);
  
    conWidth := width;
    conHeight := height;
    SetLength(conData, width * height);
! //  e := Length(conData);
    glfConsoleClear;
  end;
***************
*** 1015,1021 ****
  end;
  
! procedure glfPrint(s: string; lenght: Integer);
  var
!   i, e: Integer;
  begin
    for i := 1 to lenght do
--- 1026,1032 ----
  end;
  
! procedure glfPrint(const s: string; lenght: Integer);
  var
!   i{, e}: Integer;
  begin
    for i := 1 to lenght do
***************
*** 1023,1032 ****
      if s[i] > #31 then
      begin
!       e := Length(conData);
        conData[cony * conWidth + conx] := s[i];
        Inc(conx);
!     end else
      if s[i] = #13 then
        conx := conWidth;
      if conx >= conWidth then
      begin
--- 1034,1045 ----
      if s[i] > #31 then
      begin
! //      e := Length(conData);
        conData[cony * conWidth + conx] := s[i];
        Inc(conx);
!     end
!     else
      if s[i] = #13 then
        conx := conWidth;
+ 
      if conx >= conWidth then
      begin
***************
*** 1045,1049 ****
  end;
  
! procedure glfPrintString(s: string);
  begin
    glfPrint(s, Length(s));
--- 1058,1062 ----
  end;
  
! procedure glfPrintString(const s: string);
  begin
    glfPrint(s, Length(s));