Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Re: Pour les fous de graphisme...la spirale infernale
J'ai essayé qques trucs sous pb4.30, rien trouvé désolé.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Pour les fous de graphisme...la spirale infernale
Merci beaucoup à vous deux.
@Mdsv41
Oui tu as raison la forme n'est pas la meme
C'est une bonne piste ton truc, je vais creuser merci
@Ars
C'est pas grave, si un miracle avait pu etre possible
Vu que moi rien ne me cause en graphisme, je m'etais dit que peut etre "quinquin" qui en fait un peu verrait ce qui coince
@Mdsv41
Oui tu as raison la forme n'est pas la meme
C'est une bonne piste ton truc, je vais creuser merci
@Ars
C'est pas grave, si un miracle avait pu etre possible
Vu que moi rien ne me cause en graphisme, je m'etais dit que peut etre "quinquin" qui en fait un peu verrait ce qui coince
-
- Messages : 4312
- Inscription : mer. 28/janv./2004 20:58
- Localisation : Clermont ferrand OU Olsztyn
- Contact :
Re: Pour les fous de graphisme...la spirale infernale
Juste histoire de faire râler KCC, tu ne veux pas une tornade à la place d'une spirale ??
regarde, je me suis amusé a faire ça. C'est vos histoires de spirale qui m'en ont donné l'idée.
(Faut patienter un peu pour faire la tornade se construire, ça doit marcher sous PB4.31 aussi, il faut juste adapter la fonction openwindowedscreen)
regarde, je me suis amusé a faire ça. C'est vos histoires de spirale qui m'en ont donné l'idée.
(Faut patienter un peu pour faire la tornade se construire, ça doit marcher sous PB4.31 aussi, il faut juste adapter la fonction openwindowedscreen)
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 4.40
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.
#FL = 300 ; Taille de la fenêtre
#FH = 300
#Tx = 150 ; Centre de la tornade
#Ty = 150
#Tr = 120 ; Rayon de la tornade
#Td = 20 ; Dispersion des points de la tornade
#Tmin = 20 ; Rayon minimum de la tornade
Structure ElementTornade
x.f ; Position réelle
y.f
xd.i ; Position pour le dessin
yd.i
vx.f ; Vitesse
vy.f
Vie.i ; Durée de vie
EndStructure
Global NewList Tornade.ElementTornade()
Structure GraviteInfo
ax.f ; Accélération
ay.f
d.f ; Distance
Couleur.i
EndStructure
Global Dim Gravite.GraviteInfo(#FL, #FH)
; Pré calcul de la gravité qui va permettre de générer la tornade
For x = 0 To #FL - 1
For y = 0 To #FH - 1
dx = #Tx - x
dy = #Ty - y
Gravite(x, y)\d.f = Sqr(dx * dx + dy * dy)
If Gravite(x, y)\d > 0
Gravite(x, y)\ax = dx / Gravite(x, y)\d / Gravite(x, y)\d
Gravite(x, y)\ay = dy / Gravite(x, y)\d / Gravite(x, y)\d
Gravite(x, y)\Couleur = (255 + #Tmin * 2) * Sqr(Gravite(x, y)\d / #Tr) - #Tmin * 2
If Gravite(x, y)\Couleur > 255
Gravite(x, y)\Couleur = 255
ElseIf Gravite(x, y)\Couleur < 0
Gravite(x, y)\Couleur = 0
EndIf
Gravite(x, y)\Couleur = RGB(Gravite(x, y)\Couleur, Gravite(x, y)\Couleur, Gravite(x, y)\Couleur)
EndIf
Next
Next
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, #FL, #FH, "Tornade", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
End
EndIf
If InitSprite() = 0
End
EndIf
If OpenWindowedScreen(WindowID(0), 0, 0, #FL, #FH, 1, 0, 0, #PB_Screen_WaitSynchronization) = 0
End
EndIf
CreateSprite(0, #FL, #FH)
StartDrawing(SpriteOutput(0))
For x = 0 To #FL - 1
For y = 0 To #FH - 1
Plot(x, y, Gravite(x, y)\Couleur)
Next
Next
StopDrawing()
AddWindowTimer(0, 0, 40)
Repeat
Repeat
Event = WaitWindowEvent(1)
Select Event
Case #PB_Event_Timer
If EventTimer() = 0
AddElement(Tornade())
Tornade()\x = #Tx
Tornade()\y = #Ty - #Tr - #Td + Random(#Td * 2)
Tornade()\xd = Tornade()\x
Tornade()\yd = Tornade()\y
Tornade()\vx = 1
AddElement(Tornade())
Tornade()\x = #Tx
Tornade()\y = #Ty + #Tr - #Td + Random(#Td * 2)
Tornade()\xd = Tornade()\x
Tornade()\yd = Tornade()\y
Tornade()\vx = -1
AddElement(Tornade())
Tornade()\x = #Tx + #Tr - #Td + Random(#Td * 2)
Tornade()\y = #Ty
Tornade()\xd = Tornade()\x
Tornade()\yd = Tornade()\y
Tornade()\vy = 1
AddElement(Tornade())
Tornade()\x = #Tx - #Tr - #Td + Random(#Td * 2)
Tornade()\y = #Ty
Tornade()\xd = Tornade()\x
Tornade()\yd = Tornade()\y
Tornade()\vy = -1
EndIf
EndSelect
Until Event = #PB_Event_CloseWindow Or Event = 0
ClearScreen(0)
DisplaySprite(0, 0, 0)
StartDrawing(ScreenOutput())
ForEach Tornade()
Tornade()\vx + Gravite(Tornade()\xd, Tornade()\yd)\ax
Tornade()\vy + Gravite(Tornade()\xd, Tornade()\yd)\ay
Tornade()\vx * 0.999
Tornade()\vy * 0.999
Tornade()\x + Tornade()\vx
Tornade()\y + Tornade()\vy
Tornade()\xd = Tornade()\x
Tornade()\yd = Tornade()\y
If Gravite(Tornade()\xd, Tornade()\yd)\d < #Tmin
DeleteElement(Tornade())
EndIf
Next
ForEach Tornade()
Circle(Tornade()\xd, Tornade()\yd, 3, Gravite(Tornade()\xd, Tornade()\yd)\Couleur)
Next
DrawText(0, 0, Str(ListSize(Tornade())), $00FF00, 0)
StopDrawing()
FlipBuffers()
Until Event = #PB_Event_CloseWindow
RemoveWindowTimer(0, 0)
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Pour les fous de graphisme...la spirale infernale
Nadine boudin, "c'qu'est lai belle"
Au debut, on se dit...bof...mais apres quand elle se forme......
C'est la premiere fois que je tombe en admiration devant un trou noir
Enfin, peut etre la deuxieme fois, en fait
La premiere fois, je ne peux pas vous en parler, car FRED ou meme toi seront obligé de locker le POST
Le graphisme, c'est splendide..on a du mal a croire qu'avec des *, +, - et quelque variables on puisse en arriver a créer ce genre d'animation
Merci mille fois de ton cadeau soldat
Pour l'instant, j'ai reculé dans mon programme, j'suis dégouté, y marchait au poil, mais comme j'ai lu par ci et par la que la fonction ReceiveNetworkFile n'etait pas fiable au point que FRED voulait passé un temps la supprimer, et que la seule methode fiable etait les ReceiveData.....
Et bien j'ai décidé, car comme tout le monde le sait...Kcc il a pas de pétrole mais il a "Des Cidé", de changer le moteur de mon programme, pour plus de certitude.
En plus cette fonction, on a pas la main dessus, on sait pas quand c'est arrivé, si c'est complet...etc ...
Alors hier toute la journée, j'ai tenté de changer le centre du programme.
Seulement le bleme, c'est que quand tu as construit tout autour du moteur....pas facile a changer les fondations d'une maison en gardant les murs
Donc ....j'ai reculé, ma super idée ne marche plus
En plus cette histoire de 4.30 et 4.40 ça commence a me les briser menu menu
Toi non plus le roi du graphisme t'as pas un avis sur pourquoi mon code y marche qu'en 4.40 ????
J'ai pas eu le temps de regarder l'idée de directX de MDSV41...je pense que c'est une bonne piste....
Et si un jour mon programme marche, peut etre que sur une version superieure si il y a , je mettrais ton splendide code
En tout cas moi j 'adore....mon PC lui y me souffle a la gueule...ça doit tourner a donf les calculs...parfois je rajoute quelques delay dans les boucles pour aretter mon PC qui se prend pour un chauffage de salle de bain
En tout cas encore merci...je garde bien ton "trou noir" comme j'ai gardé en mémoire le premier que j'ai rencontré
Au debut, on se dit...bof...mais apres quand elle se forme......
C'est la premiere fois que je tombe en admiration devant un trou noir
Enfin, peut etre la deuxieme fois, en fait
La premiere fois, je ne peux pas vous en parler, car FRED ou meme toi seront obligé de locker le POST
Le graphisme, c'est splendide..on a du mal a croire qu'avec des *, +, - et quelque variables on puisse en arriver a créer ce genre d'animation
Merci mille fois de ton cadeau soldat
Pour l'instant, j'ai reculé dans mon programme, j'suis dégouté, y marchait au poil, mais comme j'ai lu par ci et par la que la fonction ReceiveNetworkFile n'etait pas fiable au point que FRED voulait passé un temps la supprimer, et que la seule methode fiable etait les ReceiveData.....
Et bien j'ai décidé, car comme tout le monde le sait...Kcc il a pas de pétrole mais il a "Des Cidé", de changer le moteur de mon programme, pour plus de certitude.
En plus cette fonction, on a pas la main dessus, on sait pas quand c'est arrivé, si c'est complet...etc ...
Alors hier toute la journée, j'ai tenté de changer le centre du programme.
Seulement le bleme, c'est que quand tu as construit tout autour du moteur....pas facile a changer les fondations d'une maison en gardant les murs
Donc ....j'ai reculé, ma super idée ne marche plus
En plus cette histoire de 4.30 et 4.40 ça commence a me les briser menu menu
Toi non plus le roi du graphisme t'as pas un avis sur pourquoi mon code y marche qu'en 4.40 ????
J'ai pas eu le temps de regarder l'idée de directX de MDSV41...je pense que c'est une bonne piste....
Et si un jour mon programme marche, peut etre que sur une version superieure si il y a , je mettrais ton splendide code
En tout cas moi j 'adore....mon PC lui y me souffle a la gueule...ça doit tourner a donf les calculs...parfois je rajoute quelques delay dans les boucles pour aretter mon PC qui se prend pour un chauffage de salle de bain
En tout cas encore merci...je garde bien ton "trou noir" comme j'ai gardé en mémoire le premier que j'ai rencontré
-
- Messages : 4312
- Inscription : mer. 28/janv./2004 20:58
- Localisation : Clermont ferrand OU Olsztyn
- Contact :
Re: Pour les fous de graphisme...la spirale infernale
Alors la différence graphique entre 4.3 et 4.4, c'est un bug, on ne peut pas dessiner de Circle avec un Rayon de 1
voilà la spirale corrigée
tu peux choisir le nombre de "bras" de la spirale et l'épaisseur des "bras"
ensuite, j'ai vu 2 trucs que j'aime pas trop dans le code.
- Premièrement, il y a 2 flipbuffers, donc tu dois t'arranger pour en avoir que 1 seul
- Ensuite, tu as 2 delai de 1 ms. Tu gardes le WaitWindowEvent(1) et tu supprimes le delay(1) qui fait doublon
Code de la spirale uniquement
voilà la spirale corrigée
tu peux choisir le nombre de "bras" de la spirale et l'épaisseur des "bras"
ensuite, j'ai vu 2 trucs que j'aime pas trop dans le code.
- Premièrement, il y a 2 flipbuffers, donc tu dois t'arranger pour en avoir que 1 seul
- Ensuite, tu as 2 delai de 1 ms. Tu gardes le WaitWindowEvent(1) et tu supprimes le delay(1) qui fait doublon
Code de la spirale uniquement
Code : Tout sélectionner
If InitSprite() = 0 Or InitSprite3D()=0
MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
End
EndIf
If OpenWindow(0, 0, 0, 240, 240, "Un écran dans une fenêtre...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 170, 135, 45, 20, "Quitter")
If OpenWindowedScreen(WindowID(0), 0, 0, 240, 240, 0, 0, 0)
Sprite3DQuality(#PB_Sprite3D_BilinearFiltering)
size=Sqr(240*240+240*240)
CreateImage(0, size * 2, size * 2, 24)
NbBras = 3
EpaisseurBras = 16
If StartDrawing(ImageOutput(0))
For x = 0 To size * 2 - 1
For y = 0 To size * 2 - 1
dx.f = x - size
dy.f = y - size
d.f = Sqr(dx * dx + dy * dy)
angle.f = ACos(dx / d)
If dy < 0
angle = 2 * #PI - angle
EndIf
position = Round(d / EpaisseurBras - NbBras * angle / #PI, #PB_Round_Nearest)
If position & %1 ; si position est paire
Plot(x, y, $FFFFFF)
EndIf
Next
Next
StopDrawing()
ResizeImage(0, size, size)
CreateSprite(0, size, size,#PB_Sprite_Texture)
If StartDrawing(SpriteOutput(0))
DrawImage(ImageID(0), 0, 0)
StopDrawing()
FreeImage(0)
CreateSprite3D(0,0)
EndIf
EndIf
Else
MessageRequester("Erreur", "Impossible d'ouvrir un écran dans la fenêtre!", 0)
End
EndIf
EndIf
Repeat
Repeat
Event = WaitWindowEvent(1)
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
Until Event = 0
ClearScreen(0)
Start3D()
RotateSprite3D(0,ElapsedMilliseconds()/5,0)
DisplaySprite3D(0, (240-size)/2, (240-size)/2)
Stop3D()
FlipBuffers()
ForEver
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Pour les fous de graphisme...la spirale infernale
Soldat...t'est vraiment un caid en dessin
En d'autres choses aussi, mais le dessin, je sais tellement pas en faire, que ça m'epate toujours plus que le reste.
Elle est parfaite ta spirale, pas un poil qui depasse...quoi que dans certaines conditions bien particulieres, c'est pas mal aussi quand ça depasse
Je l'ai regardé quelques secondes et j'avais la tete qui tourne
Je remercie encore TYPHOON de son gentil cadeau, mais si j'arrive a faire tourner l'icone dedans....je crois bien que je vais adopter la tienne si tu le veut bien.
En tout cas vous etes vraiment tous gentil de m'aider dans ce monde ou j'ai encore meme pas trouvé la poignée de la porte pour y entrer
C'est quand meme un comble pour quelqu'un qui aime les GIFS et les images statiques
Mais c'est tellement compliqué et j'suis tellement nul en math...que je voudrais en connaitre un peu plus en programmation avant de me lancer dans un domaine qui va encore plus me perturber.
Ca n'empeche pas d'avoir des envies de graphismes, ou plutot devrais-je dire des idées..et c'est vrai que pour mon transfert de fichier.....cette spirale et cet anneau, ça apporte un sacré plus a l'appli....
Quelques boing boing et sluuurp de plus ....et mes collegues y me prennent pour "bill gates".....
Y sont marrant les gens...tu leur dit que tu es bon.....y t'envoient chier....(Remarque j'ai pas souvent à le dire donc ça va )
Je leur dit que je suis mauvais.....ce que je continue a me rendre compte au regards de vos codes et ceux du US....et ben y croient que c'est de la fausse modestie.
Ou alors y disent, tu te denigre trop...
En fin de compte etre realiste ...c'est pas bon dans le monde de maintenant
Alors que la vérité, ce serait de me dire.....en programmation t'es un rigolo.....mais dans la vie aussi, c'est ce qui te sauve
Encore merci soldat...icone dans la spirale .....me voilaaaaaaaaaaaa !!!!!!
En d'autres choses aussi, mais le dessin, je sais tellement pas en faire, que ça m'epate toujours plus que le reste.
Elle est parfaite ta spirale, pas un poil qui depasse...quoi que dans certaines conditions bien particulieres, c'est pas mal aussi quand ça depasse
Je l'ai regardé quelques secondes et j'avais la tete qui tourne
Je remercie encore TYPHOON de son gentil cadeau, mais si j'arrive a faire tourner l'icone dedans....je crois bien que je vais adopter la tienne si tu le veut bien.
En tout cas vous etes vraiment tous gentil de m'aider dans ce monde ou j'ai encore meme pas trouvé la poignée de la porte pour y entrer
C'est quand meme un comble pour quelqu'un qui aime les GIFS et les images statiques
Mais c'est tellement compliqué et j'suis tellement nul en math...que je voudrais en connaitre un peu plus en programmation avant de me lancer dans un domaine qui va encore plus me perturber.
Ca n'empeche pas d'avoir des envies de graphismes, ou plutot devrais-je dire des idées..et c'est vrai que pour mon transfert de fichier.....cette spirale et cet anneau, ça apporte un sacré plus a l'appli....
Quelques boing boing et sluuurp de plus ....et mes collegues y me prennent pour "bill gates".....
Y sont marrant les gens...tu leur dit que tu es bon.....y t'envoient chier....(Remarque j'ai pas souvent à le dire donc ça va )
Je leur dit que je suis mauvais.....ce que je continue a me rendre compte au regards de vos codes et ceux du US....et ben y croient que c'est de la fausse modestie.
Ou alors y disent, tu te denigre trop...
En fin de compte etre realiste ...c'est pas bon dans le monde de maintenant
Alors que la vérité, ce serait de me dire.....en programmation t'es un rigolo.....mais dans la vie aussi, c'est ce qui te sauve
Encore merci soldat...icone dans la spirale .....me voilaaaaaaaaaaaa !!!!!!
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Nadine zobi.....j'suis comme un dingue avec ce programme
Quand j'essaye de faire marcher la spirale, c'est le FTP qui merde...et maintenant que j'essaye de passer en 4.40, car le gentil CLS il essaye de me dépanner sur le FTP, et comme il me donne du 4.40 ....
Et ben cette fois c'est ton génial code qui marche pas
Deja que le code de typhoon, y marchait pas en 4.30, maintenant c'est le tiens qui marche pas en 4.40
J'ai perdu ta spirale....ça fait un autre effet cool....mais l'eau dans un WC, j'ai bien regardé chez moi elle fait pas les memes vagues que ton code en v4.40 .....
Tu pourrais me dire ce qui va pas cette fois avec ton code en V4.40, s'il te plait ????
FRED !!!!! c'est quand la prochaine version !!!!
PArce que je crois que je vais avoir piscine ..... ce jour la...
Quand j'essaye de faire marcher la spirale, c'est le FTP qui merde...et maintenant que j'essaye de passer en 4.40, car le gentil CLS il essaye de me dépanner sur le FTP, et comme il me donne du 4.40 ....
Et ben cette fois c'est ton génial code qui marche pas
Deja que le code de typhoon, y marchait pas en 4.30, maintenant c'est le tiens qui marche pas en 4.40
J'ai perdu ta spirale....ça fait un autre effet cool....mais l'eau dans un WC, j'ai bien regardé chez moi elle fait pas les memes vagues que ton code en v4.40 .....
Tu pourrais me dire ce qui va pas cette fois avec ton code en V4.40, s'il te plait ????
FRED !!!!! c'est quand la prochaine version !!!!
PArce que je crois que je vais avoir piscine ..... ce jour la...
-
- Messages : 4312
- Inscription : mer. 28/janv./2004 20:58
- Localisation : Clermont ferrand OU Olsztyn
- Contact :
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
c'est du 4.40 alors je ne vois pas pourquoi ça ne marcherais pas
donne ton code complet (si c'est possible)
donne ton code complet (si c'est possible)
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Merci soldat d'avoir entendu mon apel à l'aide...
En ce moment je mobilise tout le forum
Alors la c'est plus fort que le fromage fort, ........"c'tte histoire"
Moi sur mon pc ton code sans rien y toucher en 4.30 ça me donne :
Et en, 4.40 le meme code me donne ça
En fait j'ai cru que c'etait mes bidouilles FTP qui avait foiré ton bijou...alors pendant une heure j'ai encore tout défoncé mon code......
Puis a force de pas trouver....et apres que mon code ressemble a un terrain de manoeuvre, je me suis dit :
"Tiens !!!! essaye voir directement le code du soldat en 4.40 ????"
Grand bien m'en a pris....c'est encore la faute de FRED cette histoire, qui me donne des aigreurs et me fait roter noir dans mon bureau, à tel point qu'on dirait que j'ai remonté la poubelle de l'immeuble dans les couloirs
Voici ton code, pas touché
En ce moment je mobilise tout le forum
Alors la c'est plus fort que le fromage fort, ........"c'tte histoire"
Moi sur mon pc ton code sans rien y toucher en 4.30 ça me donne :
Et en, 4.40 le meme code me donne ça
En fait j'ai cru que c'etait mes bidouilles FTP qui avait foiré ton bijou...alors pendant une heure j'ai encore tout défoncé mon code......
Puis a force de pas trouver....et apres que mon code ressemble a un terrain de manoeuvre, je me suis dit :
"Tiens !!!! essaye voir directement le code du soldat en 4.40 ????"
Grand bien m'en a pris....c'est encore la faute de FRED cette histoire, qui me donne des aigreurs et me fait roter noir dans mon bureau, à tel point qu'on dirait que j'ai remonté la poubelle de l'immeuble dans les couloirs
Voici ton code, pas touché
Code : Tout sélectionner
If InitSprite() = 0 Or InitSprite3D()=0
MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
End
EndIf
If OpenWindow(0, 0, 0, 240, 240, "Un écran dans une fenêtre...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 170, 135, 45, 20, "Quitter")
If OpenWindowedScreen(WindowID(0), 0, 0, 240, 240, 0, 0, 0)
Sprite3DQuality(#PB_Sprite3D_BilinearFiltering)
size=Sqr(240*240+240*240)
CreateImage(0, size * 2, size * 2, 24)
NbBras = 3
EpaisseurBras = 16
If StartDrawing(ImageOutput(0))
For x = 0 To size * 2 - 1
For y = 0 To size * 2 - 1
dx.f = x - size
dy.f = y - size
d.f = Sqr(dx * dx + dy * dy)
angle.f = ACos(dx / d)
If dy < 0
angle = 2 * #PI - angle
EndIf
position = Round(d / EpaisseurBras - NbBras * angle / #PI, #PB_Round_Nearest)
If position & %1 ; si position est paire
Plot(x, y, $FFFFFF)
EndIf
Next
Next
StopDrawing()
ResizeImage(0, size, size)
CreateSprite(0, size, size,#PB_Sprite_Texture)
If StartDrawing(SpriteOutput(0))
DrawImage(ImageID(0), 0, 0)
StopDrawing()
FreeImage(0)
CreateSprite3D(0,0)
EndIf
EndIf
Else
MessageRequester("Erreur", "Impossible d'ouvrir un écran dans la fenêtre!", 0)
End
EndIf
EndIf
Repeat
Repeat
Event = WaitWindowEvent(1)
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
Until Event = 0
ClearScreen(0)
Start3D()
RotateSprite3D(0,ElapsedMilliseconds()/5,0)
DisplaySprite3D(0, (240-size)/2, (240-size)/2)
Stop3D()
FlipBuffers()
ForEver
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Son code pas touché passe nikel en 4.40 donc y'a plus de soucis si ?
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Alors la....je crois que je vais aller me coucher avec un suppo
Tu me dit que chez toi ça marche
Alors que tu vois ce qui se passe chez moi....j'ai plus une spirale, mais des vagues.
Comme si le point zero de la spirale n'etait pas renseigné ???
Peut etre un truc a cocher dans l'IDE ???
Tu me dit que chez toi ça marche
Alors que tu vois ce qui se passe chez moi....j'ai plus une spirale, mais des vagues.
Comme si le point zero de la spirale n'etait pas renseigné ???
Peut etre un truc a cocher dans l'IDE ???
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Ba j'utilise la 4.40 sous jaPBe et je lance la compilation sans rien faire d'autre...
T'es bon pour le suppo
T'es bon pour le suppo
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Comme aurait dit le grand "gainsbarre"
Alors la ...ça me trou le c... !!!
Alors la ...ça me trou le c... !!!
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Bon ça y'ai ...j'ai un debut de reponse
Apres moultes essais ...j'ai compilé directement le code de soldat et sous vista l'exe y marche nickel
Et sous 2000 le meme exe fait des vagues ......
Peut etre que notre soldat y saura pourquoi.....
2000 ===> VISTA et / ou 4.30 ===> 4.40, j'en ai marre...y'a toujours une couille dans le berceau
Fait pas bon etre programmeur en ces temps de changement pertetuels .....
KCC y veut retourner au DOS
Apres moultes essais ...j'ai compilé directement le code de soldat et sous vista l'exe y marche nickel
Et sous 2000 le meme exe fait des vagues ......
Peut etre que notre soldat y saura pourquoi.....
2000 ===> VISTA et / ou 4.30 ===> 4.40, j'en ai marre...y'a toujours une couille dans le berceau
Fait pas bon etre programmeur en ces temps de changement pertetuels .....
KCC y veut retourner au DOS
-
- Messages : 4312
- Inscription : mer. 28/janv./2004 20:58
- Localisation : Clermont ferrand OU Olsztyn
- Contact :
Re: Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC
Bon alors la, les idées qui me viennent :
- Compile le code avec le sous-système "directX 7"
- Regarde si tu n'as pas une userlibrairie pas compatible avec 4.40
- Réinstalle la 4.40
- essai l'exe ici http://partage.lsi-dev.com/Spirale.exe pour savoir si c'est le PC ou ton PB le soucis
- Compile le code avec le sous-système "directX 7"
- Regarde si tu n'as pas une userlibrairie pas compatible avec 4.40
- Réinstalle la 4.40
- essai l'exe ici http://partage.lsi-dev.com/Spirale.exe pour savoir si c'est le PC ou ton PB le soucis
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]