Fast Canvas Library V1.052

[Gigatron]

Hi

This is the last debugged version and some nice fx of the Glcanvas.

The old demos are not working with this version, (gl) was removed from uses in unit1 and
Gluint was replaced by TGLTextureID; new type def ;

So please  try this demo ; or live example on my YT channel;

https://www.youtube.com/watch?v=HCwqh8yWklk

Don't forget HeadPhone

Regards

[Gigatron]

Hi

You know i'am working on glCanvas every day and make some intro to
improve and debug the library.

The latest one is  bitmap font multi sinus intro done by internal shader command.
the live example a bit different : https://www.youtube.com/watch?v=bJ_UONnhTOw

Be patient for V 1.0;

Regards
Gigatron

[Gigatron]

Nice

Try to release V1.0 beta now ;
Some new fx commands are 50000 parameters sorry

Demo sound fonts are included with this nice library Glcanvas;

Regards

GTR

[Seenkao]

Привет, Gigatron!
Если интересно, то некоторую функциональность можно немного "упростить" и в понимании и в передаче данных.
Например можно задавать цвет либо посредством структуры или посредством LongWord. В первом варианте мы создаём структуру и можно задать данные по умолчанию:

Google translate:
Hi, Gigatron!
If you're interested, some functionality can be slightly simplified, both in terms of understanding and data transfer.
For example, you can set the color either through a structure or through LongWord. In the first option, we create a structure and can set default data:

Code: Pascal  [Select][+][-]

1. type
2.   myTColor = record
3.     R, G, B, A: Single;
4.   end;
5. var                               // or constant
6.   whiteColor: myTColor = (1, 1, 1, 1);
7.   blackColor: myTColor = (0, 0, 0, 0);

Во втором варианте мы из целого числа работаем только с байтами. В этом случае число LongWord - RRGGBBAA (или AARRGGBB).
Различные варианты можно увидеть в разных движках и графических редакторах. Для передачи данных в процедуру или функцию, такие вещи проще. Просто передаём структуру или число RRGGBBAA и используем их.
Возможно ещё проще создавать объекты и все данные хранить в объектах. А все функции и процедуры уже будут работать от самих объектов (в основном).

Это только информация к размышлению! Успехов!

Eng: In the second option, we work only with bytes from the integer. In this case, the LongWord number is RRGGBBAA (or AARRGGBB).
Different options can be seen in different engines and graphic editors. Passing data to a procedure or function is simpler. We simply pass the RRGGBBAA structure or number and use it.
It might be even easier to create objects and store all data in objects. And all functions and procedures will work from the objects themselves (mostly).

This is just food for thought! Good luck! 

[n7800]

And also notice that glCanvas is also not needed to be added here, nor lazopenglcontext, just this:

Code: Pascal  [Select][+][-]

1.   Forms, Unit1; //lazopenglcontext, glCanvas, soundtracker_lib, SoundtrackerAudio;
2.  

Notice that every file you include in project inspector will be added here and if they are not essencial for functioning (as components, for instance), they will make problems.

By the way, this is controlled by the option with the long name: "Project Options > Miscellaneous > Main unit has Uses section containing all units of project".

I'll add that some units, on the contrary, must be specified even if they are not explicitly used. For example, these are the standard cthreads and Interfaces units for a GUI application, since they have an initialization section that runs when the program starts.

[Gigatron]

Google translate:
Hi, Gigatron!
If you're interested, some functionality can be slightly simplified, both in terms of understanding and data transfer.
For example, you can set the color either through a structure or through LongWord. In the first option, we create a structure and can set default data:

Code: Pascal  [Select][+][-]

1. type
2.   myTColor = record
3.     R, G, B, A: Single;
4.   end;
5. var                               // or constant
6.   whiteColor: myTColor = (1, 1, 1, 1);
7.   blackColor: myTColor = (0, 0, 0, 0);

Hi thank you , i have the same color option on glCanvas;

Code: Pascal  [Select][+][-]

1.  TglColor = record
2.     r, g, b, a: Single;  // r,g,b,a := glmakecolor(1.0,0.0,0.0,1.0); one time
3.   end;  

And usage is like this :

Code: Pascal  [Select][+][-]

1. procedure TForm1.OpenGLControl1Paint(Sender: TObject);
2. var
3.  
4.   mycol : TglColor;
5. begin
6.  
7.   mycol := glMakeColor(1.0,0.0,0.0,1.0);
8.  
9.   glFillScreen(OpenGLControl1, mycol.r,mycol.g,mycol.b,mycol.a);
10.  

Regards

[Gigatron]

And also notice that glCanvas is also not needed to be added here, nor lazopenglcontext, just this:

Code: Pascal  [Select][+][-]

1.   Forms, Unit1; //lazopenglcontext, glCanvas, soundtracker_lib, SoundtrackerAudio;
2.  

Notice that every file you include in project inspector will be added here and if they are not essencial for functioning (as components, for instance), they will make problems.

By the way, this is controlled by the option with the long name: "Project Options > Miscellaneous > Main unit has Uses section containing all units of project".

I'll add that some units, on the contrary, must be specified even if they are not explicitly used. For example, these are the standard cthreads and Interfaces units for a GUI application, since they have an initialization section that runs when the program starts.

Nice, and thank you, let's let users choose this

[Seenkao]

And usage is like this :

Заранее извиняюсь. Я возьму для примера твой кусочек кода. И применю "свои" правки.

Google translate:
My apologies in advance. I'll use your code snippet as an example and apply "my" edits.

Code: Pascal  [Select][+][-]

1. procedure glDrawText(x, y: Integer; const txt: string;
2.                      const textColor: TglColor = whiteColor;                                              // whiteColor - const or var
3.                      fontName: string = 'Arial'; fontSize: Integer = 14;
4.                      fontStyle: TFontStyles = [];
5.                      Angle: Single = 0; CenteredRotation: Boolean = False;
6.                      CenteredText: Boolean = False);
7. begin
8.   ...
9.   glColor4fv(@textColor);
10.  
11.   ...
12. end.

но лично я указателями пользуюсь.
А вообще, большинство рекомендуют переходить на OpenGL 3+ или на Vulkan. 

Eng:
But personally, I use pointers.
In general, most people recommend switching to OpenGL 3+ or Vulkan.

[Gigatron]

Ok just made an overload procedure with pointer;

Code: Pascal  [Select][+][-]

1. // surcharge ; avec pointeur
2. procedure glDrawText(x, y: Integer; const txt: string;
3.                      const textColor: TglColor  ;
4.                      fontName: string = 'Arial'; fontSize: Integer = 14;
5.                      fontStyle: TFontStyles = [];
6.                      Angle: Single = 0; CenteredRotation: Boolean = False;
7.                      CenteredText: Boolean = False); overload;  
8.  
9. .............
10. glColor4fv(@textColor);
11.  
12. usage;
13. glDrawText(100,100,'HELLO',glMakeColor(1.0,1.0,1.0,1.0),'Arial',32);
14.  

Thank you