PureBasic

*Merci dobro pour le code de comtois , je ne l’avais pas vue avant ,en tout cas son algorithme et bien plus rapide que le mien.

*et merci aussi olivier tes mots sont vraiment moralisant,(la prochaine fois je vais pensé a mettre les choses dans leur plaçes.)

la procedure s'appel " ligne(x1,y1,x2,y2,Epaisseur,coleur)
il permet de tracer une ligne toute en controlant l'epaisseur
voila un exemple qui l'illustre:

presser space pour ajouter un point .(Nb la procedure est gourmente)


;-----------spirit--------------------
Procedure.f angle(x1.f,y1.f,xc.f ...

InitSprite()
InitSound()
InitKeyboard()
InitMouse()
Structure fg
n.w
x.f
y.f
w.f
s.w
EndStructure
Global nb,wna,wnb
Procedure Open_Window_0()
If OpenWindow(0, 381, 226, 316, 205, "select", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(0 ...