PureBasic Forums - English

acreis wrote: Mon Sep 29, 2025 12:58 pm That's great idle, thank you!

But rendering some files results only black shape o inteded drawing.

Same occurs with nanosvg.

I managed to compile a plutosvg.dll, seems more svgs are rendered right.

Old resvg.dll is very good but have some dependency I don't know so I can't use in another machine.

Thanks a lot, I'll stick to pluto.

acreis wrote: Mon Sep 29, 2025 9:40 pm Seems great................but where can I find the dll?

No. This code uses the Shlemiel the painter’s algorithm. Who is Shlemiel? He’s the guy in this joke:

Shlemiel gets a job as a street painter, painting the dotted lines down the middle of the road. On the first day he takes a can of paint out to the road and finishes 300 yards of the road. “That’s pretty good!” says his boss, “you’re a fast worker!” and pays him a kopeck.

The next day Shlemiel only gets 150 yards done. “Well, that’s not nearly as good as yesterday, but you’re still a fast worker. 150 yards is respectable,” and pays him a kopeck.

The next day Shlemiel paints 30 yards of the road. “Only 30!” shouts his boss. “That’s unacceptable! On the first day you did ten times that much work! What’s going on?”

“I can’t help it,” says Shlemiel. “Every day I get farther and farther away from the paint can!”

punak wrote: Tue Sep 30, 2025 2:23 am SVG Features That Are Difficult or Impossible to Implement with pb.

| SVG Feature | Status in VectorDrawing | Notes |
|-------------------------------------|------------------------------------------|-------|
| Filters (blur, drop shadow, feGaussianBlur) | Not supported | No API for image filters or effects |
| Animations (<animate>, <animateTransform>) | Impossible | VectorDrawing is designed for static rendering only |
| Custom or bitmap fonts | Limited | Only vector fonts are allowed; no font registration |
| Complex masks and clip-paths | Limited | ClipPath exists, but lacks full SVG complexity |
| Shape blending and blend modes | Not supported | No API for blend modes or compositing |
| DOM or interactivity | Impossible | PureBasic is not designed for interactive SVG |
| CSS styling within SVG | Impossible | No CSS parser or styling engine |

pf shadoko wrote: Tue Sep 30, 2025 6:46 am For bitmap fonts, we can handle that.
Take it from my screen library.
viewtopic.php?t=84206&hilit=shader+sprite

Code: Select all

;============================================================================================ fastfont
Procedure SS_InitFont(num,name.s, height.f,style=0,brush=-1,chars.s="")
  Structure ssc
    sx.l
    sl.l
    cl.l
    co.l
  EndStructure
  
  Structure sscfont
    ns.i
    height.f
    Array c.ssc(255)
  EndStructure
  
  Global ScrennFont.sscfont
  
  Protected i,h,l,c.s,ca,im,bx,by,cx,co,cv,cl:Global nf
  If chars="":For i=32 To 128:chars+Chr(i):Next:EndIf
  
  nf=LoadFont(-1,name,height,style)
  If brush>=0:initIF(brush):bx=ImageWidth(brush):by=ImageHeight((brush)):EndIf
  IM=CreateImage(-1,1,1)
  StartDrawing(ImageOutput(im)):DrawingFont(FontID(nf))
  h=TextHeight(" ")+by
  l=TextWidth(chars)*1.3+Len(chars)*bx:cx=0
  StopDrawing()
  FreeImage(im)
  
  IM=CreateImage(-1,l,h,32,#PB_Image_Transparent):StartDrawing(ImageOutput(im)):DrawingMode(#PB_2DDrawing_AllChannels):Box(0,0,l,h,$00ffffff):StopDrawing()
  StartVectorDrawing(ImageVectorOutput(im)):VectorFont(FontID(nf))
  For i=1 To Len(chars)
    c=Mid(chars,i,1):ca=Asc(c)
    With ScrennFont\c(ca)
      co=VectorTextWidth(c,#PB_VectorText_Visible|#PB_VectorText_Offset):If ca=126:co=0:EndIf
      cv=VectorTextWidth(c,#PB_VectorText_Visible)
      cl=VectorTextWidth(c)
      \sx=cx
      \sl=cv+bx+2
      \cl=cl+bx/2
      \co=co
      ;AddPathBox(\sx,0,\sl,h):VectorSourceColor($8800ff00):FillPath()
      MovePathCursor(cx-co+1,0)
      VectorSourceColor($ffffffff):DrawVectorText(c)
      cx+\sl+1
    EndWith
  Next
  StopVectorDrawing()
  
  ScrennFont\ns=SS_CreateSprite(-1,#SHoverlay,im)
  ScrennFont\height=h
EndProcedure

Procedure SS_DrawText(x,y,t.s,size=-1,color=$ffffffff)
  Protected i,ca,cx,c.ssc,zoom.f
  With ScrennFont
    If size=-1:size=\height:EndIf
    zoom=size/\height
    For i=1 To Len(t)
      c=\c(Asc(Mid(t,i,1)))
      SS_ClipSprite(\ns,c\sx,0,c\sl,\height)
      SS_ZoomSprite(\ns,c\sl*zoom,\height*zoom,#SS_unit_Pixel)
      SS_DisplaySprite(\ns,x+c\co*zoom,y,255,color)
      x+c\cl*zoom
    Next
  EndWith
EndProcedure

pf shadoko wrote: Tue Sep 30, 2025 8:53 am wait a moment, this not work on vectordrawing
i will adapt this