PureBasic 6.10 LTS is out !

[Fred]

I will remove the automatic path detection for link as it's not robust enough and I will add back the support for a vc/ directory in the compiler folder (so you will be able to copy link and its DLL if needed).

[User_Russian]

In windows versions, in folders "Compilers\" and "PureLibraries\Windows\Libraries\" found the folder "arm64\".
Was this added by mistake or are there plans to add Windows ARM?

[Fred]

I did some test on it, but it's still not ready for release

[Fred]

I just pushed a new build for windows (x86 and x64), feel free to download it again it should fix the reported issues.

[threedslider]

Thx a lot Fred !

[mk-soft]

Many Thanks

[Dreamland Fantasy]

2024-03-22: beta 9 is out for testing, it will be hopefully the last beta before final ! It brings the following changes and bug fixes:

Thanks so much for this Fred and all involved.

Kind regards,

Francis

[marcoagpinto]

Thanks, Fred!

[Psychophanta]

I just pushed a new build for windows (x86 and x64), feel free to download it again it should fix the reported issues.

[pf shadoko]

the new 3D functions are not integrated

with C backend + optimization, 6.1 is slightly slower than 6.0 (between 10 and 20%)
if you have the 2 versions, can you confirm?
a little code for comparison:

Code: Select all

Procedure ImageBlur(Image,ImageSource,di.w, dj.w,pass=1,loop=0)
	If di=0 And dj=0:ProcedureReturn:EndIf
	Protected i,ii,j,k,d,dii,djj,dx,dy,dij,_dij.f,tx.l, o,p,n
	
	dx = ImageWidth(ImageSource)-1 :If di>dx:di=dx:EndIf
	dy = ImageHeight(ImageSource)-1:If dj>dy:dj=dy:EndIf
	p= ImageDepth(ImageSource)/8
	Dim s.a(dy,(dx+1)*p-1)
	Dim d.a(dy,(dx+1)*p-1)
	StartDrawing(ImageOutput(ImageSource)):CopyMemory(DrawingBuffer(),@s(0,0),(dx+1)*(dy+1)*p):StopDrawing()
	
	dii=di+1
	djj=dj+1
	dij = dii * djj:_dij=1/dij
	
	If loop
		d=dx-dii/2:Dim lx(dx + 2*dii): For i = 0 To dx + 2*dii: lx(i) = (i+d) % (dx+1): Next
		d=dy-djj/2:Dim ly(dy + 2*djj): For i = 0 To dy + 2*djj: ly(i) = (i+d) % (dy+1): Next    
	Else
		Dim lx(dx + 2*dii): For i = 0 To dx + 2*dii:ii=i-1-dii/2:If ii<0:ii=0:ElseIf ii>dx:ii=dx:EndIf: lx(i) = ii: Next
		Dim ly(dy + 2*djj): For i = 0 To dy + 2*djj:ii=i-1-djj/2:If ii<0:ii=0:ElseIf ii>dy:ii=dy:EndIf: ly(i) = ii: Next
	EndIf  
	
	For k=1 To pass
		For o=0 To p-1
			Dim ty.l(dx)
			For j = 0 To djj - 1:ii=o: For i = 0 To dx: ty(i) + s(ly(j),ii):ii+p: Next: Next    
			For j = 0 To dy
				ii=o:For i = 0 To dx: ty(i) + s(ly(djj+j),ii) - s(ly(j),ii):ii+p: Next
				tx=0:For i = 0 To dii-1: tx+ty(lx(i)): Next
				ii=o:For i = 0 To dx: tx + ty(lx(dii+i)) - ty(lx(i) ): d(j,ii) = tx *_dij:ii+p: Next
			Next
		Next
		CopyArray(d(),s())
	Next
	n=CreateImage(Image,dx+1,dy+1,p*8):If Image=-1:Image=n:EndIf
	StartDrawing(ImageOutput(Image)):CopyMemory(@d(0,0),DrawingBuffer(),(dx+1)*(dy+1)*p):StopDrawing()
	ProcedureReturn Image
EndProcedure

OpenWindow(0, 0, 0, 1024, 720, "flou", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

CreateImage(0,1024,700)
LoadFont(0,"Arial",100,#PB_Font_Bold)
StartDrawing(ImageOutput(0))
DrawingFont(FontID(0))
For i=0 To 20:DrawRotatedText(Random(OutputWidth()),Random(OutputHeight()),"FLOU",Random(360),Random($ffffff)):Next
StopDrawing()
; UseJPEGImageDecoder()
; LoadImage(0,"C:\spiderbasic codes\puzzle\images\animals-1098679.jpg")

ti=ElapsedMilliseconds()
sens=2
Repeat
	blur+sens
	If blur=100:sens=-2:EndIf
	If blur=0:sens=2:EndIf
	ImageBlur(1,0,blur,blur,2,0)
	StartDrawing(WindowOutput(0))
	DrawImage(ImageID(1),0,0)
	StopDrawing()
	event=WindowEvent()
	If blur=0:Break:EndIf
Until  event= #PB_Event_CloseWindow
MessageRequester(#PB_Compiler_Home+"Compilers\engine3d.dll",Str(ElapsedMilliseconds()-ti))

[breeze4me]

the new 3D functions are not integrated

with C backend + optimization, 6.1 is slightly slower than 6.0 (between 10 and 20%)
if you have the 2 versions, can you confirm?
a little code for comparison:

6.10 b9.3 x64 C + optimized: 1644
6.0 x64 C + optimized: 2895

6.10 b9.3 x86 C + optimized: 2343
6.0 x86 C + optimized: 3704

all without debugger.


Edit:
6.04 x64 C + opt: 1592
6.04 x86 C + opt: 2242

6.0 < 6.10 < 6.04
In my case, 6.04 is the fastest.

[Otrebor]

PB 6.0 x86 C optimized : 3270
PB 6.1 B9 x86 C optimized : 3420

My emulator at full speed with PB 6.0 runs about +20 frames/sec compared with PB 6.1

[mk-soft]

Raspberry PI 5 without debugger

PB v6.04 = 8606, opti 4161
PB v6.10 = 8523, opti 4868


P.S.
It is optimized a little less because a little too much has been optimized away.
Link: https://www.purebasic.fr/english/viewto ... 93#p617293

[pf shadoko]

thank you
i see it's only my place that's slower (good news!)
except breeze4me

[threedslider]

Hey pf shadoko my test is 6.04 x64= 4037 and 6.10 beta 9 x64= 4039 all optimized without debugger

backend + opti 6.04 x64 = 1577 and 6.10 beta9 x64 = 1598 without debugger

For me it is nearly same at speed