Subversion Repositories AndroidProjects

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
35 chris 1 
unit app_glscene_glow;
2 
 
3 
interface
4 
 
5 
uses OpenGL, GLaux, glExt, sux_constant, sux_object, app_constant,
6 
     resource_texture, resource_shader;
7 
 
8 
type
9 
  TSettings=record
10 
  end;
11 
  SAGLSGlow=class(SUXObject)
12 
    settings:TSettings;
13 
 
14 
    procedure onTimer;
15 
 
16 
    procedure initialize;
17 
    constructor Create(parent:TObject);
18 
    destructor Destroy; override;
19 
  end;
20 
 
21 
implementation
22 
 
23 
uses sux_main, gl_main, main;
24 
 
25 
 
26 
// --- SAGLSGlow
27 
 
28 
 
29 
procedure SAGLSGlow.onTimer;
30 
begin
31 
end;
32 
 
33 
 
34 
 
35 
 
36 
procedure SAGLSGlow.initialize;
37 
begin
38 
end;
39 
 
40 
 
41 
constructor SAGLSGlow.Create(parent:TObject);
42 
begin
43 
  inherited Create(parent,'GL Glow');
44 
end;
45 
 
46 
 
47 
destructor SAGLSGlow.Destroy;
48 
begin
49 
  inherited;
50 
end;
51 
 
52 
 
53 
end.