update to main branch

Author: GuvaCode

builds_raylib_dev.sh

@@ -112,13 +112,11 @@ echo -e "\e[0m"
 #echo "#define RAYGUI_IMPLEMENTATION" > raygui.c && echo "#include <extras/raygui.h>" >> raygui.c
 #echo "#define PHYSAC_IMPLEMENTATION" > physac.c && echo "#include <extras/physac.h>" >> physac.c
 
-
 rm -f ../../libs/x86_64-linux/*
 rm -f ../../libs/x86_32-linux/*
 rm -f ../../libs/x86_64-win64/*
 rm -f ../../libs/i386-win32/*
 
-
 make clean  
 make PLATFORM=PLATFORM_DESKTOP RAYLIB_LIBTYPE=SHARED RAYLIB_MODULE_RAYGUI=TRUE RAYLIB_MODULE_GIZMO=TRUE  #RAYLIB_MODULE_RAYMEDIA=TRUE
 cp libraylib.so.5.5.0 ../../libs/x86_64-linux/libraylib.so.550
@@ -224,9 +222,8 @@ make PLATFORM=PLATFORM_DESKTOP RAYLIB_LIBTYPE=SHARED RAYLIB_MODULE_RAYGUI=TRUE R
 #cp libraylibdll.a ../../libs/i386-win32
 cp raylib.dll ../../libs/i386-win32/libraylib.dll
 
-
- make clean
- i686-w64-mingw32-windres raylib.rc -o raylib.rc.data
+make clean
+i686-w64-mingw32-windres raylib.rc -o raylib.rc.data
 i686-w64-mingw32-windres raylib.dll.rc -o raylib.dll.rc.data
 
 #echo "#define RAYGUI_IMPLEMENTATION" > raygui.c && echo "#include <extras/raygui.h>" >> raygui.c

headers/raymath.h

@@ -1468,19 +1468,35 @@ RMAPI int Vector4Equals(Vector4 p, Vector4 q)
 RMAPI float MatrixDeterminant(Matrix mat)
 {
     float result = 0.0f;
-
+/*
     // Cache the matrix values (speed optimization)
     float a00 = mat.m0, a01 = mat.m1, a02 = mat.m2, a03 = mat.m3;
     float a10 = mat.m4, a11 = mat.m5, a12 = mat.m6, a13 = mat.m7;
     float a20 = mat.m8, a21 = mat.m9, a22 = mat.m10, a23 = mat.m11;
     float a30 = mat.m12, a31 = mat.m13, a32 = mat.m14, a33 = mat.m15;
 
+    // NOTE: It takes 72 multiplication to calculate 4x4 matrix determinant
     result = a30*a21*a12*a03 - a20*a31*a12*a03 - a30*a11*a22*a03 + a10*a31*a22*a03 +
              a20*a11*a32*a03 - a10*a21*a32*a03 - a30*a21*a02*a13 + a20*a31*a02*a13 +
              a30*a01*a22*a13 - a00*a31*a22*a13 - a20*a01*a32*a13 + a00*a21*a32*a13 +
              a30*a11*a02*a23 - a10*a31*a02*a23 - a30*a01*a12*a23 + a00*a31*a12*a23 +
              a10*a01*a32*a23 - a00*a11*a32*a23 - a20*a11*a02*a33 + a10*a21*a02*a33 +
              a20*a01*a12*a33 - a00*a21*a12*a33 - a10*a01*a22*a33 + a00*a11*a22*a33;
+*/
+    // Using Laplace expansion (https://en.wikipedia.org/wiki/Laplace_expansion),
+    // previous operation can be simplified to 40 multiplications, decreasing matrix 
+    // size from 4x4 to 2x2 using minors
+
+    // Cache the matrix values (speed optimization)
+    float m0 = mat.m0, m1 = mat.m1, m2 = mat.m2, m3 = mat.m3;
+    float m4 = mat.m4, m5 = mat.m5, m6 = mat.m6, m7 = mat.m7;
+    float m8 = mat.m8, m9 = mat.m9, m10 = mat.m10, m11 = mat.m11;
+    float m12 = mat.m12, m13 = mat.m13, m14 = mat.m14, m15 = mat.m15;
+
+    result = (m0*((m5*(m10*m15 - m11*m14) - m9*(m6*m15 - m7*m14) + m13*(m6*m11 - m7*m10))) -
+        m4*((m1*(m10*m15 - m11*m14) - m9*(m2*m15 - m3*m14) + m13*(m2*m11 - m3*m10))) +
+        m8*((m1*(m6*m15 - m7*m14) - m5*(m2*m15 - m3*m14) + m13*(m2*m7 - m3*m6))) -
+        m12*((m1*(m6*m11 - m7*m10) - m5*(m2*m11 - m3*m10) + m9*(m2*m7 - m3*m6))));
 
     return result;
 }

