Feu d'artifice

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Pour vous inviter à encore mieux célébrer la fête nationale,
je vous ai concocté un petit feu d'artifice.
S'il n'y a pas de feu d'artifice dans votre village.
vous pourrez toujours regarder celui-là !
Je voulais vous mettre également du son (Baoummm !)
mais les sound ne fonctionnant pas,
vous devrez vous contenter d'un film muet.

Je vous souhaite à tous un bon 14 juillet !
jocolor

Code:: rem ' Feu d'artifice
dim c1 , c2 , c3 , f , g , h , i , j , k , x , y
k=1 : f=1
height 0,500
caption 0,"FEU D'ARTIFICE - Cliquez sur le ciel pour arrêter"
color 0,0,0,0 : display
for g=1 to 200
c1=rnd(155)+100 : c2=rnd(155)+100 : c3=rnd(155)+100
h=int(rnd(4))+1 : y=int(rnd(300))+50 : k=0-k
for i=500 to y step -1
2d_pen_color c1,c2,c3
2d_point 300+10*log(i)*h*k,i
for j=1 to 500 : next j : ' on peut changer le 500, ça dépend de la vitesse des ordinateurs
2d_point 300+10*log(i)*h*k,i
next i
for j=1 to 3000
2d_pen_color 0,0,0
i=int(rnd(500-y))+y
2d_point 300+10*log(i)*h*k,i
next j
x=300+10*log(y)*h*k
2d_pen_color c1,c2,c3
for i=1 to 100
for j=1 to int(rnd(4))+1
k=0-k
next j
for j=1 to int(rnd(4))+1
f=0-f
next j
if g/h=int(g/h)
2d_pen_color rnd(155)+100,rnd(155)+100,rnd(155)+100
end_if
2d_line x,y,x+int(rnd(150))*k,y+int(rnd(150))*f
next i
wait 500
cls
if clicked(0)=1 then exit_for
next g
terminate

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Pas mal, même si un peu stylisé mais bon, avec si peu de lignes de code. Je trouve que la tempo est mieux à 1000 qu'à 500 (mais c'est juste pour pinailler, comme toi).

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Non, non, tu as raison !
le tempo de la ligne 13 est à moduler,
car il dépend de la vitesse des ordinateurs.
J'ai essayé wait 1, mais c'était trop lent.
geek

Invité

Pour le son, tu peux mettre la version avec son. Ceux qui ont une ancienne version, et il doit y en avoir quelques-uns, peuvent l'essayer avec. Si tu as toi aussi une ancienne version, tu peux aussi envoyer un exe avec le fichier.

Je ne vais pas essayé tout de suite, vu la lenteur à cette heure de mon ordi. Il rame par derrière, et bien souvent je me retrouve avec impossible to run Panoramic, et tout s'efface. C'est vraiment la m.. parfois!!

Voila un code qui va plaire à Sergeauze (et à moi aussi d'ailleurs).

Tu maitrises bien la 2D JJN4.
@Papinailleur, moi j'aime le tempo à 100 car à 1000 c'est un feu d'artifice au ralentit

alien

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Non, non, je me suis mal exprimé, quand je disais la tempo je voulais dire le Wait à 1000 au lieu de 500, sinon l'affichage est trop bref. Et ça ça ne dépend pas de la machine, c'est 0,5 ou 1 seconde.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

C'est curieux, j'allais te répondre que 500 me suffisait pour le wait,
mais je viens de rééssayer et j'observe qu'avec 500,
hier c'était d'une vitesse pas trop rapide,
et aujourd'hui, ça va nettement plus vite
si bien que le 1000 convient mieux, quoique ce soit un peu plus lent
que le temps sur lesquel je l'avais programmé hier.
C'est curieux, ça, que les ordinateurs soient plus lents
certains jours que d'autres !
scratch

Invité

J'essangerai volontiers le mien contre les vôtres. Question vitesse, je bats tout les recors de lenteur par moment.
J'en reste là, je sors pour me calmer.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

jjn4, entre temps tu as vu le feu d'artifice (comme moi hier soir) et tu as pu constater que 1000 était plus réaliste que 500, voilà la seule explication plausible.

cosmos, il va falloir songer sérieusement à investir dans un nouveau pc et mettre ta machine antédiluvienne à la brocante. Tu aurais dû profiter des soldes, il y avait des affaires à faire.

C'est vrai que vu les programmes que tu fais Cosmos, çà doit être pénible.

As-tu cheché des bonnes occases sur le net ? par exemple "le bon coin", çà doit pouvoir se trouver à pas cher.

Invité

Ceci est une parenthèse mais vu ma retraite et 2 ados au lycée, c'est avec la banque que je dois jonglé, et l'ordi, c'est niet! (voila un mot que je ne sais pas écrire). l'ordi que j'ai est une occase sur le net.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

@ Papy35 :
Mais non, le feu d'artifice (le vrai), c'est pour ce soir !
Peut-être que les ordinateurs ont des humeurs, aussi,
qui ferait varier leur vitesse ?
Alors, dans ce cas, on peut conseiller à Cosmos
de coller 3 tartes au sien pour lui faire avoir une humeur plus rapide !
Laughing

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Je croirais plutôt que même avec une tartelette il va rendre l'âme... alors prudence.

Invité

Si je fous trois tartes à mon ordi, ce sera avec la main, pour lui apprendre à faire son travail. Je crois qu'à partir de ce moment là, vous ne me verrez plus sur ce forum. Vous pourrez crier un ouf de soulagement.
Mais quel bien ça me ferais parfois de le faire. Peut-être qu'en tapant dessus, cela ferait un feu d'artifice!

Je relis le post de jjn4, j'avais pas compris l'allusion. Ah si je pouvais prendre des vacances, je réagirais mieux.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

@jjn4 si tu mets un wait 5, ou même 3 (wait 1 est trop rapide) à la place de ta boucle ligne 13, ça le fait bien, et ça ne dépend plus de la vitesse du pc (sauf peut-être pour cosmos).
J'aime bien l'idée de la trajectoire non linéaire de la fusée, c'est plus réaliste.

Citation :: J'aime bien l'idée de la trajectoire non linéaire de la fusée, c'est plus réaliste.

Oui et j'ajoute la symétrie suivant que la fusée parte à droite ou à gauche.
Very Happy

Nombre de messages : 2747 Date d'inscription : 13/09/2009

@Papy35
On ne doit pas avoir les mêmes ordinateurs.
Si je n'ai pas mis wait 1 à la ligne 13, c'est que cela donnait
une montée de fusée désespérément lente.
Pourtant, j'aurais pensé qu'un wait
aurait donné des temps constants :
wait 1 = 1/1000 de sec ???
scratch

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Je pense que pour les petits Wait ce n'est pas significatif, il y a le temps de déroulement du programme wait qui doit intervenir, et que ce n'est viable que pour les wait plus importants. Wait 1 je pense que ça ne veut pas dire grand chose, en durée.
En tout cas, moi je vois la différence entre wait 2 et wait 10 par exemple (mais je n'ai pas chronométré... Very Happy

).
Pourtant je n'ai pas une bête de course, un Acer dans les premiers prix (et même le premier prix à l'époque il y a 2 ou 3 ans. Premier prix en coût, pas en vitesse Very Happy

)

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Je voulais profiter du retour de fonctionnement du sound
pour sonoriser mon feu d'artifice.
J'ai essayé avec monimage.eu et imageshack.us
pour mettre les sons voulus sur le forum
en même temps qu'une version modifiée du programme,
mais pas moyen d'envoyer des sons wav avec ces 2 sites.
Si bien qu'on en reste au point de départ !
scratch

