PureBasic Forums - English

Made a reusable module with some demostyle movements. Of course it has a correct sintable.
This is standalone and organized.

DeclareModule tool
Structure s_pointF
x.f
y.f
EndStructure

Structure s_pointI
x.i
y.i
EndStructure

Global Blank.i
Global Full.i


Declare ministart2d(wTitle ...

mk-soft wrote: Mon Jan 26, 2026 12:07 pm PB v6.30:

Compiled Empty Executable: 144kb
Compiled Empty Executable Use shared UCRT: 23kb

I'm glad, that shared UCRT is optional, and not a must.

Also problems with the additive material. Use this:

MaterialBlendingMode(3,#PB_Material_Add)
SetMaterialAttribute(3,#PB_Material_DepthWrite,#False)
SetMaterialAttribute(3,#PB_Material_AlphaReject,#True)
DisableMaterialLighting(3,1)

To remove the artifact that makes the quad rectangle visible ...

; ------------------------------------------------------------
;
; PureBasic - LightAttenuation
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;


#CameraSpeed = 1

Define.f KeyX, KeyY, MouseX, MouseY

InitEngine3D()
InitSprite()
InitKeyboard ...

An entity is lit with the closest 8 lights by default, I belive. With shaders, there can be more with arrayed lights or deferred lighting.
I myself not in that deep with the pb 3d yet, so maybe someone other might give you a better answer.

Edit: Bruteforce solution can be if you divide the plane ...

I use a procedure something like this for alt tabbing from windowed fullscreen.


#MAINLOOP_DELAY = 0

;=====================================================
; Processes windows events
; Delays(0), and examines the keyboard and mouse
; Handles proper Alt+Tabbing, program sleeps while not
; active ...

Hello SkinkaireWalker!

First, you will need a camera, it is not presented in the example.

Regarding mouse. There are two kind of mouse with pb, one is OS mouse, the other is some kind of raw mouse.
When you call examinemouse() you lose desktopmouse. Use only one of the two.
( with desktopmouse ...

It has a cool retro vibe, I like it. Movements seems to be a bit linear, but other than that seems fine.

Thanks Mindphaser. I already see some mistakes in the code. The sin lookup table is mathematically incorrect. (but so small difference at the overflowing part, that it isn't visible.)

Cool, as always. Just keep it up, it's always fun to see your progress.

+1 For more unsigned native variables already mentioned by some. Particularly the missing 4 and 8 bytes long ones. Unsigned long, quad.

Thanks!

@moulder61: The third might work on linux, if you remove the commentline ";" before the clearscreen(0) line.

I would include everyone here, but I had to stop somewhere...

@Minimy, moulder61, Joubarbe: Thanks, I'm glad you enjoyed

EnableExplicit

Global Dim OB(7)
ob(1)=RGB(0,16,48)
ob(2)=RGB(0,32,96)
ob(3)=RGB(0,64,128)
ob(4)=RGB(0,96,176)
ob(5)=RGB(32,128,208)
ob(6)=RGB(96,176,224)
ob(7)=RGB(176,224,255)

Global Dim OCN(11)
OCN(0)=RGBA(0,24,51,255)
OCN(1)=RGBA(0,51,102,255)
OCN(2)=RGBA(0,76,153,255)
OCN(3)=RGBA(0,102,204 ...

Interesting effect. Looks good, but unfortunately, it comes from the sprite intensity bug I think. Did not expected this.
I'm on windows, this might behave differently on other OS-es.

Edit: I'm stupid ;)

EnableExplicit

Global Dim OB(7)
ob(1)=RGB(0,16,48)
ob(2)=RGB(0,32,96)
ob(3)=RGB(0,64,128 ...