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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 5501
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 : 5849
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
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
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
Jicehel

avatar

Nombre de messages : 5849
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
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
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
Jicehel

avatar

Nombre de messages : 5849
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
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
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
papydall

avatar

Nombre de messages : 5501
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 : 5501
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/
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
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
Jicehel

avatar

Nombre de messages : 5849
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 !
» au bout de combien de temps le nom d'un domaine qui a expiré retombe dans le domaine public ?
» Personnalisation du temps après lequel le membre est considéré « Hors ligne »
» Délais activation après coupure FT
» Livebox & Bbox en même temps ?

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