FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:12

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

» a l'aide klaus
par Minibug Hier à 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Après la pluie, voici le beau temps.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 4:30

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 =============================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 8:57

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é
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 10:08

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 : drunken scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 10:57

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 14:46

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  drunken  drunken

Bon ok, cette fois, je sort...  Laughing  Laughing  Laughing  Laughing  Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 14:57

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 15:47

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

drunken cheers Rolling Eyes Question Exclamation Very Happy Very Happy Very Happy Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 20:54

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 21:05

Voici un avant goût:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Minibug

avatar

Nombre de messages : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 21:14

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)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Après la pluie, voici le beau temps.   Mer 20 Mai 2015 - 21:41

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Après la pluie, voici le beau temps.   

Revenir en haut Aller en bas
 
Après la pluie, voici le beau temps.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Voici venu le temps des rires et des chants !
» temps de chargement d'un swf sur l'appel d'un bouton ?
» Me Voici Me Voila
» [résolu] Départ d'une animation sur un temps suivant l'heure
» [Résolu] reglez le temps de l'animation sur un swf ?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: