Après la pluie, voici le beau temps.

En fait, c’est un code que j’ai posté en octobre 2012 sous le nom de Un générateur de plants.
Après un petit coup de mise en forme, voici ce que ça donne :

ici:

Code:: rem ============================================================================
rem PLANTS.BAS par PAPYDALL
rem ============================================================================
init() : go() : caption 0, "Programme arrêté par l'utilisateur"
end
rem ============================================================================
SUB init()
   dim ss% : ss% = 20
   dim sang,sang1(ss%),xx(ss%),yy(ss%)
   dim pi,rad,compteur%,xp,yp,xp1,yp1,xpos%,ypos%,x,y,x1,y1,ran1,ran2,s2,zx,zy
   dim a$,a0$,a1$,b$,st,gen%,k%,s,ang,ang1,an,j%,cl,i%
   dim xsun%,ysun%,rsun%,titre$

   full_space 0 : color 0,10,100,150
   pi = acos(-1) : rad = pi/180
   compteur% = 0 : ypos% = screen_y * 0.8
   xsun% = int(rnd(screen_x -100)+100) : ysun% = 50 : rsun% = 20
   titre$ = " *** SI VOUS VOUS ENNUYEZ TROP <CLICK> POUR ARRETER"
   titre$ = titre$ + " *** MAIS VOUS NE PERDREZ RIEN SI VOUS PATIENTER UN PEU !!!"
   soleil(xsun%,rnd(ysun%)+25,rsun%)
   for i% = 1 to 10
   Nuages(rnd(200),200+rnd(50),rnd(20)+20)
   Nuages(rnd(screen_x-200)+200+rnd(50),200,rnd(20)+10)
   next i%
END_SUB
rem ============================================================================
SUB soleil(x%,y%,r%)
   2d_circle x%,y%,r% : 2d_flood x%,y%,255,255,0
END_SUB
rem ============================================================================
SUB Nuages(x%,y%,r%)
   2d_pen_color 255,255,255 : 2d_fill_color 255,255,255
   2d_circle x%,y%,r% : 2d_circle x%+r%,y%,r%
   2d_circle x%+2*r%,y%,r% : 2d_circle x%+r%,y%-r%,r%
END_SUB
rem ============================================================================
SUB go()
   repeat
   xpos% = int(rnd(screen_x -200)+100)
   B$ = "" : A$ = "" : A0$ = "" : A1$ = ""
   st = 0 : gen% = mod(compteur%,13)+1 : compteur% = compteur% + 1
   if mod(compteur%,3) = 1 then Nuages(rnd(screen_x-200)+200+rnd(50),200,rnd(20)+10)
   caption 0,"NOMBRE DE PLANTS DESSINES : " + str$(compteur%) + string$(5," ") + titre$
   select gen%
   case 1
   k% = 6 : s = 1.5 : ang1 = int(rnd(80)+8)
   A$ = "0" : A1$ = "11" : A0$ = "1##10!+0!-0"
   case 2
   k% = 5 : s = 3 : ang1 = int(rnd(20)+16)
   A$ = "1" : A1$ = "11-#-1+0+0!+#+1-0-0!" : A0$ = "0"
   case 3
   k% = 6 : s = 1.5 : ang1 = int(rnd(45)+8)
   A$ = "0" : A1$ = "11" : A0$ = "1#+0!1#-0!0"
   case 4
   k% = 5 : s = 3 : ang1 = int(rnd(10)+10)
   A$ = "1" : A1$ = "1#+0!#=0!1#+1+-0!#-1-+0!" : A0$ = "0-0++0"
   case 5
   k% = 5 : s = 3 : ang1 = int(rnd(16)+16)
   A$ = "1" : A1$ = "11-#-1+0+0!+#+1-0-0!" : A0$ = "#0-0++0!"
   case 6
   k% = 4 : s = 2.5 : ang1 = int(rnd(10)+10)
   A$ = "1" : A1$ = "1#+10!1#-10!1" : A0$ = "#0-0++0!"
   case 7
   k% = 4 : s = 1.75 : ang1 = int(rnd(30)+10)
   A$ = "1" : A1$ = "1#+1-10!1#-1+10!10" : A0$ = "#0-0++0!"
   case 8
   k% = 4 : s = 3 : ang1 = int(rnd(15)+10)
   A$ = "1" : A1$ = "11#+1-1+10!#-1+1-10!" : A0$ = "#0-0++0!"
   case 9
   k% = 4 : s = 3.5 : ang1 = 10
   A$ = "1" : A1$ = "11#+1+1-#0-0++0!!0#-1-1+#0-0++0!!" : A0$ = "#0-0++0!"
   case 10
   k% = 4 : s = 3.6 : ang1 = int(rnd(5)+10)
   A$ = "#+1-1!#-1+1!" : A1$ = "1#-1+0!1#+1-0!0" : A0$ = "#0-0++0!"
   case 11
   k% = 3 : s = 2.75 : ang1 = int(rnd(3)+8)
   A$ = "1" : A1$ = "11#+10-10+10-10!1#-10+10-10+10!0" : A0$ = "0"
   case 12
   k% = 3 : s = 4 : ang1 = int(rnd(60)+20)
   A$ = "1" : A1$ = "1#-10-10-10!1#+10+10+10!1#10!" : A0$ = "0"
   case 13
   k% = 4 : s = 2 : ang1 = int(rnd(8)+10)
   A$ = "0" : A1$ = "111" : A0$ = "11#+0!#++0!#+++0!#-0!#--0!#---0!0"

   end_select

   for j% = 1 to k%
   cl = len(A$)
   for i% = 1 to cl
   if mid$(A$,i%,1) = "1"
   B$ = B$ + A1$
   else
   if mid$(A$,i%,1)="0"
   B$ = B$ + A0$
   else
   B$ = B$ + mid$(A$,i%,1)
   end_if
   end_if
   next i%
   A$ = B$ : B$ = ""
   ang = 360 / ang1 : x = 0 : y = 0 : an = 0 : cl = len(A$)
   for i% = 1 to cl
   if mid$(A$,i%,1) = "1"
   ran1 = rnd(1) : ran2 = rnd(1) : s2 = s + 0.5 *(ran1-ran2)* s
   ran1 = rnd(1) : ran2 = rnd(1) : an = an + 5.0 *(ran1-ran2)
   sang = an : x1 = s2 * sin(an*rad)+ x : y1 = s2 * cos(an*rad)+ y
   xp = 2 * x + xpos% : yp = ypos% - 2 * y
   xp1 = 2 * x1 + xpos% : yp1 = ypos% - 2 * y1
   2d_pen_color 0,192,0 : 2d_line xp,yp , xp1,yp1
   x = x1 : y = y1
   else
   if mid$(A$,i%,1) = "0"
   zx = sin(an*rad): zy = cos(an*rad)
   x1 = zx * s + x : y1 = zy * s + y
   xp = 2 * x + xpos% : yp = ypos% - 2 * y
   xp1 = 2 * x1 + xpos% : yp1 = ypos% - 2 * y1
   2d_pen_color 255,128,0 : 2d_line xp,yp , xp1,yp1
   x1 = 0.25 * zx * s + x : y1 = 0.25 * zy * s + y
   xp1 = 2 * x1 + xpos% : yp1 = ypos% - 2 * y1
   2d_pen_color 255,0,0 : 2d_line xp,yp , xp1,yp1
   else
   if mid$(A$,i%,1) = "-"
   ran1 = rnd(1) : ran2 = rnd(1)
   an = an - ang - 10 *(ran1-ran2) : sang = an
   else
   if mid$(A$,i%,1)="+"
   ran1 = rnd(1) : ran2 = rnd(1)
   an = an + ang + 10 *(ran1-ran2) : sang=an
   else
   if mid$(A$,i%,1)="#"
   st = st + 1 : sang1(st) = sang
   xx(st) = x : yy(st) = y
   else
   if mid$(A$,i%,1)="!"
   x = xx(st) : y = yy(st)
   an = sang1(st) : sang = an : st = st-1
   end_if
   end_if
   end_if
   end_if
   end_if
   end_if
   if scancode <> 0 then exit_sub
   next i%
   next j%
   until scancode <> 0
