drop-dot.pb

;План
;Проверяем не нажал ли пользователь на саму линию (формулы вычисления линии?)

;Пишем прогу, которая рисует линии. 
;нажимаем первый раз на мышь - ставится первая точка, от неё тянется линия. 
;нажимаем второй раз - линия прекращает следовать за мышкой и остаётся видна на экране. как в AutoCAD. 
;сохраняется лог положения линии, чтобы потом из него можно было собрать процедурный рисунок

;Далекое будущее
;возможность изменять уже нарисованную линию, кликнув по самой линии
;заливка 
;изменение масштаба
;редактор пиксельной графики (рисование квадратами) only после изучения изменения масштаба

v$ = "v0.4"
OpenWindow(13,#PB_Ignore,#PB_Ignore,300,300,"Pain-t "+v$, #PB_Window_SystemMenu | #PB_Window_ScreenCentered )
CanvasGadget(13,0,0,300,300)
StartDrawing(CanvasOutput(13))
X = 30
Y = 30
R = 10
Circle(X,Y,R,$000)
X2 = 50
Y2 = 60
Circle(X2,Y2,R,$000)
LineXY(X,Y,X2,Y2,$000)
StopDrawing()
Repeat
  event = WaitWindowEvent()
  If Event = #PB_Event_Gadget And EventGadget() = 13
    ;If EventType() = #PB_EventType_LeftButtonDown Or (EventType() = #PB_EventType_MouseMove And GetGadgetAttribute(13, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton)
    If EventType() = #PB_EventType_LeftButtonDown
      X1R = GetGadgetAttribute(13, #PB_Canvas_MouseX)
      Y1R = GetGadgetAttribute(13, #PB_Canvas_MouseY)
      If X1R < X+R And X1R > X-R And Y1R < Y+R And Y1R > Y-R 
        Debug "popal"
        popal = 1
      Else
        popal = 0
      EndIf
      If X1R < X2+R And X1R > X2-R And Y1R < Y2+R And Y1R > Y2-R 
        Debug "popal2"
        popal2 = 1
      Else
        popal2 = 0
      EndIf
    ElseIf popal And EventType() = #PB_EventType_LeftButtonUp
      Debug "moved"
      StartDrawing(CanvasOutput(13))
      Circle(X,Y,R,$ffffff)
      LineXY(X,Y,X2,Y2,$ffffff)
      X = GetGadgetAttribute(13, #PB_Canvas_MouseX)
      Y = GetGadgetAttribute(13, #PB_Canvas_MouseY)
      Circle(X,Y,R,$000000)
      LineXY(X,Y,X2,Y2,$000)
      StopDrawing()
    ElseIf popal2 And EventType() = #PB_EventType_LeftButtonUp
      Debug "moved"
      StartDrawing(CanvasOutput(13))
      Circle(X2,Y2,R,$ffffff)
      LineXY(X,Y,X2,Y2,$ffffff)
      X2 = GetGadgetAttribute(13, #PB_Canvas_MouseX)
      Y2 = GetGadgetAttribute(13, #PB_Canvas_MouseY)
      Circle(X2,Y2,R,$000000)
      LineXY(X,Y,X2,Y2,$000)
      StopDrawing()
    EndIf
  EndIf
Until event = #PB_Event_CloseWindow