http://www.purebasic.com
https://www.purebasic.fr/english/
Thanks so much for this Fred and all involved.Fred wrote: Fri Mar 22, 2024 9:10 am 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:
Fred wrote: Fri Mar 22, 2024 6:08 pm I just pushed a new build for windows (x86 and x64), feel free to download it again it should fix the reported issues.
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))
6.10 b9.3 x64 C + optimized: 1644pf shadoko wrote: Sat Mar 23, 2024 4:18 pm 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: