This challenge is popular on a Facebook group that I am in. Can you print out the Christmas star in a few bites of code as possible? A particular Language is not a requirement. #Define a(x)Abs(x)<5 #Define f(i)For i As Integer=-8 To 8 f(y) f(x) Print IIf((a(x-y)Or a(x+y))And(a(x)Or a(y)),"*&quo...

Can the C Switch statement be added to FreeBASIC? It has different functionality than the Select Case statement. Such as optional Break from Case block.

How come this library is not included with the FB distribution? Or better yet, built into the FB graphics library? It's too useful not to have it available.

Has anyone used the Kinect with Freebasic? Is there an interface for it? I have the original 360 Kinect.

I fixed the vertical bars bug in VUV2 converter. Joshy forgot to assign the first chroma channel. Did some minor optimizations. Function ConvertYUY2(Byval pHeader As PVIDEOHDR) As Any Ptr 'YUY2 vertical bars bug fixed by ShawnLG. Dim As Integer i,n,t Dim As Integer nPixels=_VideoFormat.bmiHeader.biW...

At first I thought this demo was a ray tracer. Closer inspection reveal it was not, or a poly fill type. After playing with it, I found out it is a voxel type. I see you are calculating dot products for every voxel. This is compute intensive. Most of the voxels share the same surface normal informat...

I look forward to being scolded by admin. http://deltarho.org.uk/Downloads/eek.png Me too http://deltarho.org.uk/Downloads/smile.png . Although it would make more sense scolding the OP for not crediting the source ;-) I found the example here. https://aticleworld.com/5-way-to-reverse-bits-of-an-int...

It is faster to multiply with the recipical instead of all thoes ugly divisions. 'Replaced divisions with reciprocals, ShawnLG #Ifndef __SIMPLENOISE_BI__ #define __SIMPLENOISE_BI__ const as integer NOIZESIZE = 255 dim shared as single noise(NOIZESIZE,NOIZESIZE,NOIZESIZE) sub init constructor randomi...

Need bits reversed? Theres a clever bit hack for that. Function ReverseBits32(x As ULong) As ULong x = ((x And &haaaaaaaaull) Shr 1) Or ((x And &h55555555ull) Shl 1) x = ((x And &hccccccccull) Shr 2) Or ((x And &h33333333ull) Shl 2) x = ((x And &hf0f0f0f0ull) Shr 4) Or ((x And &a...

It's a shame he has disappeared. He has contributed so much to the BASIC community.

dafhi wrote:that FPS tho. A lot of integer with FP sprinkles. Good for us old dogs.

I like to use the datatype that is best suited for the job. There was a 64 bit compilation bug in LiquidFabric.bi that broke the hight map and light map functions. LiquidFabric.bi was updated.

I have seen a few water ripple demos and I desided to make my own. It's more than a demo. It is in OOP model for easy use in games. It has three texture filter outputs. GetHM(): Returns a pointer to a height map image of the Liquid Fabric. The height map can be used to create a vectorized water fiel...

Dear ShawnLG; Thanks for your correction. I checked with the following program. There still seems to be collisions. You are right. There is still a problem with collisions. i had a feeling something was quite not right. Thanks for testing it. I was reliying on the hash key for reference for collisi...

I have added collision currection to the hash mapping. The hash function would be useless without it. I was unable to test it because I do not know of any collision conditions. Why is the hash table defined in two dimentions? assocarray.bi ' collision divergent by ShawnLG #Define ASSOC_ARRAY_LOG_COL...

Dr_D wrote:Hi. I'm always interested in 3D engines.

You might like Genesis3D SDK. It is also abandonware. I remember playing the demo in the late 90s. It has that nastalgec Quake feel to it. The source is in C for version 1.2, so it can be translated to FB.

https://www.genesis3d.com/