|
|
@@ -24,7 +24,11 @@ uses
|
|
|
zgl_font,
|
|
|
zgl_text,
|
|
|
zgl_math_2d,
|
|
|
- zgl_utils
|
|
|
+ zgl_utils,
|
|
|
+ zgl_types
|
|
|
+ {$IfNDef OLD_METHODS}
|
|
|
+ , gegl_color
|
|
|
+ {$EndIf}
|
|
|
{$ELSE}
|
|
|
zglHeader
|
|
|
{$ENDIF}
|
|
|
@@ -91,7 +95,7 @@ begin
|
|
|
if debug Then
|
|
|
for i := 0 to particles.Count.Emitters - 1 do
|
|
|
with particles.List[ i ].BBox do
|
|
|
- pr2d_Rect( MinX, MinY, MaxX - MinX, MaxY - MinY, $FF0000, 255 );
|
|
|
+ pr2d_Rect( MinX, MinY, MaxX - MinX, MaxY - MinY, {$IfNDef OLD_METHODS}cl_Red{$Else}$FF0000, 255{$EndIf} );
|
|
|
|
|
|
text_Draw( fntMain, 0, 0, 'FPS: ' + u_IntToStr( zgl_Get( RENDER_FPS ) ) );
|
|
|
text_Draw( fntMain, 0, 20, 'Particles: ' + u_IntToStr( particles.Count.Particles ) );
|
Seenkao