PureBoard

Code: Alles auswählen

Global DrawingThickness.f = 1.0
Procedure DrawingThickness(Thickness.f)
  If Thickness > 0 : DrawingThickness = Thickness : EndIf
EndProcedure


Procedure ClearCircle(x, y, Radius.f, Color)
  Protected Alpha.i, Distance.f = (DrawingThickness-1)/2
  Protected Lenght.i = Round(Radius+Distance, #PB_Round_Up)+1
  CircularGradient(x, y, Lenght)
  ResetGradientColors()
    GradientColor(0, Color&$FFFFFF)
    GradientColor((Radius-Distance-1)/Lenght, Color&$FFFFFF)
    If DrawingThickness > 1
      GradientColor((Radius-Distance)/Lenght, Color&$FFFFFF+$FF000000)
      GradientColor((Radius+Distance)/Lenght, Color&$FFFFFF+$FF000000)
    Else
      Alpha = 255*DrawingThickness
      GradientColor(Radius/Lenght, Color&$FFFFFF+Alpha<<24)
    EndIf
    GradientColor((Radius+Distance+1)/Lenght, Color&$FFFFFF)
    GradientColor(1, Color&$FFFFFF)
  Circle(x, y, Radius+DrawingThickness+2)
EndProcedure


Procedure ClearLineXY(x1, y1, x2, y2, Color)
  Protected Alpha.i
  Protected dx = x2-x1 , dy = y2-y1
  Protected Distance.f = (DrawingThickness-1)/2
  Protected Lenght.i = Sqr(dx*dx*4+dy*dy*4)
  LinearGradient(x1+dy, y1-dx, x1-dy, y1+dx)
  ResetGradientColors()
    GradientColor(0, Color&$FFFFFF)
    GradientColor((Lenght/2-Distance-1)/Lenght, Color&$FFFFFF)
    If DrawingThickness > 1
      GradientColor((Lenght/2-Distance)/Lenght, Color&$FFFFFF+$FF000000)
      GradientColor((Lenght/2+Distance)/Lenght, Color&$FFFFFF+$FF000000)
    Else
      Alpha = 255*DrawingThickness
      GradientColor(Lenght/2/Lenght, Color&$FFFFFF+Alpha<<24)
    EndIf
    GradientColor((Lenght/2+Distance+1)/Lenght, Color&$FFFFFF)
    GradientColor(1, Color&$FFFFFF)
  Circle(x1+dx/2, y1+dy/2, Lenght/4)
  ClearCircle(x1, y1, 0, Color)
  ClearCircle(x2, y2, 0, Color)
EndProcedure



Enumeration
 #Window
 #Gadget
 #Image
EndEnumeration



CreateImage(#Image, 200, 300, 32|#PB_Image_Transparent)


StartDrawing(ImageOutput(#Image))
  DrawingMode(#PB_2DDrawing_Transparent|#PB_2DDrawing_AlphaBlend)
  Box(0,0,100,300,$FFFFFFFF)
  Box(100,0,100,300,$FF000000)
  DrawingMode(#PB_2DDrawing_Transparent|#PB_2DDrawing_AlphaBlend|#PB_2DDrawing_Outlined)
  Circle(50, 50, 40, $FF000000)
  Circle(150, 50, 40, $FFFFFFFF)
  LineXY(30, 40, 70, 70, $FF000000)
  LineXY(140, 70, 160, 30, $FFFFFFFF)
  DrawingMode(#PB_2DDrawing_Transparent|#PB_2DDrawing_AlphaBlend|#PB_2DDrawing_Gradient)
  DrawingThickness(1)
  ClearCircle(50, 150, 40, $FF000000)
  ClearCircle(150, 150, 40, $FFFFFFFF)
  ClearLineXY(30, 140, 70, 170, $FF000000)
  ClearLineXY(140, 170, 160, 130, $FFFFFFFF)
  DrawingThickness(6)
  ClearCircle(50, 250, 40, $FF000000)
  ClearCircle(150, 250, 40, $FFFFFFFF)
  ClearLineXY(30, 240, 70, 270, $FF000000)
  ClearLineXY(140, 270, 160, 230, $FFFFFFFF)
StopDrawing()


SetClipboardImage(#Image)


OpenWindow(#Window, 0, 0, ImageWidth(#Image), ImageHeight(#Image), "Image", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  ImageGadget(#Gadget, 0, 0, ImageWidth(#Image), ImageHeight(#Image), ImageID(#Image))


Repeat
 Event = WaitWindowEvent()
 Select Event
  Case #PB_Event_CloseWindow
   End
 EndSelect
ForEver