Update demo13.pas

Seenkao · Jun 11, 2023 · 1eeff2b · 1eeff2b
1 parent f64f67e
commit 1eeff2b
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Zengl_SRC/demos/FreePascal/13 - Particles/demo13.pas b/Zengl_SRC/demos/FreePascal/13 - Particles/demo13.pas
@@ -24,7 +24,11 @@
   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 @@ procedure Draw;
   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 ) );