Preview of Shiny3D my first GFA Basic library.

[D.J.Peters]

I wrote a lib "Shiny3D.glb" with ~800 functions/subs ~900 consts/enums

Vector math (in GFA code)
Collision detection (ColDet4GB.dll rewritten in C++)
Physics engine (Tokamak4GB.dll rewritten in C++)
Sound engine (Sound4GB.dll most parts in optimized assembler)
Texture loading (Soil4GB.dll rewritten in C BMP, TGA, DDS, JPG, PNG)
OpenGL (wrapper for OpenGL32.dll with support for the VECT datatype)
Glu (wrapper for glu32.dll)
TCP (wrapper for TCP4GB32.dll)

Download: Shiny3D.zip

Don't worry if something goes wrong it's only an preview and GFA Basic (GB32) is new for me.

Joshy

[funkheld]

hast du den source-code von Shiny3D.lg32 ?

gruss

[D.J.Peters]

Jun 16, 2010 22:17:49 GMT 1 funkheld said:

hast du den source-code von Shiny3D.lg32 ?

gruss

It's a part of the download now.

Joshy

[funkheld]

Jup, thanks for the sourece.

1. I'm a texture for a 3D object from a bmp file?

2. I'm a texture for a 3D object from a form with line, pset, etc?


gruss

[funkheld]

hello.....

[D.J.Peters]

hello i was few days on the road.

i posted you the source code of the shiny3d gb32 lib
you can find some funtions for texture loading.

(bmp, gif, tga, png, jpg,...)

By the way next week i start with my 3d modeller with physical properties.

Joshy

Declare Function NewTextureFromFile(ByVal filename As String) As Int
Declare Function NewRGBTextureFromFile(ByVal filename As String) As Int
Declare Function NewRGBATextureFromFile(ByVal filename As String) As Int
Declare Function NewGrayTextureFromFile(ByVal filename As String) As Int
Declare Function NewAlphaTextureFromFile(ByVal filename As String) As Int
Declare Function NewCubeMapTextureFromFiles(ByVal East  As String, _
  ByVal South As String, _
  ByVal West  As String, _
  ByVal North As String, _
  ByVal Up    As String, _
  ByVal Down  As String) As Int
Declare Function NewCustomAlphaTextureFromRGBFile( _
  ByVal filename As String, _
  ByVal maskcolor  As Integer, _
  ByVal alphavalue As Integer) As Int
Declare Function NewAlphaTextureFromCombinedFiles( _
  ByVal imagefile  As String, _
  ByVal alphafile  As String) As Int
Declare Sub UseYFlipping(ByVal onoff As Short)
Declare Sub UseMipMapping(ByVal onoff As Short)
Declare Sub UsePowerOf2(ByVal onoff As Short)
Declare Sub UseRepeating(ByVal onoff As Short)

[funkheld]

hello, the two below are the same, both are "gray .." why?


Declare Function NewGrayTextureFromFile(ByVal filename As String) As Int
Declare Function NewAlphaTextureFromFile(ByVal filename As String) As Int

[funkheld]

By the way next week i start with my 3d modeller with physical properties.

hello, that very good, great.

thanks you

[D.J.Peters]

Now I included my Sound lib with few examples in Shiny3D.zip most parts written in hand optimized assembler (SSE, MMX).

supported sound files: *.wav. *.mp3, *.mp2, *.mp and *.ogg

the library file Shiny3D.g32 are included too (/src)

Joshy

new sound commands:

Declare Sub      SoundSetPlugPath Lib "Sound4GB32" Alias "SND_SET_PLUGPATH@8" (ByVal NewPlugPath As String, ByVal PathSize As Integer)
Declare Function SoundGetPlugPath Lib "Sound4GB32" Alias "SND_GET_PLUGPATH@8" (ByVal PlugPath    As String, ByVal PathSize As Integer) As Integer

