Forums PureBasic - Français
https://www.purebasic.fr/french/
Effectivement ^_^ En tout cas ça m'a réglé un problème de plantage que je m'expliquait pas avec la 5.71Marc56 a écrit :À noter que ce ne sont que des bugfix, aucune nouveautés.
C'est la première chose que j'ai vu aussiMarc56 a écrit :À noter que ce ne sont que des bugfix, aucune nouveautés.
en remplaçant la donnée par rien du coups, et donc en la virant carrément je pense que j'ai pas été le seul à en souffrir 
enfin "j’espère" 
et comme j'essaie de faire un code toujours le plus lisible possible....(quand on a pas de mémoire ça aide) et puis au moins si il marche pas, au minimum qu'il soit propre, mes codes, je leurs apprends à se laver les mains avant de venir à table 
si ce n'est que je sais pas depuis combien d'années, je n'ai pas vu une seule nouvelle fonction qui m'est vraiment utile en attendant, et juste pour info :Thyphoon a écrit :et surtout une fonction flip native...
Rhôôô ? Et le format GIF que tu as réclamé tous les jours pendant 10 ansAutrement pour moi tout allait bien
Le jour où il est apparu (v5.60 en 2017) tu as à peine bougé 
quand on compare au 37Mo de PB et tout ce qu'on peut faire avec 
sur le forum anglais/allemand il y a pas mal d'utilisateur Linux ....Marc56 a écrit : - Que l'équipe passe moins de temps à suivre les changements dus au Mac et à Linux (je me demande quel est le % d'utilisateur réel sur ces deux OS)
Oui j'ai vuZorro a écrit :en attendant, et juste pour info :Thyphoon a écrit :et surtout une fonction flip native...
Flip Sprite Old school
https://www.purebasic.fr/french/viewtop ... te#p205505
mais c'est quand même un peu lourdingue alors qu'on aurait ça de la même façon que transformsprite()...Code : Tout sélectionner
Procedure.i RotateImage(Image.i,Effect.l)
Protected Height.l = ImageHeight(Image)
Protected Width.l = ImageWidth(Image)
Protected TmpImage.i
If Height > Width
TmpImage = CreateImage(#PB_Any,Height,Height)
Else
TmpImage = CreateImage(#PB_Any,Width,Width)
EndIf
Dim p.point(2)
Protected GrabWidth.l,GrabHeight.l
Select Effect.l
Case 0
FreeImage(TmpImage)
ProcedureReturn Image
Case 1 ; Horizontal (normal)
FreeImage(TmpImage)
ProcedureReturn Image
Case 2 ; Mirror horizontal
p(0)\x=0
p(0)\y=Height
p(1)\x=Width
p(1)\y=Height
p(2)\x=0
p(2)\y=0
GrabWidth=Width
GrabHeight=Height
Case 3 ; Rotate 180
p(0)\x=Width
p(0)\y=Height
p(1)\x=0
p(1)\y=Height
p(2)\x=Width
p(2)\y=0
GrabWidth=Width
GrabHeight=Height
Case 4 ; Mirror vertical
p(0)\x=Width
p(0)\y=0
p(1)\x=0
p(1)\y=0
p(2)\x=Width
p(2)\y=Height
GrabWidth=Width
GrabHeight=Height
Case 5 ; Mirror horizontal And rotate 270 CW
p(0)\x=0
p(0)\y=0
p(1)\x=0
p(1)\y=Width
p(2)\x=Height
p(2)\y=0
GrabWidth=Height
GrabHeight=Width
Case 6 ; Rotate 90 CW
p(0)\x=Height
p(0)\y=0
p(1)\x=Height
p(1)\y=Width
p(2)\x=0
p(2)\y=0
GrabWidth=Height
GrabHeight=Width
Case 7 ; Mirror horizontal And rotate 90 CW
p(0)\x=0
p(0)\y=0
p(1)\x=0
p(1)\y=Width
p(2)\x=Height
p(2)\y=0
GrabWidth=Height
GrabHeight=Width
Case 8 ; Rotate 270 CW
p(0)\x=0
p(0)\y=Width
p(1)\x=0
p(1)\y=0
p(2)\x=Height
p(2)\y=Width
GrabWidth=Height
GrabHeight=Width
EndSelect
Protected Dc.i
Dc = StartDrawing(ImageOutput(TmpImage))
DrawImage(ImageID(Image),0,0)
PlgBlt_(Dc,p(),Dc,0,0,Width,Height,0,0,0)
StopDrawing()
FreeImage(Image)
Protected NewImage.i
NewImage = GrabImage(TmpImage,#PB_Any,0,0,GrabWidth,GrabHeight)
FreeImage(TmpImage)
Debug "GrabImage="+Str(NewImage)
ProcedureReturn NewImage
EndProcedure
Je trouve ça bien qu'on reste multiplatforme, ça donne des contraintes mais franchement j'aime l'ouverture...Marc56 a écrit : - Que l'équipe passe moins de temps à suivre les changements dus au Mac et à Linux (je me demande quel est le % d'utilisateur réel sur ces deux OS)
Tu as tout dis entre parenthèseMarc56 a écrit :j'ai apprécié récemment (bon, 5 ans):
Je suis obligé moi aussi d'essayer d'utiliser VS2015 actuellement, et plus je le fais, plus je benni PB et FRED, car on est maintenant dans "l'obésiciel"Marc56 a écrit :L'autre jour, j'ai voulu, télécharger je ne sais plus quelle version de visual studio (de base): image: 7Go! non mais ça va plus chez les editeurs
alors c'est sûr que CROCRO a encore un bel avenir devant lui si une partie de ses "ex détracteurs" utilisent ses langages, tout ça parce qu'il est devenu gratuit et a une panoplie d'utilitaires qui sont, on doit le dire... au top..mais à quel prix de gigas et de lourdeurs 