Invité

Tu n'as pas essayé de faire un zip complet de ton programme. Normalement pour un dossier ça marche, si le dossier ne dépasse pas les limites imposées.
Avec Archive-Host ça marche.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Voici trois sons (à télécharger et mettre à l'emplacement du programme) :

http://www.2shared.com/audio/W5_GQCPk/Explo-1.html
sous le nom de Explo-1.wav
http://www.2shared.com/audio/KVs6x1_v/Explo-2.html
Sous le nom de Explo-2.wav
http://www.2shared.com/audio/9g4UT-CR/Explo-3.html
Sous le nom de Explo-3.wav

Avec le programme de feu d'artifice modifié (avec des sons, maintenant) :

Code:: rem ' Feu d'artifice
dim c1 , c2 , c3 , f , g , h , i , j , k , x , y
k=1 : f=1
height 0,500
caption 0,"FEU D'ARTIFICE - Cliquez sur le ciel pour arrêter"
color 0,0,0,0 : display
sound 1
for g=1 to 200
c1=rnd(155)+100 : c2=rnd(155)+100 : c3=rnd(155)+100
h=int(rnd(4))+1 : y=int(rnd(300))+50 : k=0-k
for i=500 to y step -1
2d_pen_color c1,c2,c3
2d_point 300+10*log(i)*h*k,i
for j=1 to 500 : next j : ' on peut changer le 500, ça dépend de la vitesse des ordinateurs
2d_point 300+10*log(i)*h*k,i
next i
for j=1 to 3000
2d_pen_color 0,0,0
i=int(rnd(500-y))+y
2d_point 300+10*log(i)*h*k,i
next j
x=300+10*log(y)*h*k
2d_pen_color c1,c2,c3
for i=1 to 100
for j=1 to int(rnd(4))+1
k=0-k
next j
for j=1 to int(rnd(4))+1
f=0-f
next j
if g/h=int(g/h)
2d_pen_color rnd(155)+100,rnd(155)+100,rnd(155)+100
end_if
2d_line x,y,x+int(rnd(150))*k,y+int(rnd(150))*f
next i
i=int(rnd(3))+1
if file_exists("Explo-"+str$(i)+".wav")=1
file_load 1,"Explo-"+str$(i)+".wav"
play 1
end_if
wait 500
cls
if clicked(0)=1 then exit_for
next g
for g=1 to 12
x=int(rnd(500))+1 : y=int(rnd(400))+1
for i=1 to 100
for j=1 to int(rnd(4))+1
k=0-k
next j
for j=1 to int(rnd(4))+1
f=0-f
next j
2d_pen_color rnd(155)+100,rnd(155)+100,rnd(155)+100
2d_line x,y,x+int(rnd(150))*k,y+int(rnd(150))*f
next i
next g
if file_exists("Explo-3.wav")=1
file_load 1,"Explo-3.wav"
play 1
wait 2500
end_if
terminate

Avec le son, c'est mieux.

Tu devrais ajouter un bouquet final... Heu si j'abuse pas. Embarassed

En tout cas c'est réussi. cheers

Pas pressé de répondre le petit bon'home vert!

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Je trouve ta suggestion intéressante et je vais m(y pencher.
(oui, oui, ben ça vient !)
Laughing

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Et v'la l'travail !
Il suffit de demander...

(ci-dessus en page 2, le programme a été changé de façon à
ce que cela finisse par un bouquet final !)

Ah, il devient beau, ce feu d'artifice !
Presque mieux que les vrais !
Laughing