2DDrawing Box

[rndrei]

How to draw an unnecessary square?
You can draw lines, but I think maybe there is a built -in solution?

Code: Select all

#canvas=1
If Not OpenWindow(0, 0, 0, 1900, 900, "Gadget BOX", #PB_Window_SystemMenu)
   End
EndIf
CanvasGadget(#canvas, 0, 0, 1000, 900)  
If StartDrawing(CanvasOutput(#canvas))
    Box(0,0,100,200,#Black) 
    StopDrawing()
EndIf
Repeat 
   Gadget = EventGadget()
Until WaitWindowEvent() = #PB_Event_CloseWindow

[jacdelad]

Code: Select all

DrawingMode(#PB_2DDrawing_Outlined)

[miso]

Code: Select all

#canvas=1
If Not OpenWindow(0, 0, 0, 1900, 900, "Gadget BOX", #PB_Window_SystemMenu)
   End
EndIf
CanvasGadget(#canvas, 0, 0, 1000, 900)  
If StartDrawing(CanvasOutput(#canvas))
  Box(0,0,100,200,#Black) 
  Box(10,10,80,180,#White)
  StopDrawing()
EndIf

If StartDrawing(CanvasOutput(#canvas))
  DrawingMode(#PB_2DDrawing_Outlined)
  Box(300,300,100,200,#Black) 
  StopDrawing()
EndIf

Repeat 
   Gadget = EventGadget()
Until WaitWindowEvent() = #PB_Event_CloseWindow

[threedslider]

Code: Select all

#canvas=1
If Not OpenWindow(0, 0, 0, 1900, 900, "Gadget BOX", #PB_Window_SystemMenu)
   End
EndIf
CanvasGadget(#canvas, 0, 0, 1000, 900)  
If StartDrawing(CanvasOutput(#canvas))
  ;Box(0,0,100,200,#Black) 
  For y=0 To 200
    For x=0 To 100
      If y = 0
        Plot(x+50, y+50, #Black)
      ElseIf y <= 200 And x=0
        Plot(x+50, y+50, #Black)
      ElseIf y<= 200 And x=100
        Plot(x+50, y+50, #Black)
      ElseIf y=200
        Plot(x+50, y+50, #Black)
      EndIf      
    Next
  Next
  
  StopDrawing()
EndIf
Repeat 
   Gadget = EventGadget()
Until WaitWindowEvent() = #PB_Event_CloseWindow

I make the extra position for seeing the box in lines