Feu de cheminée impressionniste

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

Je sais, je sais, je suis absolument infernal !
Je n'arrête pas de vous agresser chaque semaine
avec des stresstilitaires qui vous mettent dans tous vos états.

Voyez un peu...
JL35 n'en dort plus,
JC a commencé une psychanalyse,
Nicolas fait d'horribles cauchemars toutes les nuits,
les autres, je vous dis pas...

Alors ok, d'accord, non, non, j'en conviens, c'est bon, j'arrête.
Donc maintenant, place exclusivement à la relaxation.

Alors, voici quelque chose de beau, de profond, de vrai,
d'infiniment reposant, et en plus d'artistique :
un feu de cheminée impressionniste
comme on n'en voit nulle part ailleurs.

Vous pouvez le contempler calmement sans penser à rien,
vous pouvez même le regarder pendant des heures,
si vous le souhaitez.
Alors, relaxez-vous bien, sentez la chaleur de ce feu de salon
et laissez-vous aller à fond,
vous allez voir que vous allez vous endormir...

Code:: rem ' Feu-Bois
dim g , i , j , m , k : label repere , fin
width 0,800 : height 0,552
caption 0,"Feu de cheminée impressionniste (cliquez sur le feu pour arrêter)"
picture 1 : left 1,1 : top 1,1 : width 1,785 : height 1,510
color 1,236,233,216 : 2d_target_is 1 : 2d_pen_color 100,0,0
for i=1 to 50 : 2d_line 1,i,800,i : next i : 2d_pen_color 150,135,120
for j=1 to 6 : for i=1 to 75
2d_line 5+int(rnd(3)),i+77*j-25,98+int(rnd(3)),i+77*j-25
2d_line 685+int(rnd(3)),i+77*j-25,782+int(rnd(3)),i+77*j-25
next i : next j
picture 2 : left 2,101 : top 2,52 : width 2,585 : height 2,459
color 2,0,0,0 : 2d_target_is 2 : 2d_pen_width 20 : on_click 2,fin

repere:
2d_pen_color 205,25,25
for i=1 to 130 : 2d_line 150,i/3+370,450,i/3+330
2d_line 300+rnd(5),i/2+350,430-rnd(5),i/2+370 : next i
for i=1 to 30 : 2d_line 370+i*2,380+i,470,385
2d_line 230+i*2,400+i,330,390 : next i
for j=1 to 7
m=int(rnd(220)) : k=int(rnd(99))
for i=1 to 280 step 19
2d_pen_color 255,255-int(i/2),0
2d_line 190+m-int(i/5)+int(rnd(3)),i+90,190+m+int(i/5)+int(rnd(3)),i+k+30
next i
next j : 2d_pen_color 0,0,0
2d_rectangle 200,300,201,440 : 2d_rectangle 400,300,401,450
2d_circle 200,300,10 : 2d_circle 400,300,10
display : color 2,0,0,0
goto repere

end

fin:
terminate

Enfin, si quelque'un sait quoi faire contre ces horribles barres
horizontales blanches parasites, je suis preneur.

Sujet: Re: Feu de cheminée impressionniste Sam 6 Mar 2010 - 15:40

Pas mal, ça réchauffe par les temps qui courent !
Effectivement, il y a une synchro à faire avec le balayage écran, mais du diable si je sais comment faire !

Sujet: Re: Feu de cheminée impressionniste Sam 6 Mar 2010 - 15:41

Dommage les barres blanches, j'ai essayer de modifier mais pas moyen.

J'ai éteint le chauffage à la maison, merci.

Invité

Pour arreter les barres, il suffit de choisir par exemple l'éditeur du 28 décembre.
J'ai déjà fait 2 remarques sur ce sujet, sans réponse. A croire que cela ne dérangeait personne.
A+
Bon travail
J'aurai du essayer avant, ça ne va pas mieux. Si on enlève DISPLAY, il n'y a pas d'affichage, car il est en perpétuel changement (effet de flamme), et le programme attend l'arrêt des modification pour montrer l'image.
Désolé

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

Voici une version de Feu-Bois faite avec le nouveau timer
(en terme de fonctionnement, ça ne change rien)

Code:: rem ' Feu-Bois
dim g , i , j , m , k : label repere , fin
width 0,800 : height 0,552
caption 0,"Feu de cheminée impressionniste (cliquez sur le feu pour arrêter)"
picture 1 : left 1,1 : top 1,1 : width 1,785 : height 1,510
color 1,236,233,216 : 2d_target_is 1 : 2d_pen_color 100,0,0
for i=1 to 50 : 2d_line 1,i,800,i : next i : 2d_pen_color 150,135,120
for j=1 to 6 : for i=1 to 75
2d_line 5+int(rnd(3)),i+77*j-25,98+int(rnd(3)),i+77*j-25
2d_line 685+int(rnd(3)),i+77*j-25,782+int(rnd(3)),i+77*j-25
next i : next j
picture 2 : left 2,101 : top 2,52 : width 2,585 : height 2,459
color 2,0,0,0 : 2d_target_is 2 : 2d_pen_width 20 : on_click 2,fin
timer 3 : timer_interval 3,25 : on_timer 3,repere : timer_on 3

end

repere:
2d_pen_color 205,25,25
for i=1 to 130 : 2d_line 150,i/3+370,450,i/3+330
2d_line 300+rnd(5),i/2+350,430-rnd(5),i/2+370 : next i
for i=1 to 30 : 2d_line 370+i*2,380+i,470,385
2d_line 230+i*2,400+i,330,390 : next i
for j=1 to 7
m=int(rnd(220)) : k=int(rnd(99))
for i=1 to 280 step 19
2d_pen_color 255,255-int(i/2),0
2d_line 190+m-int(i/5)+int(rnd(3)),i+90,190+m+int(i/5)+int(rnd(3)),i+k+30
next i
next j : 2d_pen_color 0,0,0
2d_rectangle 200,300,201,440 : 2d_rectangle 400,300,401,450
2d_circle 200,300,10 : 2d_circle 400,300,10
display : color 2,0,0,0
return

fin:
timer_off 3
terminate

Invité

Cela marche bien.
Un détail: j'ai mis un apostrophe devant on_timer 3, et cela marche pareil.
Donc je pense que cette instruction se met après off_timer. Par défaut lorsqu'on paramètre timer, on doit mettre celui-ci en on_timer.

J'ai demandé plusieurs fois une instruction qui permette de démarrer un programme sans être obligé de cliquer sur un objet. les fonctions timer y remédient.

@+