END_SUB
rem ========================== FIN =============================================

Le générateur de plante est super. Après, bon, le ciel bleu, les petits nuages et le soleil ça fait un peu peinture naive Wink

Mais ton contrat est rempli, tu as dessiné le beau temps. Bien joué

Très belle réalisation !

Comme je vois que tu métrises bien le sujet, je te propose quelles propositions d'amélioration :
- mettre les plantes sur terre et non dans le ciel Laughing

- Faire pousser toutes les plantes simultanément sunny

- Et pourquoi ne pas faire bouger les nuages poussés par le vent... drunken

Voila de quoi t'occuper encore un peu... Very Happy

:

A ce moment là, faire un générateur de nuages pour les faire avancer au grès du vent. Pire (alors là, tu vas me maudire ..., en fonction du vent qui pousse les nuage, pencher plus ou moins les plantes ... voir les tordre plus ou moins en fonction de la force du vent (là, j'avoue, c'est carrément vicieux ...)
M'en fou, c'est la faut de Minibug... Very Happy

Eh ben voila !!! Ça va être de ma faute...

En même temps il faut bien un coupable. rendeer

Au fait, elles fleurissent ces plantes ou pas ???
Parce que des fleurs ca serait joli aussi, non. drunken

Bon ok, cette fois, je sort... Laughing

mdr... bon Papydall, maintenant il faut que tu rajoute l'éclosion des felurs aux bouts des tiges (et des fleurs de différentes couleurs pour faire plus joli, hein).
Le pauvre est tellement dégouté d'avoir tout ça à faire, qu'il n'ose même pas répondre pour nous envoyer paître !! Smile

Ou alors il est déjà en train de développer nos demandes...

drunken

jicehel a écrit:: Le pauvre est tellement dégouté d'avoir tout ça à faire, qu'il n'ose même pas répondre pour nous envoyer paître !!

… paître où ? Dans la forêt que je n’arrive pas encore à faire pousser ?

Minibug a écrit:: Ou alors il est déjà en train de développer nos demandes...

Ouwais, j’y suis et j’y reste pour un long moment !
Ça viendra, dans quelques heures, quelques jours, quelques mois, quelques années ou JAMAIS !

Voici un avant goût:

Ouhaaooouu !!!

Alors là chapeau cheers

L'ordinateur de papydall va chauffer, c'est sûr !! Laughing

Et la 3D c'est pour quand ? (Désolé, je suis incorrigible Embarassed

)

Pas mal, pas mal, reste à voir si tu vas réussir à tout faire d'ici demain, la semaine prochaine, dans un moi, une année ou si tu n'y le fera JAMAIS Wink

» Je fais la pluie, voulez-vous faire le beau temps?
» Il est beau le robot
» ELEMENTS STANDARDS DE WINDOWS XP
» Et voici RÉCAPITULORAMIC
» Ca tourne mais ça n'avance pas bien