Skip to content

Commit

Permalink
+5
Browse files Browse the repository at this point in the history
  • Loading branch information
SunSerega committed Aug 25, 2024
1 parent ae10f8a commit 5558cb2
Showing 5 changed files with 32 additions and 72 deletions.
Binary file modified DataScraping/XML/OpenGL/funcs.bin
Binary file not shown.
28 changes: 8 additions & 20 deletions Modules.Packed/OpenGL.pas
Original file line number Diff line number Diff line change
@@ -44668,39 +44668,33 @@ gdi_pixel_format_descriptor = record

public ColorTableParameterfv_adr := GetProcAddress('glColorTableParameterfv');
private ntv_ColorTableParameterfv_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single)>(ColorTableParameterfv_adr);
private ntv_ColorTableParameterfv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f)>(ColorTableParameterfv_adr);
private ntv_ColorTableParameterfv_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfv_adr);
private ntv_ColorTableParameterfv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfv_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of single);
type PSingle = ^single;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameterfv_1(target, pname, &params[0]) else
ntv_ColorTableParameterfv_1(target, pname, PSingle(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f) :=
ntv_ColorTableParameterfv_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single) :=
ntv_ColorTableParameterfv_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameterfv_3(target, pname, &params);
ntv_ColorTableParameterfv_2(target, pname, &params);

public ColorTableParameteriv_adr := GetProcAddress('glColorTableParameteriv');
private ntv_ColorTableParameteriv_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32)>(ColorTableParameteriv_adr);
private ntv_ColorTableParameteriv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i)>(ColorTableParameteriv_adr);
private ntv_ColorTableParameteriv_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameteriv_adr);
private ntv_ColorTableParameteriv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameteriv_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of Int32);
type PInt32 = ^Int32;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameteriv_1(target, pname, &params[0]) else
ntv_ColorTableParameteriv_1(target, pname, PInt32(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i) :=
ntv_ColorTableParameteriv_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32) :=
ntv_ColorTableParameteriv_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameteriv_3(target, pname, &params);
ntv_ColorTableParameteriv_2(target, pname, &params);

public CopyColorTable_adr := GetProcAddress('glCopyColorTable');
private ntv_CopyColorTable_1 := GetProcOrNil&<procedure(target: glColorTableTarget; internalformat: glInternalFormat; x: Int32; y: Int32; width: Int32)>(CopyColorTable_adr);
@@ -69246,39 +69240,33 @@ gdi_pixel_format_descriptor = record

public ColorTableParameterfvSGI_adr := GetProcAddress('glColorTableParameterfvSGI');
private ntv_ColorTableParameterfvSGI_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single)>(ColorTableParameterfvSGI_adr);
private ntv_ColorTableParameterfvSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f)>(ColorTableParameterfvSGI_adr);
private ntv_ColorTableParameterfvSGI_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfvSGI_adr);
private ntv_ColorTableParameterfvSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfvSGI_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of single);
type PSingle = ^single;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameterfvSGI_1(target, pname, &params[0]) else
ntv_ColorTableParameterfvSGI_1(target, pname, PSingle(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f) :=
ntv_ColorTableParameterfvSGI_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single) :=
ntv_ColorTableParameterfvSGI_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameterfvSGI_3(target, pname, &params);
ntv_ColorTableParameterfvSGI_2(target, pname, &params);

public ColorTableParameterivSGI_adr := GetProcAddress('glColorTableParameterivSGI');
private ntv_ColorTableParameterivSGI_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32)>(ColorTableParameterivSGI_adr);
private ntv_ColorTableParameterivSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i)>(ColorTableParameterivSGI_adr);
private ntv_ColorTableParameterivSGI_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterivSGI_adr);
private ntv_ColorTableParameterivSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterivSGI_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of Int32);
type PInt32 = ^Int32;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameterivSGI_1(target, pname, &params[0]) else
ntv_ColorTableParameterivSGI_1(target, pname, PInt32(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i) :=
ntv_ColorTableParameterivSGI_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32) :=
ntv_ColorTableParameterivSGI_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameterivSGI_3(target, pname, &params);
ntv_ColorTableParameterivSGI_2(target, pname, &params);

public CopyColorTableSGI_adr := GetProcAddress('glCopyColorTableSGI');
private ntv_CopyColorTableSGI_1 := GetProcOrNil&<procedure(target: glColorTableTarget; internalformat: glInternalFormat; x: Int32; y: Int32; width: Int32)>(CopyColorTableSGI_adr);
28 changes: 8 additions & 20 deletions Packing/Descriptions/OpenGL.predoc
Original file line number Diff line number Diff line change
@@ -44649,39 +44649,33 @@ type

