PureBoard

Code: Alles auswählen

Procedure PlotLine(x1.l,y1.l,x2.l,y2.l) 
    If x1 = 0 Or y1 = 0 Or x2 = 0 Or y2 = 0  
        ProcedureReturn 0 
    Else 
        dx.f = x2-x1 
        If dx<0 
            SignX = -1 
            dx = Abs(dx) 
        Else 
            SignX = 1 
        EndIf 
         
        dy.f = y2-y1 
        If dy<0 
            SignY = -1 
            dy = Abs(dy) 
        Else 
            SignY = 1 
        EndIf 
         
        Result = 1 
         
        If dy < dx 
            Stp.f = dy/dx 
            For n=0 To Int(dx)  
                If x => 0 And y => 0 
                    Plot(x,y) 
                EndIf 
            Next 
        Else 
            Stp.f = dx/dy 
            For n=0 To Int(dy)  
                x = x1+(n*Stp*SignX) 
                y = y1+(n*SignY) 
                If x => 0 And y => 0  
                    Plot(x,y) 
                EndIf  
            Next 
        EndIf 
         
        ProcedureReturn Result  
    EndIf  
EndProcedure

Code: Alles auswählen

OpenWindow(0, 100, 200, 300, 200, #PB_Window_SystemMenu, "2D Drawing Test")
If StartDrawing(WindowOutput())
   PlotLine(30,50,100,150)
   StopDrawing() 
EndIf

Repeat
    EventID = WaitWindowEvent() 
Until EventID = #PB_Event_CloseWindow

Code: Alles auswählen

If x1 = 0 Or y1 = 0 Or x2 = 0 Or y2 = 0  
  ProcedureReturn 0 
Else

Code: Alles auswählen

#xmax=800
#ymax=600

Code: Alles auswählen

If x => 0 and x< #xmax And y => 0 and y< #ymax
  Plot(x,y) 
EndIf