A+
Guimauve
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