headers/rlgl.h

@@ -1459,6 +1459,9 @@ void rlBegin(int mode)
     // NOTE: In all three cases, vertex are accumulated over default internal vertex buffer
     if (RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].mode != mode)
     {
+        // Get current binded texture to preserve it between draw modes change (QUADS <--> TRIANGLES)
+        int currentTexture = RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].textureId;
+
         if (RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].vertexCount > 0)
         {
             // Make sure current RLGL.currentBatch->draws[i].vertexCount is aligned a multiple of 4,
@@ -1481,13 +1484,16 @@ void rlBegin(int mode)
 
         RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].mode = mode;
         RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].vertexCount = 0;
-        RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].textureId = RLGL.State.defaultTextureId;
+        RLGL.currentBatch->draws[RLGL.currentBatch->drawCounter - 1].textureId = currentTexture; // Preserve active texture
     }
 }
 
 // Finish vertex providing
 void rlEnd(void)
 {
+    // Reset texture to default
+    rlSetTexture(RLGL.State.defaultTextureId);
+    
     // NOTE: Depth increment is dependant on rlOrtho(): z-near and z-far values,
     // as well as depth buffer bit-depth (16bit or 24bit or 32bit)
     // Correct increment formula would be: depthInc = (zfar - znear)/pow(2, bits)
@@ -2526,11 +2532,11 @@ void rlLoadExtensions(void *loader)
 
         // Check depth texture support
         if (strcmp(extList[i], (const char *)"GL_OES_depth_texture") == 0) RLGL.ExtSupported.texDepth = true;
-        if (strcmp(extList[i], (const char *)"GL_WEBGL_depth_texture") == 0) RLGL.ExtSupported.texDepthWebGL = true;    // WebGL requires unsized internal format
+        if (strcmp(extList[i], (const char *)"GL_WEBGL_depth_texture") == 0) RLGL.ExtSupported.texDepthWebGL = true; // WebGL requires unsized internal format
         if (RLGL.ExtSupported.texDepthWebGL) RLGL.ExtSupported.texDepth = true;
 
-        if (strcmp(extList[i], (const char *)"GL_OES_depth24") == 0) RLGL.ExtSupported.maxDepthBits = 24;   // Not available on WebGL
-        if (strcmp(extList[i], (const char *)"GL_OES_depth32") == 0) RLGL.ExtSupported.maxDepthBits = 32;   // Not available on WebGL
+        if (strcmp(extList[i], (const char *)"GL_OES_depth24") == 0) RLGL.ExtSupported.maxDepthBits = 24; // Not available on WebGL
+        if (strcmp(extList[i], (const char *)"GL_OES_depth32") == 0) RLGL.ExtSupported.maxDepthBits = 32; // Not available on WebGL
 
         // Check texture compression support: DXT
         if ((strcmp(extList[i], (const char *)"GL_EXT_texture_compression_s3tc") == 0) ||
@@ -3055,7 +3061,7 @@ void rlDrawRenderBatch(rlRenderBatch *batch)
 
             for (int i = 0, vertexOffset = 0; i < batch->drawCounter; i++)
             {
-                // Bind current draw call texture, activated as GL_TEXTURE0 and Bound to sampler2D texture0 by default
+                // Bind current draw call texture, activated as GL_TEXTURE0 and bound to sampler2D texture0 by default
                 glBindTexture(GL_TEXTURE_2D, batch->draws[i].textureId);
 
                 if ((batch->draws[i].mode == RL_LINES) || (batch->draws[i].mode == RL_TRIANGLES)) glDrawArrays(batch->draws[i].mode, vertexOffset, batch->draws[i].vertexCount);

libs/i386-win32/libraylib.dll

@@ -1,12 +1,16 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"
 
+#: ray4laz_misc.rscompilepkg
+msgid "Compilation package ray4laz"
+msgstr ""
+
 #: ray4laz_misc.rshelpcheat
 msgid "Cheatsheet ..."
 msgstr ""
 
 #: ray4laz_misc.rsinsertclr
-msgid "ColorCreate from dialog"
+msgid "Color create from dialog"
 msgstr ""
 
 #: ray4laz_misc.rsmnumisc
@@ -17,3 +21,7 @@ msgstr ""
 msgid "raylib Wiki"
 msgstr ""
 
+#: ray4laz_misc.rsrltools
+msgid "ray4laz tools .."
+msgstr ""
+

libs/i386-win32/libraylibmedia.dll

@@ -57,12 +57,12 @@
         <UnitName Value="raymedia"/>
       </Item6>
       <Item7>
-        <Filename Value="../source/raylib.inc"/>
-        <Type Value="Include"/>
-      </Item7>
-      <Item8>
         <Filename Value="../source/extras/raygizmo.pas"/>
         <UnitName Value="raygizmo"/>
+      </Item7>
+      <Item8>
+        <Filename Value="../source/raylib.inc"/>
+        <Type Value="Include"/>
       </Item8>
     </Files>
     <CompatibilityMode Value="True"/>

libs/x86_32-linux/libraylib.a

@@ -53,16 +53,19 @@
       <OutDir Value="lang"/>
       <EnableI18NForLFM Value="True"/>
     </i18n>
-    <RequiredPkgs Count="3">
+    <RequiredPkgs Count="4">
       <Item1>
-        <PackageName Value="ray4laz"/>
+        <PackageName Value="CodeTools"/>
       </Item1>
       <Item2>
-        <PackageName Value="IDEIntf"/>
+        <PackageName Value="ray4laz"/>
       </Item2>
       <Item3>
-        <PackageName Value="FCL"/>
+        <PackageName Value="IDEIntf"/>
       </Item3>
+      <Item4>
+        <PackageName Value="FCL"/>
+      </Item4>
     </RequiredPkgs>
     <UsageOptions>
       <CustomOptions Value="-dUseCThreads"/>

libs/x86_32-linux/libraylib.so.550

@@ -5,8 +5,8 @@
 interface
 
 uses
-  Classes, SysUtils, Graphics, LCLIntf, LazFileUtils, PackageIntf, LazIDEIntf,
-  ProjectIntf, MenuIntf, SrcEditorIntf, Dialogs, Forms;
+  Classes, SysUtils, Graphics, LCLIntf, LazFileUtils, PackageIntf, LazIDEIntf, contnrs, System.UITypes,
+  ProjectIntf, MenuIntf, SrcEditorIntf, Dialogs, Forms, IDEMsgIntf, IDEExternToolIntf, CodeToolManager;
 
 type
   { TEventClass }
@@ -20,24 +20,25 @@ procedure Register;
 
  var EventCode : TEventClass;
      SectionRay: TIDEMenuSection;
+     SectionToolMenu: TIDEMenuSection;
      SectionRayMenu: TIDEMenuSection;
 
  resourcestring
    rsMnuMisc        = 'raylib Misc ...';
    rsHelpCheat      = 'Cheatsheet ...';
-   rsInsertClr      = 'ColorCreate from dialog';
+   rsInsertClr      = 'Color create from dialog';
    rsRayWiki        = 'raylib Wiki';
+   rsRlTools        = 'ray4laz tools ..';
+   rsCompilePkg     = 'Compilation package ray4laz';
 
 implementation
 
 function RayUsed: boolean;
 var
-lPkgList: TFPList;
-i: Integer;
+lPkgList: TFPList; i: Integer;
 begin
  result:=false;
- if  (LazarusIDE.ActiveProject = nil) or (PackageEditingInterface.GetPackageCount <= 0 ) then exit;
-  PackageEditingInterface.GetRequiredPackages(LazarusIDE.ActiveProject, lPkgList, [pirNotRecursive]);
+ PackageEditingInterface.GetRequiredPackages(LazarusIDE.ActiveProject, lPkgList, [pirNotRecursive]);
  if lPkgList = nil then exit;
  try
    for i := 0 to lPkgList.Count - 1 do
@@ -104,12 +105,47 @@ procedure ShowColorDialog(Sender: TObject);
   end;
 end;
 
+procedure CompileRay4laz(Sender: TObject);
+var Pkg: TIDEPackage;  Dir: String;
+    Prj: TLazProject;
+begin
+  Pkg:=PackageEditingInterface.FindPackageWithName('ray4laz');
+  if Pkg<>nil then
+  begin
+    try
+     if PackageEditingInterface.DoCompilePackage(Pkg,[pcfCleanCompile], False) <> mrOk then
+     exit;
+    finally
+        Dir:=''; // the empty directory is for new files and has the same settings as the project directory
+        IDEMessagesWindow.AddCustomMessage(mluNone,
+        CodeToolBoss.GetUnitPathForDirectory(Dir,false) ,'file.pas',0,0,
+        Pkg.Filename);
+
+     // IDEMessagesWindow.AddCustomMessage();
+     // IDEMessagesWindow.AddMsg('unit1.pas(30,4) Error: Identifier not found "a"',Dir,0);
+      //IDEMessagesWindow.EndBlock;
+    end;
+  end;
+end;  // TIDEProjPackBase
 
 procedure Register;
 begin
  SectionRay:=RegisterIDEMenuSection(SrcEditMenuSectionFirstStatic,'RayTool');
  SectionRayMenu:= RegisterIDESubMenu(SectionRay,'RayTool',rsMnuMisc,nil ,nil,'cc_class');
 
+ SectionToolMenu:= RegisterIDESubMenu(SectionRayMenu,'rltool',rsRlTools,nil ,nil,'pkg_properties');
+ RegisterIDEMenuCommand(SectionToolMenu, 'Compile', rsCompilePkg, nil, @CompileRay4laz,nil, 'pkg_compile');
+ RegisterIDEMenuCommand(SectionToolMenu, 'OpenSetting', 'Open setting', nil, @RayFunction,nil, 'menu_build_file');
+ RegisterIDEMenuCommand(SectionToolMenu, 'CopyDll', 'Copy to project', nil, @RayFunction,nil, 'pkg_lrs');
+
+ RegisterIDEMenuCommand(SectionToolMenu, 'SubSpl0','-',nil,nil);
+ RegisterIDEMenuCommand(SectionToolMenu, 'ShowCheatsheet', rsHelpCheat , nil, @RayFunction, nil, 'ce_interface');
+ RegisterIDEMenuCommand(SectionToolMenu, 'ShowWiki', rsRayWiki , nil, @RayFunction, nil, 'menu_information');
+
+
+ RegisterIDEMenuCommand(SectionRayMenu, 'Spl0','-',nil,nil);
+ RegisterIDEMenuCommand(SectionRayMenu, 'InsertColor', rsInsertClr , nil, @ShowColorDialog, nil, 'tcolordialog');
+ RegisterIDEMenuCommand(SectionRayMenu, 'Spl1','-',nil,nil);
  RegisterIDEMenuCommand(SectionRayMenu, 'Vector2Create', 'Vector2Create', nil, @RayFunction,nil, 'cc_function');
  RegisterIDEMenuCommand(SectionRayMenu, 'Vector3Create', 'Vector3Create', nil, @RayFunction,nil, 'cc_function');
  RegisterIDEMenuCommand(SectionRayMenu, 'Vector4Create', 'Vector4Create', nil, @RayFunction,nil, 'cc_function');
@@ -118,7 +154,7 @@ procedure Register;
  RegisterIDEMenuCommand(SectionRayMenu, 'RectangleCreate', 'RectangleCreate', nil, @RayFunction,nil, 'cc_function');
  RegisterIDEMenuCommand(SectionRayMenu, 'BoundingBoxCreate', 'BoundingBoxCreate', nil, @RayFunction,nil, 'cc_function');
  RegisterIDEMenuCommand(SectionRayMenu, 'Camera3DCreate', 'Camera3DCreate', nil, @RayFunction,nil, 'cc_function');
-
+ RegisterIDEMenuCommand(SectionRayMenu, 'Spl2','-',nil,nil);
  RegisterIDEMenuCommand(SectionRayMenu, 'Vector2Set', 'Vector2Set', nil, @RayFunction,nil, 'cc_procedure');
  RegisterIDEMenuCommand(SectionRayMenu, 'Vector3Set', 'Vector3Set', nil, @RayFunction,nil, 'cc_procedure');
  RegisterIDEMenuCommand(SectionRayMenu, 'Vector4Set', 'Vector4Set', nil, @RayFunction,nil, 'cc_procedure');
@@ -127,13 +163,13 @@ procedure Register;
  RegisterIDEMenuCommand(SectionRayMenu, 'RectangleSet', 'RectangleSet', nil, @RayFunction,nil, 'cc_procedure');
  RegisterIDEMenuCommand(SectionRayMenu, 'BoundingBoxSet', 'BoundingBoxSet', nil, @RayFunction,nil, 'cc_procedure');
  RegisterIDEMenuCommand(SectionRayMenu, 'Camera3DSet', 'Camera3DSet', nil, @RayFunction,nil, 'cc_procedure');
- RegisterIDEMenuCommand(SectionRayMenu, 'Spl0','-',nil,nil);
 
- RegisterIDEMenuCommand(SectionRayMenu, 'InsertColor', rsInsertClr , nil, @ShowColorDialog, nil, 'tcolordialog');
- RegisterIDEMenuCommand(SectionRayMenu, 'Spl1','-',nil,nil);
 
- RegisterIDEMenuCommand(SectionRayMenu, 'ShowCheatsheet', rsHelpCheat , nil, @RayFunction, nil, 'ce_interface');
- RegisterIDEMenuCommand(SectionRayMenu, 'ShowWiki', rsRayWiki , nil, @RayFunction, nil, 'menu_information');
+// RegisterIDEMenuCommand(SectionRayMenu, 'InsertColor', rsInsertClr , nil, @ShowColorDialog, nil, 'tcolordialog');
+// RegisterIDEMenuCommand(SectionRayMenu, 'Spl2','-',nil,nil);
+
+// RegisterIDEMenuCommand(SectionRayMenu, 'ShowCheatsheet', rsHelpCheat , nil, @RayFunction, nil, 'ce_interface');
+// RegisterIDEMenuCommand(SectionRayMenu, 'ShowWiki', rsRayWiki , nil, @RayFunction, nil, 'menu_information');
 
  SectionRay.AddHandlerOnShow(@EventCode.DoSomething,true);
 end;

libs/x86_32-linux/libraylibmedia.a

@@ -3,8 +3,7 @@
   Copyright (c) 2024 Claudio Z. (@cloudofoz)
   https://github.com/cloudofoz/raylib-gizmo
   pascal header translation 2024 gunko vadim
-
-  *)
+*)
 
 {$mode objfpc}{$H+}
 {$packrecords c}

libs/x86_32-linux/libraylibmedia.so.550

@@ -1,4 +1,9 @@
 unit raymedia;
+(*
+  Copyright (c) 2025 Claudio Z. (@cloudofoz)
+  https://github.com/cloudofoz/raylib-media
+  pascal header translation 2024 gunko vadim
+*)
 
 {$mode objfpc}{$H+}
 {$packrecords c}

libs/x86_64-linux/libraylib.a

@@ -1,9 +1,5 @@
 // Configuration file for raylib
 
-// Defines for GNU/Linux
-
-{$DEFINE RAY_MEDIA}
-
 {$IFDEF LINUX}
   {$IFNDEF RAY_DYNAMIC}
     {$DEFINE RAY_STATIC}
@@ -22,6 +18,8 @@
   {$ENDIF}
 {$IFEND}
 
+// Use raylib media
+{.$DEFINE RAY_MEDIA}
 
 //Use selected OpenGL graphics backend, should be supported by platform
 //Those preprocessor defines are only used on rlgl module, if OpenGL version is

libs/x86_64-linux/libraylib.so.550

@@ -12,20 +12,17 @@ interface
 
 {$IFNDEF RAY_STATIC}
 const
-
   cDllName = {$IFNDEF RAY_MEDIA}
              {$IFDEF WINDOWS} 'libraylib.dll'; {$IFEND}
              {$IFDEF LINUX} 'libraylib.so.550'; {$IFEND}
              {$ELSE}
              {$IFDEF WINDOWS} 'libraylibmedia.dll'; {$IFEND}
              {$IFDEF LINUX} 'libraylibmedia.so.550'; {$IFEND}
              {$ENDIF}
-
              {$IFDEF DARWIN} 'libraylib.dylib'; {$IFEND}
              {$IFDEF HAIKU} 'libraylib.so'; {$IFEND}
 {$ENDIF}
 
-
 const
   DEG2RAD = (PI / 180.0);
   RAD2DEG = (180.0 / PI);