Blame |
Last modification |
View Log
| RSS feed
unit app_glscene_glow;
interface
uses OpenGL, GLaux, glExt, sux_constant, sux_object, app_constant,
resource_texture, resource_shader;
type
TSettings=record
end;
SAGLSGlow=class(SUXObject)
settings:TSettings;
procedure onTimer;
procedure initialize;
constructor Create(parent:TObject);
destructor Destroy; override;
end;
implementation
uses sux_main, gl_main, main;
// --- SAGLSGlow
procedure SAGLSGlow.onTimer;
begin
end;
procedure SAGLSGlow.initialize;
begin
end;
constructor SAGLSGlow.Create(parent:TObject);
begin
inherited Create(parent,'GL Glow');
end;
destructor SAGLSGlow.Destroy;
begin
inherited;
end;
end.