// sound engine
// init the sound engine with this default params
// default are: rate=44100,Channels=2, Buffers=3, Frames=2048, Device=-1 (use the first aviable device)
Declare Function SoundInit      Lib "Sound4GB32" Alias "SND_INIT@0" () As Integer
// or set your own params
Declare Function SoundInitSetup Lib "Sound4GB32" Alias "SND_INITSETUP@20" (ByVal nRate As Integer, ByVal nChannels  As Integer, ByVal nBuffers   As Integer, ByVal nFrames    As Integer, ByVal nDevice    As Integer) As Integer
// start or stop all threads of the sound engine
Declare Function SoundStart Lib "Sound4GB32" Alias "SND_START@0" () As Integer
Declare Function SoundStop  Lib "Sound4GB32" Alias "SND_STOP@0"  () As Integer
// free all resources and remove the plugout
Declare Function SoundExit  Lib "Sound4GB32" Alias "SND_EXIT@0"  () As Integer
// sound engine info
Declare Function SoundGetPlayingSounds  Lib "Sound4GB32" Alias "SND_GET_PLAYINGSOUNDS@0"  () As Integer
Declare Function SoundGetPlayingStreams Lib "Sound4GB32" Alias "SND_GET_PLAYINGSTREAMS@0" () As Integer
Declare Function SoundGetPlayTime       Lib "Sound4GB32" Alias "SND_GET_PLAYTIME@0"       () As Double
Declare Function SoundGetPlayedBytes    Lib "Sound4GB32" Alias "SND_GET_PLAYEDBYTES@0"    () As Integer
Declare Function SoundGetPlayedSamples  Lib "Sound4GB32" Alias "SND_GET_PLAYEDSAMPLES@0"  () As Integer

// plug out (Windows: MME, DirectX, ASIO,   Linux: OSS, ARTS, Alsa)
Declare Function SoundGetNumOfPlugOuts     Lib "Sound4GB32" Alias "SND_GET_NUMOFPLUGOUTS@0"     () As Integer
// 16 bit on windows
Declare Function SoundGetPlugoutBits       Lib "Sound4GB32" Alias "SND_GET_PLUGOUTBITS@0"       () As Integer
Declare Function SoundGetPlugoutBuffers    Lib "Sound4GB32" Alias "SND_GET_PLUGOUTBUFFERS@0"    () As Integer
Declare Function SoundGetPlugoutBufferSize Lib "Sound4GB32" Alias "SND_GET_PLUGOUTBUFFERSIZE@0" () As Integer
// 1 = mono 2= stereo
Declare Function SoundGetPlugoutChannels   Lib "Sound4GB32" Alias "SND_GET_PLUGOUTCHANNELS@0"   () As Integer
// 0=first 1=second 2=third device ...
Declare Function SoundGetPlugoutDevice     Lib "Sound4GB32" Alias "SND_GET_PLUGOUTDEVICE@0"     () As Integer
Declare Function SoundGetPlugoutError      Lib "Sound4GB32" Alias "SND_GET_PLUGOUTERROR@0"      () As String
Declare Function SoundGetPlugoutFrames     Lib "Sound4GB32" Alias "SND_GET_PLUGOUTFRAMES@0"     () As Integer
Declare Function SoundGetPlugoutFrameSize  Lib "Sound4GB32" Alias "SND_GET_PLUGOUTFRAMESIZE@0"  () As Integer
Declare Function SoundGetPlugoutName       Lib "Sound4GB32" Alias "SND_GET_PLUGOUTNAME@0"       () As String
// e.g. 44100
Declare Function SoundGetPlugoutRate       Lib "Sound4GB32" Alias "SND_GET_PLUGOUTRATE@0"       () As Integer
// 1 or 0
Declare Function SoundGetPlugoutRunning    Lib "Sound4GB32" Alias "SND_GET_PLUGOUTRUNNING@0"    () As Integer
// on windows allways true (samples are in range of -16384 to + 16383)
Declare Function SoundGetPlugoutSigned     Lib "Sound4GB32" Alias "SND_GET_PLUGOUTSIGNED@0"     () As Integer

