PureBasic

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