PureBasic Forums - English

Code: Select all

Global Thickness,Color

ProcedureDLL.l ColorBlending(Color1.l, Color2.l, Blend.f)
  Protected Red, Green, Blue, Red2, Green2, Blue2
 
  Red = Color1 & $FF
  Green = Color1 >> 8 & $FF
  Blue = Color1 >> 16
  Red2 = Color2 & $FF
  Green2 = Color2 >> 8 & $FF
  Blue2 = Color2 >> 16
 
  Red = Red * Blend + Red2 * (1-Blend)
  Green = Green * Blend + Green2 * (1-Blend)
  Blue = Blue * Blend + Blue2 * (1-Blend)
 
  ProcedureReturn (Red | Green <<8 | Blue << 16)
EndProcedure

Procedure AAline(X,Y, x3, y3, Color, Thickness = 1)
  Width = x3-X
  Hight = y3-Y
  Protected SignX, SignY, n, nn, Thick.f, x2.f, y2.f, Color_Found.l, Application.f, Hypo.f
 
  If Width >= 0
    SignX = 1
  Else
    SignX = -1
    Width = - Width
  EndIf
  If Hight >= 0
    SignY = 1
  Else
    SignY = -1
    Hight = - Hight
  EndIf 
 
  Thick.f = Thickness / 2
 
  Hypo.f = Sqr(Width * Width + Hight * Hight)
  CosPhi.f = Width / Hypo
  SinPhi.f = -Sin(ACos(CosPhi))
 
 
  For n = -Thickness To Width + Thickness
    For nn = -Thickness To Hight + Thickness

      x2 = n * CosPhi - nn * SinPhi
      y2 = Abs(n * SinPhi + nn * CosPhi)
     
      If y2 <= Thick + 0.5
        Application =  0.5 + Thick - y2
        If Application > 1
          Application = 1
        EndIf
        If x2 > -1 And x2 < Hypo + 1
          If x2 < 0
            Application * (1 + x2)
          ElseIf x2 > Hypo
            Application * (1 - x2 + Hypo)
          EndIf
        Else
          Application = 0
        EndIf
        If Application > 0
          If Application < 1
            Color_Found = Point(X + n * SignX, Y + nn * SignY)
            If Thickness < 6
              Plot(X + n * SignX, Y + nn * SignY, ColorBlending(Color, Color_Found, Application))
            Else
              Circle(X + n * SignX, Y + nn * SignY,Thickness/2, ColorBlending(Color, Color_Found, Application))
            EndIf
          Else
            If Thickness < 6
              Plot(X + n * SignX, Y + nn * SignY, Color)
            Else
              Circle(X + n * SignX, Y + nn * SignY,Thickness/2, Color)
            EndIf
          EndIf
        EndIf
      EndIf     
    Next
  Next
 
EndProcedure

Thickness = 20
Color = $FF0000

OpenWindow(0, 0, 0, 500, 500, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)

Repeat
  Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
            Quit = 1
            
      Case #WM_MOUSEMOVE
            If Flag = 1
              GetCursorPos_(p.POINT)
              ScreenToClient_(WindowID(0),p)
              If p\x > Thickness And p\x < (WindowWidth(0)-Thickness) And p\y > Thickness And p\y < (WindowHeight(0)-Thickness)          
                AAline(oldx,oldy,p\x,p\y,Color,Thickness)
              EndIf
            EndIf
            oldx=p\x
            oldy=p\y         
  
      Case #WM_LBUTTONDOWN            
            GetCursorPos_(p.POINT)
            ScreenToClient_(WindowID(0),p)            
            If p\x > Thickness And p\x < (WindowWidth(0)-Thickness) And p\y > Thickness And p\y < (WindowHeight(0)-Thickness)
              Flag = 1
              StartDrawing(WindowOutput(0))
              oldx=p\x
              oldy=p\y
            Else
              Flag = 0
              StopDrawing()
            EndIf
        
       Case #WM_LBUTTONUP
            If Flag = 1
              Flag = 0
              StopDrawing()
            EndIf
 
  EndSelect
 
Until Quit = 1