// ***************
// * wave object *
// ***************
// load *.wav file in pool of waves
Declare Function SoundLoadWAV Lib "Sound4GB32" Alias "SND_LOAD_WAVFILE@8" (ByVal WAVFile As String, ByRef hWave As Integer) As Integer
Declare Function SoundLoadMP3 Lib "Sound4GB32" Alias "SND_LOAD_MP3FILE@12" (ByVal MP3File As String, ByRef hWave As Integer, ByVal TempPath As String) As Integer
Declare Function SoundLoadOGG Lib "Sound4GB32" Alias "SND_LOAD_OGGFILE@12" (ByVal OGGFile As String, ByRef hWave As Integer, ByVal TempPath As String) As Integer

// allocate empty wave in pool of waves
Declare Function SoundCreateWave Lib "Sound4GB32" Alias "SND_CREATE_WAVE@12" (ByVal nSamples As Integer, ByRef hWave As Integer, ByRef pSamples As Integer) As Integer
// remove hWave from pool of waves
Declare Function SoundDestroyWave Lib "Sound4GB32" Alias "SND_DESTROY_WAVE@4" (ByRef hWave As Integer) As Integer
// play hWave object
Declare Function SoundPlayWave Lib "Sound4GB32" Alias "SND_PLAY_WAVE@4" (ByVal hWave As Integer) As Integer
// play hWave object with params
Declare Function SoundPlayWaveSetup Lib "Sound4GB32" Alias "SND_PLAY_WAVESETUP@24" (ByVal hWave  As Integer, ByVal nLoops As Integer, ByVal Speed As Single, ByVal Volume As Single, ByVal Pan As Single, ByVal phSound As Integer) As Integer

// get length of wave in MS
Declare Function SoundGetWaveLength Lib "Sound4GB32" Alias "SND_GET_WAVELENGTH@8" (ByVal hWave As Integer, ByVal LengthMS As Integer) As Integer

// ****************
// * sound object *
// ****************
// create hSound object from hWave object
Declare Function SoundCreateSound      Lib "Sound4GB32" Alias "SND_CREATE_SOUND@8"  (ByVal hWave As Integer, ByRef hSound As Integer) As Integer
Declare Function SoundPlaySound        Lib "Sound4GB32" Alias "SND_PLAY_SOUND@8"    (ByVal hSound As Integer, ByVal nLoops As Integer) As Integer
Declare Function SoundDestroySound     Lib "Sound4GB32" Alias "SND_DESTROY_SOUND@4" (ByRef hSound As Integer) As Integer

Declare Function SoundSetSoundLoops    Lib "Sound4GB32" Alias "SND_SET_SOUNDLOOPS@8" (ByVal hSound As Integer, ByVal nLoops As Integer) As Integer
Declare Function SoundGetSoundLoops    Lib "Sound4GB32" Alias "SND_GET_SOUNDLOOPS@8" (ByVal hSound As Integer, ByRef nLoops As Integer) As Integer

Declare Function SoundSetSoundMuted    Lib "Sound4GB32" Alias "SND_SET_SOUNDMUTED@8" (ByVal hSound As Integer, ByVal Muted As Integer) As Integer
Declare Function SoundGetSoundMuted    Lib "Sound4GB32" Alias "SND_GET_SOUNDMUTED@8" (ByVal hSound As Integer, ByRef Muted As Integer) As Integer

Declare Function SoundSetSoundPan      Lib "Sound4GB32" Alias "SND_SET_SOUNDPAN@8" (ByVal hSound As Integer, ByVal Pan As Single) As Integer
Declare Function SoundGetSoundPan      Lib "Sound4GB32" Alias "SND_GET_SOUNDPAN@8" (ByVal hSound As Integer, ByRef Pan As Single) As Integer

Declare Function SoundSetSoundPaused   Lib "Sound4GB32" Alias "SND_SET_SOUNDPAUSED@8" (ByVal hSound As Integer, ByVal Pause As Integer) As Integer
Declare Function SoundGetSoundPaused   Lib "Sound4GB32" Alias "SND_GET_SOUNDPAUSED@8" (ByVal hSound As Integer, ByRef Pause As Integer) As Integer

