rad8form.pas

/* * tesswind.c * This program demonstrates the winding rule polygon * tessellation proper

//******************************************************************************
// "RADIOSITY LIGHTMAPS" by Georgy Moshkin
// -----------------------------------------------
// email  : [e-mail]
// WWW    : http://www.tmtlib.narod.ru/
//
// Version: 0.3
// Example: 8
//
// License:
// --------
// This unit is freely distributable without licensing fees and is
// provided without guarantee or warrantee expressed or implied. This unit
// is Public Domain. Feel free to use or enhance this code. You can use the
// program for any purpose you see fit.
//
//******************************************************************************
unit rad8form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,
  OpenGL, //
  rad8;   // OpenGL radiosity-v8 unit


type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Timer1: TTimer;
    ScrollBar5: TScrollBar;
    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TimerDraw(Sender: TObject);
  private
    { Private declarations }
    rc : HGLRC;    // RC
    dc  : HDC;     // DC

    procedure InitGL;
    procedure glDraw;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////

procedure TForm1.glDraw(); // 汶噔磬