PureBasic

Code : Tout sélectionner

If StartDrawing(WindowOutput(0))
      		
      			Line(0, 210, 600, 0, RGB(67, 126, 188))
      		
      			StopDrawing() ;  C'est absolument indispensable quand les opérations de dessins sont terminées !!! Ne jamais l'oublier !
      			
    	EndIf

Code : Tout sélectionner

      For Epaisseur = -2 To 2
               Line(0, 210+Epaisseur, 600, 0, RGB(67, 126, 188))
            Next 
               StopDrawing() ;  C'est absolument indispensable quand les opérations de dessins sont terminées !!! Ne jamais l'oublier !
               

Code : Tout sélectionner

  If OpenWindow(0, 0, 0, 200, 200, "Lignes", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)   
    If StartDrawing(WindowOutput(0))
    
     For a = 10 To 20 ; ont crée une boucle qui rend la valeur de 10 a 20 donc a reçoit 10
        Line(0, a, 200, 0 ,RGB(255,0,0)); la ont remplace la valeur de x par a donc x = 10 jusqu'a 20 donc le programme dessines 10 lignes l'une en dessous de l'autre.
        Line(0, 80+a/2, 200, 0 ,RGB(255,0,0)); ont refait la meme operation en divisant a par 2 donc a = 5. mais ont commance la ligne a x = 80  
     Next

     StopDrawing()
    EndIf
    
    Repeat : Event = WaitWindowEvent() : Until  Event = #PB_Event_CloseWindow
  EndIf

Code : Tout sélectionner

Procedure Ligne(x,y,x1,y1,Width,color) 
   GetWindowRect_(WindowID(0),r.RECT)
   pen=CreatePen_(#PS_SOLID,Width,color)  ; style : #Ps_dash, #Ps_dot,etc
   penOld=SelectObject_(DC,pen) 
   MoveToEx_(DC,x,y,0):LineTo_(DC,x1,y1) 
   DeleteObject_(pen) 
   DeleteObject_(penOld) 
EndProcedure  

Procedure DrawRText(DC.l,x,y,Text.s,fFont.s,fangle.l,fHeight) 
;#####################################################################
; Procedure DrawRText  Author: Andreas
; Date: 14. June 2003
;#####################################################################
  Font = CreateFont_(fHeight,0,fangle*10,0,0,0,0,0,0,0,0,0,0,fFont) 
  GetWindowRect_(WindowID(0),r.RECT) 
  OldFont = SelectObject_(DC,Font) 
  SetTextAlign_(DC,#TA_BASELINE) 
  SetBkMode_(DC,#TRANSPARENT) 
  SetTextColor_(DC,RGB(0,0,255))
  ExtTextOut_(DC, x,y,0 ,r,Text,Len(Text),0 ) 
  SelectObject_(DC,OldFont) 
  DeleteObject_(Font) 
EndProcedure

Procedure Cercle(x,y,x1,y1,Width,color) 
   GetWindowRect_(WindowID(0),r.RECT)
   pen=CreatePen_(#PS_DASH,Width,color)    ;style : #Ps_dash, #Ps_dot, etc
   penOld=SelectObject_(DC,pen) 
   Ellipse_(DC,x,y,x1,y1)
   DeleteObject_(pen) 
   DeleteObject_(penOld) 
EndProcedure