Declare Function SoundSetSoundSpeed    Lib "Sound4GB32" Alias "SND_SET_SOUNDSPEED@8" (ByVal hSound As Integer, ByVal Speed As Single) As Integer
Declare Function SoundGetSoundSpeed    Lib "Sound4GB32" Alias "SND_GET_SOUNDSPEED@8" (ByVal hSound As Integer, ByRef Speed As Single) As Integer

Declare Function SoundSetSoundVolume   Lib "Sound4GB32" Alias "SND_SET_SOUNDVOLUME@8" (ByVal hSound As Integer, ByVal Volume As Single) As Integer
Declare Function SoundGetSoundVolume   Lib "Sound4GB32" Alias "SND_GET_SOUNDVOLUME@8" (ByVal hSound As Integer, ByRef Volume As Single) As Integer
// sound info
Declare Function SoundGetSoundLength   Lib "Sound4GB32" Alias "SND_GET_SOUNDLENGTH@8" (ByVal hSound As Integer, ByRef Length As Integer) As Integer

Declare Function SoundGetSoundPointers Lib "Sound4GB32" Alias "SND_GET_SOUNDPOINTERS@24" (ByVal hSound As Integer, ByVal ppStart As Integer, ByVal ppPlay As Integer, ByVal ppEnd As Integer, ByVal pChannels As Integer, ByVal pSamples  As Integer) As Integer

// sound callback
Declare Function SoundSetSoundCallback Lib "Sound4GB32" Alias "SND_SET_SOUNDCALLBACK@12" (ByVal hSound As Integer, ByVal pCallback As Integer, ByVal pUserData As Integer) As Integer
Declare Function SoundEnableSoundCallback Lib "Sound4GB32" Alias "SND_ENABLE_SOUNDCALLBACK@4" (ByVal hSound As Integer) As Integer
Declare Function SoundDisableSoundCallback Lib "Sound4GB32" Alias "SND_DISABLE_SOUNDCALLBACK@4" (ByVal hSound As Integer) As Integer

// stream object (MP3)
Declare Function SoundCreateMP3Stream Lib "Sound4GB32" Alias "SND_CREATE_MP3STREAM@4" (ByVal MP3File As String) As Integer
Declare Function SoundPlayMP3Stream Lib "Sound4GB32" Alias "SND_PLAY_MP3STREAM@8" (ByVal Volume As Single, ByVal Pan As Single) As Integer
Declare Function SoundEndMP3Stream Lib "Sound4GB32" Alias "SND_END_MP3STREAM@0" () As Integer

Declare Function SoundGetStreamBuffer Lib "Sound4GB32" Alias "SND_GET_STREAMBUFFER@12" (ByVal pBuffer As Integer, ByVal pChannels As Integer, ByVal pnSamples As Integer) As Integer

Declare Function SoundSetStreamPan Lib "Sound4GB32" Alias "SND_SET_STREAMPAN@4" (ByVal Pan As Single) As Integer
Declare Function SoundGetStreamPan Lib "Sound4GB32" Alias "SND_GET_STREAMPAN@4" (ByRef Pan As Single) As Integer

Declare Function SoundSetStreamVolume Lib "Sound4GB32" Alias "SND_SET_STREAMVOLUME@4" (ByVal Volume As Single) As Integer
Declare Function SoundGetStreamVolume Lib "Sound4GB32" Alias "SND_GET_STREAMVOLUME@4" (ByRef Volume As Single) As Integer
// stream callback
Declare Function SoundSetStreamCallback     Lib "Sound4GB32" Alias "SND_SET_STREAMCALLBACK@8" (ByVal pCallback As Integer, ByVal pUserData As Integer) As Integer
Declare Function SoundEnableStreamCallback  Lib "Sound4GB32" Alias "SND_ENABLE_STREAMCALLBACK@0" () As Integer
Declare Function SoundDisableStreamCallback Lib "Sound4GB32" Alias "SND_DISABLE_STREAMCALLBACK@0" () As Integer

