Hello ^^ bon alors je pose mon sac et je vous dis tout dans 1 minute 
alors voila j'ai crée ce petit code pour permettre de voir different effet de figure géometrique . Inserer ce petit code dans votre petit outils puissant qu'est pure basic (Oups Pure Basic) Voici le code Code : Tout sélectionner
;Routine tuto effect crée par garzul
InitSprite() : InitKeyboard()
IncludeFile "Math+.pb"
;Ouvre un écran de 1024* 768 en 32 bits
OpenScreen(1024,768,32,"")
;Cercle en plot
Centrexp = 512
Centreyp = 384
Rayonp = 256
Anglep = 600 ; <======= Si on change ceci avec des valeur differente vous cree des different effet (Ma routine)
;On peut mettre la valeur a 1 pour crée directement un cercle :)
;Boucle
Repeat
;Efface l'écran
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
DrawingMode(1)
;Fixe la couleur et la visualisation du numero de la figure
FrontColor(0, 0, 180)
Locate(0,0)
DrawText("Figure no°"+ Str(Anglep))
Locate(0,30)
DrawText("Grosseur (+ / -) = " + Str(Rayonp))
For AngleCercle = 0 To 5000
x = centrexp + Rayonp * Gsin(anglecercle)
y = centreyp + Rayonp * gcos(Anglep * anglecercle)
Plot(x,y,RGB($07,$0B,$BF))
Next AngleCercle
StopDrawing()
ExamineKeyboard()
;Changement d'effet en appuyant sur la touche droite
If KeyboardReleased(#Pb_Key_Right)
Anglep + 1
EndIf
If KeyboardReleased(#Pb_Key_Left)
Anglep - 1
EndIf
If KeyboardPushed(#PB_Key_Add)
Rayonp + 1
EndIf
If KeyboardPushed(#PB_Key_Subtract)
Rayonp - 1
EndIf
If Rayonp > 380
Rayonp = 380
EndIf
If Rayonp < 0
Rayonp = 0
EndIf
FlipBuffers(1)
; Fin du programme
Until KeyboardPushed(#PB_Key_Escape)
End
. Donc pour faire changer les differente figure appuyer sur les touche flecher et pour faire grossir la figure appuyer sur + / - .Voila dite moi ce que vous en pensez puis j'ai coder une petite librairie qui permet de faire pareil en tapant cela dans l'éditeur Cercle(Rayonducercle , Effet)
Ceci permet de cree un cercle trés rapidement et de lui ajouter des effet en plaçant la valeur correspondante a l'effet Ex : 0 = Crée un cercle ou 1 = Crée une courbe interieur
voila en plus pas besoin de placer des startdrawing() a l'interieur car la commande inclu le starddrawing() donc voila amusez vus bien et tenez ma librairie (Pour la placer vous devez la telecharger puis faire un include pour que la comande marche le lien pour la dll et : http://consolpcgame.ifrance.com/consolp ... /Cercle.pbvoila l'url pour ma librairie et pour l'exemple ====>
Code : Tout sélectionner
;Essaie de ma routine de création de cercle avec effet modifiable
InitSprite() : InitKeyboard()
OpenScreen(1024,768,32,"")
IncludeFile "Cercle.pb"
Rayonducercle = 200
Repeat
;Efface l'écran
ClearScreen(0,0,0)
Cercle(Rayonducercle , Effet) ; Par default pour faire un cercle mettez la valeur 0 pour effet :) (Garzul)
FlipBuffers(1)
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End
La commande du lien sur le forum a un pb alors je poste le lien pour dll ma librairie ici