ellipse transparente et contour

[blendman]

j'ai cherché à faire ça récemment, alors, je vous poste le code, au cas où

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 200, 200, "Ellipse transparente", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  s =40 ; diameter
  
  If CanvasGadget(1,0,0,200,200)
    
  EndIf
    
  
  If CreateImage(0, 200, 200, 32,#PB_Image_Transparent) And StartDrawing(ImageOutput(0))
    DrawingMode(#PB_2DDrawing_AlphaBlend)
    Ellipse(100 , 100 , s , s , RGBA(0,0,0, 255))
    DrawingMode(#PB_2DDrawing_AlphaChannel) 
    Ellipse(100 , 100 , s -5, s-5 ,  RGBA(0,0,0, 0))
    StopDrawing() 
    
  EndIf
  
  If StartDrawing(CanvasOutput(1))
    Box(0, 0, 200, 200, RGBA(120,120,120, 255))
    DrawingMode(#PB_2DDrawing_AlphaBlend)
    DrawAlphaImage(ImageID(0), 0, 0, 255)
    StopDrawing()
  EndIf
  Repeat
    
    Event = WaitWindowEvent()
    
  Until Event = #PB_Event_CloseWindow
  
EndIf

Une ellipse transparente avec outline et épaisseur > 1 pixel

[kernadec]

...

[mohsin123]

bonsoir blendman
Voilà un code que j'avais récupéré dans le même genre,
mais sous Windows seulement.

[kernadec]

...

[graph100]

M'enfin Kernadec ! T'es fatigué ?! --> bot

c'est pas grave...

[kernadec]

bonjour graph100
Désolé!
Merci!
Cordialement