// master channel
Declare Function SoundSetMasterVolume Lib "Sound4GB32" Alias "SND_SET_MASTERVOLUME@4" (ByVal Volume As Single) As Integer
Declare Function SoundGetMasterVolume Lib "Sound4GB32" Alias "SND_GET_MASTERVOLUME@4" (ByRef Volume As Single) As Integer

Declare Function SoundSetMaxChannels Lib "Sound4GB32" Alias "SND_SET_MAXCHANNELS@4" (ByVal nChannels As Integer) As Integer
Declare Function SoundGetMaxChannels Lib "Sound4GB32" Alias "SND_GET_MAXCHANNELS@4" (ByRef nChannels As Integer) As Integer

Declare Function SoundSetMasterFilter Lib "Sound4GB32" Alias "SND_SET_MASTERFILTER@20" (ByVal nFilter As Integer, ByVal Center  As Single, ByVal dB As Single, ByVal Octave  As Single, ByVal OnOff   As Integer) As Integer
Declare Function SoundEnableMasterFilter Lib "Sound4GB32" Alias "SND_ENABLE_MASTERFILTER@4" (ByVal nFilter As Integer) As Integer
Declare Function SoundDisableMasterFilter Lib "Sound4GB32" Alias "SND_DISABLE_MASTERFILTER@4" (ByVal nFilter As Integer) As Integer

// master callback
Declare Function SoundSetMasterCallback Lib "Sound4GB32" Alias "SND_SET_MASTERCALLBACK@8" (ByVal pCallback As Integer, ByVal pUserData As Integer) As Integer
Declare Function SoundEnableMasterCallback Lib "Sound4GB32" Alias "SND_ENABLE_MASTERCALLBACK@0" () As Integer
Declare Function SoundDisableMasterCallback Lib "Sound4GB32" Alias "SND_DISABLE_MASTERCALLBACK@0" () As Integer

// !!! real time pitch shifting !!!
Declare Sub SoundPitchShift Lib "Sound4GB32" Alias "SND_PITCHSHIFT@16" (ByVal pDstBuffer As Integer, ByVal pSrcBuffer As Integer, ByVal Pitch As Single, ByVal nSamples As Integer)

// helpers
Declare Function SoundDB2Volume Lib "Sound4GB32" Alias "SND_DB_2_VOLUME@4" (ByVal value As Single) As Single
Declare Function SoundVolume2DB Lib "Sound4GB32" Alias "SND_VOLUME_2_DB@4" (ByVal value As Single) As Single
Declare Function SoundDeg2Rad   Lib "Sound4GB32" Alias "SND_DEG2RAD@8" (ByVal value As Double) As Double
Declare Function SoundRadToDeg  Lib "Sound4GB32" Alias "SND_RAD2DEG@8" (ByVal value As Double) As Double
Declare Function SoundPow       Lib "Sound4GB32" Alias "SND_POW@16" (ByVal ValueA As Double, ByVal ValueB As Double) As Double

// the user defined callback are:
//  sub MyCallback(byval pSamples as integer,
//                 byval nChannels as integer,
//                 byval nSamples  as integer,
//                 byval pUserData as integer)

[funkheld]

hello it is wonderfull, thanks...

gruss
peter

[funkheld]

hello, why ist "Shiny3D" for the "RapidQ2"
gruss

[funkheld]

hello, the two below are the same, both are "gray .." why?


Declare Function NewGrayTextureFromFile(ByVal filename As String) As Int
Declare Function NewAlphaTextureFromFile(ByVal filename As String) As Int

[D.J.Peters]

Do you enabled blending if you used a alpha texture ?

Joshy

[funkheld]

no have not.

thanks

[D.J.Peters]

hello peter
can you download the latest version of shiny3d
i need to know runs TokamakTest02.exe smoothly on your box ?

thanx for testing.

Joshy

[D.J.Peters]

Next realease are out

fixed: something
added: TCP support

