unit hiGl_3DSMax;

interface

{$I share.inc}

uses Windows,Kol,Share,Debug,OpenGL,Classes,Graphics,Geometry,KOLFile3DS,KOLTypes3DS, DGlut;

type
 THIGl_3DSMax = class(TDebug)
  private
   FSceneMatrix: TMatrix;
   FMainList: Cardinal;
   FLists: PList;
   FMaterials: TStringList;
   // light sources
   FLights: TStringList;
   
  public
   _event_onDraw:THI_Event;
   _event_onInit:THI_Event;
   _data_FileName:THI_Event;
   _data_GLHandle:THI_Event;

   procedure _work_DoLoad(var _Data:TData; Index:word);
   procedure _work_doDraw(var _Data:TData; Index:word);
   procedure _work_doInit(var _Data:TData; Index:word);    
 end;

implementation

procedure THIGl_3DSMax._work_DoLoad;
Begin
 
   _hi_CreateEvent(_Data,@_event_onInit);
end;

procedure THIGl_3DSMax._work_doDraw;
begin
 glMatrixMode(GL_MODELVIEW);
 glLoadIdentity;
 glMultMatrixf(@FSceneMatrix);
 if FMainList <> 0 then glCallList(FMainList);
 _hi_CreateEvent(_Data,@_event_onDraw);
end;

procedure THIGl_3DSMax._work_doInit;
begin

 // other variables filled with values from 3DS file:
 // a list of display list which can directly be used during rendering
 FLists := NewList;

 FMaterials := TStringList.Create;
 FMaterials.Sorted := True;
 FMaterials.Duplicates := dupError;

 FLights := TStringList.Create;
 FLights.Sorted := True;
 FLights.Duplicates := dupError;

 // prepare remaining stuff:
 // prepare color menu
 GetColorValues(EnumColor);
 for I := 1 to BkgndItem.Count - 1 do
   if (I mod 16) = 0 then BkgndItem[I].Break := mbBarBreak;

 ClearLists;  
end;

end.