public ColorTableParameterfv_adr := GetProcAddress('glColorTableParameterfv');
private ntv_ColorTableParameterfv_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single)>(ColorTableParameterfv_adr);
private ntv_ColorTableParameterfv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f)>(ColorTableParameterfv_adr);
private ntv_ColorTableParameterfv_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfv_adr);
private ntv_ColorTableParameterfv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfv_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of single);
type PSingle = ^single;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameterfv_1(target, pname, &params[0]) else
ntv_ColorTableParameterfv_1(target, pname, PSingle(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f) :=
ntv_ColorTableParameterfv_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single) :=
ntv_ColorTableParameterfv_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameterfv_3(target, pname, &params);
ntv_ColorTableParameterfv_2(target, pname, &params);

public ColorTableParameteriv_adr := GetProcAddress('glColorTableParameteriv');
private ntv_ColorTableParameteriv_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32)>(ColorTableParameteriv_adr);
private ntv_ColorTableParameteriv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i)>(ColorTableParameteriv_adr);
private ntv_ColorTableParameteriv_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameteriv_adr);
private ntv_ColorTableParameteriv_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameteriv_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of Int32);
type PInt32 = ^Int32;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameteriv_1(target, pname, &params[0]) else
ntv_ColorTableParameteriv_1(target, pname, PInt32(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i) :=
ntv_ColorTableParameteriv_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32) :=
ntv_ColorTableParameteriv_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameteriv_3(target, pname, &params);
ntv_ColorTableParameteriv_2(target, pname, &params);

public CopyColorTable_adr := GetProcAddress('glCopyColorTable');
private ntv_CopyColorTable_1 := GetProcOrNil&<procedure(target: glColorTableTarget; internalformat: glInternalFormat; x: Int32; y: Int32; width: Int32)>(CopyColorTable_adr);
@@ -69227,39 +69221,33 @@ type

public ColorTableParameterfvSGI_adr := GetProcAddress('glColorTableParameterfvSGI');
private ntv_ColorTableParameterfvSGI_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single)>(ColorTableParameterfvSGI_adr);
private ntv_ColorTableParameterfvSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f)>(ColorTableParameterfvSGI_adr);
private ntv_ColorTableParameterfvSGI_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfvSGI_adr);
private ntv_ColorTableParameterfvSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterfvSGI_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of single);
type PSingle = ^single;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameterfvSGI_1(target, pname, &params[0]) else
ntv_ColorTableParameterfvSGI_1(target, pname, PSingle(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4f) :=
ntv_ColorTableParameterfvSGI_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: single) :=
ntv_ColorTableParameterfvSGI_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameterfvSGI_3(target, pname, &params);
ntv_ColorTableParameterfvSGI_2(target, pname, &params);

public ColorTableParameterivSGI_adr := GetProcAddress('glColorTableParameterivSGI');
private ntv_ColorTableParameterivSGI_1 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32)>(ColorTableParameterivSGI_adr);
private ntv_ColorTableParameterivSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i)>(ColorTableParameterivSGI_adr);
private ntv_ColorTableParameterivSGI_3 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterivSGI_adr);
private ntv_ColorTableParameterivSGI_2 := GetProcOrNil&<procedure(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr)>(ColorTableParameterivSGI_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: array of Int32);
type PInt32 = ^Int32;
begin
if (&params<>nil) and (&params.Length<>0) then
ntv_ColorTableParameterivSGI_1(target, pname, &params[0]) else
ntv_ColorTableParameterivSGI_1(target, pname, PInt32(nil)^);
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Vec4i) :=
ntv_ColorTableParameterivSGI_2(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; var &params: Int32) :=
ntv_ColorTableParameterivSGI_1(target, pname, &params);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: glColorTableTarget; pname: glColorTableParameterPName; &params: IntPtr) :=
ntv_ColorTableParameterivSGI_3(target, pname, &params);
ntv_ColorTableParameterivSGI_2(target, pname, &params);

public CopyColorTableSGI_adr := GetProcAddress('glCopyColorTableSGI');
private ntv_CopyColorTableSGI_1 := GetProcOrNil&<procedure(target: glColorTableTarget; internalformat: glInternalFormat; x: Int32; y: Int32; width: Int32)>(CopyColorTableSGI_adr);
Loading

0 comments on commit 5558cb2

Please sign in to comment.