new commands:

TCPInit               () as integer
TCPCreateServer       (byval port as integer) as integer
TCPDeleteServer       () as integer
TCPClientConnected    () as integer
TCPClientDisconnected () as integer
TCPClientData         () as integer
TCPWrite              (byval connection as integer,byval pBuffer as integer,byval size as integer) as integer
TCPRead               (byval connection as integer,byval pBuffer as integer,byval size as integer) as integer
TCPCreateClient       (byval host as string,byval port as integer) as integer
TCPDeleteClient       (byval connection as integer) as integer
TCPServerData         (byval connection as integer) as integer
TCPServerIdle         (byval connection as integer) as integer
TCPWriteString        (ByVal connection As Integer,byval msg as string) as integer
TCPReadString         (ByVal connection As Integer,byref answer as string) as integer

[funkheld]

i need to know runs TokamakTest02.exe smoothly on your box ?

it works for me.
is very slow.

I have:
amilo xp sp2 and 1.6 ghz

gruss

[D.J.Peters]

Ok thank you for testing.

Joshy

[tazman47]

I just downloaded Shiny3D, it's great! Looking forward to updates.

[funkheld]

Ist jetzt noch Sommerpause.....?

Gruss

[D.J.Peters]

Aug 20, 2010 15:47:32 GMT 1 funkheld said:

Ist jetzt noch Sommerpause.....?

Gruss

Sorry i'm very busy last time.

Joshy
[german]
Ich bin zur Zeit in zu viele Projekten verstrickt
und jetzt wo ich weiss wie ich unter Windows Linux binaries und unter Linux Windows exe erzeugen kann spiele ich mit dem Gedanken
endlich einen eigenen Kompiler zu schreiben.

Nebenbei "hacke" ich die VIP1710 Motorolo Linux TV box ( Pollin.de für 5 Euronen)

Seit drei monaten habe ich auch noch ein aufwendiges Spiel / Simulation in der Mache.

Dann fanden einige Gartenumbauten statt und eine "neue" Lady hat es mir auch noch angetan.

Warum hat der Tag nicht 36 Stunden für Hobbys und eine für Frauen und wo ist der Klone der für einen Arbeiten geht.

(eine 7 Stunden wochen Frau das reicht mir ;D)
[/german]

[funkheld]

hallo, guten tag.

www.mikrocontroller.net/topic/pollin-motorola-vip1710
da wird auch dein pollin... behandelt.

wie kann man 3d-körper einlesen mit einer textur von 3ds oder x(textformat), oder auch ohne textur?
ich suche so etwas jetzt für das gfa32 mit deiner wunderbaren opengl-erweiterung.
entwickelst du diese hier noch weiter?

was für einen compiler möchtest du bauen?

gruss

[charles]

hey joshy , i do alot of midi programming
is there a chance you have funcs/procedures in a lib to use the midi on my pc
not for sequence playback , for data output?

charles

[apple]

can't download the file Shiny3D.zip

[brooklyn]

Hi Basic Fans,

did anyone of you have an idea, how i can use UNICODE in GB32? I need this for my chinese and arabian friends...they want to write in her own language....is this possible with GB32? if yes...How?

Hallo GFA Basic Fans,

hat irgendjemand eine Idee, wie man UNICODE im GB32 anwenden kann? Meine Freunde in China und Arabien würden gerne in Ihrer eigenen Sprache schreiben...Ist das mit GB32 möglich? Wenn ja.....Wie?

Thanks for your answers and have fun with the best programming language ever

Greetz,

Brooklyn

[funkheld]

Oh, danke..thanks.

Greeting

[infoliner]

Still no shiny3d download possible

[dragonjim]

Sadly not. Hasn't been since I've been a member and that was back in 2012.

[scalion]

Hello, Wow great work !
I will test and reply after
Ho .... download url to download failed...
Can you do something to help !! plz.

[ventilo25]

Ci-joint une copie de Shiny3d,
salut à tous !Shiny3D - Copie.zip (962.73 KB)