PureBasic

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Dessiner un quadrillage -- Exemple d'utilisation
; Version 1.00
; Programmation = Ok
; Programmé par : Guimauve
; Date : 25 décembre 2004
; Codé avec PureBasic V3.92
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Procédure ajouter un quadrillage sur un image soit chargé, soit créé par le programme
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Procedure DrawMapGrid(Largeur.w, Hauteur.w, Distance.w, CouleurLigne.l, Output.l)
     
     If StartDrawing(Output)
               ; Dessin des lignes extérieures
               DrawingMode(4)
               Box(0, 0, Largeur, Hauteur, CouleurLigne)
               ; dessin des lignes horizontales
               For line = 0 To Hauteur / Distance
                    LineXY(0, posY, Largeur, posY, CouleurLigne)
                    posY + Distance ; On incrémente pour la ligne suivante
               Next
               ; dessin des lignes verticales
               For line = 0 To Largeur / Distance
                    LineXY(posX, 0, posX, Hauteur, CouleurLigne)
                    posX + Distance ; On incrémente pour la ligne suivante
               Next
          StopDrawing()
          
     EndIf
EndProcedure

If OpenWindow(0, 0, 0, 410,310, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Quadrillage")
     
     CreateImage(1, 400, 300)
     StartDrawing(ImageOutput())
          Box(0, 0, 400, 300, RGB(255, 255, 000))
     StopDrawing()
     DrawMapGrid(400, 300, 10, RGB(105, 105, 105), ImageOutput())
     
     
     If CreateGadgetList(WindowID(0))
          ImageGadget(25, 5, 5, 0, 0, UseImage(1))
     EndIf
     Repeat : EventID = WaitWindowEvent() : Until EventID = #PB_Event_CloseWindow
EndIf