LZScene

1
unit uPSI_GLStrings;
2
{
3
This file has been generated by UnitParser v0.7, written by M. Knight
4
and updated by NP. v/d Spek and George Birbilis. 
5
Source Code from Carlo Kok has been used to implement various sections of
6
UnitParser. Components of ROPS are used in the construction of UnitParser,
7
code implementing the class wrapper is taken from Carlo Kok's conv utility
8

9
}
10
interface
11
 
12
uses
13
   SysUtils
14
  ,Classes
15
  ,uPSComponent
16
  ,uPSRuntime
17
  ,uPSCompiler
18
  ;
19
 
20
type 
21
(*----------------------------------------------------------------------------*)
22
  TPSImport_GLStrings = class(TPSPlugin)
23
  protected
24
    procedure CompileImport1(CompExec: TPSScript); override;
25
    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
26
  end;
27
 
28
 
29
{ compile-time registration functions }
30
procedure SIRegister_GLStrings(CL: TPSPascalCompiler);
31

32
{ run-time registration functions }
33

34
procedure Register;
35

36
implementation
37

38

39
uses
40
   GLStrings
41
  ;
42
 
43
 
44
procedure Register;
45
begin
46
  RegisterComponents('GLS ROPS', [TPSImport_GLStrings]);
47
end;
48

49
(* === compile-time registration functions === *)
50
(*----------------------------------------------------------------------------*)
51
procedure SIRegister_GLStrings(CL: TPSPascalCompiler);
52
begin
53
 CL.AddConstantN('glsDot','String').SetString( '.');
54
 CL.AddConstantN('glsError','String').SetString( 'Error!');
55
 CL.AddConstantN('glsErrorEx','String').SetString( 'Error: ');
56
 CL.AddConstantN('glsNoRenderingContext','String').SetString( 'Could not create a rendering context');
57
 CL.AddConstantN('glsWrongVersion','String').SetString( 'Need at least OpenGL version 1.1');
58
 CL.AddConstantN('glsTooManyLights','String').SetString( 'Too many lights in the scene');
59
 CL.AddConstantN('glsDisplayList','String').SetString( 'Failed to create a new display list for object ''%s''');
60
 CL.AddConstantN('glsWrongBitmapCanvas','String').SetString( 'Couldn''t create a rendering context for the given bitmap');
61
 CL.AddConstantN('glsWrongPrinter','String').SetString( 'Couldn''t render to printer');
62
 CL.AddConstantN('glsAlreadyRendering','String').SetString( 'Already rendering');
63
 CL.AddConstantN('glsSceneViewerNotDefined','String').SetString( glsErrorEx + 'SceneViewer not defined!');
64
 CL.AddConstantN('glsCadencerNotDefined','String').SetString( glsErrorEx + 'Cadencer not defined!');
65
 CL.AddConstantN('glsCadencerNotDefinedEx','String').SetString( glsErrorEx + 'Cadencer not defined for  the ''%s'' component');
66
 CL.AddConstantN('glsShaderNeedsAtLeastOneLightSource','String').SetString( glsErrorEx + 'This shader needs at least one LightSource!');
67
 CL.AddConstantN('glsShaderNeedsAtLeastOneLightSourceEx','String').SetString( glsErrorEx + 'Shader ''%s'' needs at least one LightSource!');
68
 CL.AddConstantN('glsSceneRoot','String').SetString( 'Scene root');
69
 CL.AddConstantN('glsObjectRoot','String').SetString( 'Scene objects');
70
 CL.AddConstantN('glsCameraRoot','String').SetString( 'Cameras');
71
 CL.AddConstantN('glsCamera','String').SetString( 'Camera');
72
 CL.AddConstantN('glsImageInvalid','String').SetString( 'Could not load texture, image is invalid');
73
 CL.AddConstantN('glsNoNewTexture','String').SetString( 'Could not get new texture name');
74
 CL.AddConstantN('glsMatLibNotDefined','String').SetString( glsErrorEx + 'Material Library not defined!');
75
 CL.AddConstantN('glsMaterialNotFoundInMatlib','String').SetString( glsErrorEx + 'Material not found in current Material Library!');
76
 CL.AddConstantN('glsMaterialNotFoundInMatlibEx','String').SetString( glsErrorEx + 'Material "%s" not found in current Material Library!');
77
 CL.AddConstantN('glsSphereTopBottom','String').SetString( 'The top angle must be higher than the bottom angle');
78
 CL.AddConstantN('glsSphereStartStop','String').SetString( 'The start angle must be smaller than then stop angle');
79
 CL.AddConstantN('glsMaterialNotFound','String').SetString( 'Loading failed: could not find material %s');
80
 CL.AddConstantN('glsInterleaveNotSupported','String').SetString( 'Interleaved Array format not supported yet. Sorry.');
81
 CL.AddConstantN('glsOutOfMemory','String').SetString( 'Fatal: Out of memory');
82
 CL.AddConstantN('glsFailedOpenFile','String').SetString( 'Could not open file: %s');
83
 CL.AddConstantN('glsNoDescriptionAvailable','String').SetString( 'No description available');
84
 CL.AddConstantN('glsUnBalancedBeginEndUpdate','String').SetString( 'Unbalanced Begin/EndUpdate');
85
 CL.AddConstantN('glsUnknownExtension','String').SetString( 'Unknown file extension (%s), maybe you forgot to add the support ' + 'unit to your uses? (%s?)');
86
 CL.AddConstantN('glsUncompatibleTypes','String').SetString( glsErrorEx + 'uncompatible types!');
87
 CL.AddConstantN('glsUnknownType','String').SetString( glsErrorEx + 'unknown type!');
88
 CL.AddConstantN('glsUnsupportedType','String').SetString( glsErrorEx + 'unsupported type!');
89
 CL.AddConstantN('glsOCBasicGeometry','String').SetString( 'Basic geometry');
90
 CL.AddConstantN('glsOCAdvancedGeometry','String').SetString( 'Advanced geometry');
91
 CL.AddConstantN('glsOCMeshObjects','String').SetString( 'Mesh objects');
92
 CL.AddConstantN('glsOCParticleSystems','String').SetString( 'Particle systems');
93
 CL.AddConstantN('glsOCEnvironmentObjects','String').SetString( 'Environment objects');
94
 CL.AddConstantN('glsOCSpecialObjects','String').SetString( 'Special objects');
95
 CL.AddConstantN('glsOCGraphPlottingObjects','String').SetString( 'Graph-plotting objects');
96
 CL.AddConstantN('glsOCDoodad','String').SetString( 'Doodad objects');
97
 CL.AddConstantN('glsOCHUDObjects','String').SetString( 'HUD objects');
98
 CL.AddConstantN('glsOCGuiObjects','String').SetString( 'GUI objects');
99
 CL.AddConstantN('glsOCProxyObjects','String').SetString( 'Proxy objects');
100
end;
101

102
(* === run-time registration functions === *)
103
 
104
 
105
{ TPSImport_GLStrings }
106
(*----------------------------------------------------------------------------*)
107
procedure TPSImport_GLStrings.CompileImport1(CompExec: TPSScript);
108
begin
109
  SIRegister_GLStrings(CompExec.Comp);
110
end;
111
(*----------------------------------------------------------------------------*)
112
procedure TPSImport_GLStrings.ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter);
113
begin
114
//  RIRegister_GLStrings(ri);
115
end;
116
(*----------------------------------------------------------------------------*)
117
 
118
 
119
end.
120