Open Gl Example

[georgekar]

I do this project using ChatGPT 4.5

The task was a rotating cube using OpenGl, using a class wrapper. We can display text (latin and greek). We have to build series of glyphs (this is work of A.I.). Also we put a background image (was bmp, I change it to jpg). My only code is the way we get the array bytes() from the original bytes of picture. The ChatGPT made a loop using point() and divisions to get the RGB values. So that was not good. My goal is to put the class to M2000 Interpreter so i want to use twips from user scope. But I will continue the training of ChatGPT (everything we made with A.I. happen to be training for A.I.)

If BuildFontRange(mLatin, &H20, &H5F, 0.2!) = False Then Exit Function
If BuildFontRange(mGreek, &H370, &H90, 0.2!) = False Then Exit Function

Because there are some Greek letters (for text to display)...please for one time change the language of font used in IDE to Greek.

This is a preview of using Open GL on M2000 Interpreter (which is written using VB6, so it is a VB6 program - not compiling in TwinBasic yet).



Have a nice day.