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 Jean Claude Aujourd'hui à 10:18

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:07

» Le compilateur.
par Pedro Alvarez Aujourd'hui à 8:36

» 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

» 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

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 | 
 

 Encore du L_system

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: Encore du L_system   Sam 13 Oct 2012 - 2:49

Salut tout le monde

Voici un code de tracé des courbes. Encore un !
Je teste encore le L_System ( système de Lindenmayer)
Pour ceux qui veulent en savoir plus , c’est ici

Code:

' ******************************************************************************
' *                Graphisme en L-system par Papydall
' *                    Système de Lindenmayer
' ******************************************************************************

' Programme principal
Run() : Stop_Run()
' Fin du programme principal

' ==============================================================================
' Routine principale
SUB Run()
    init() : ' Appel à la procédure d'initialisation
    regle$ = "F+F-F-F+F"    : Koch1(regle$) : ' Appel aux différentes courbes
    regle$ = "F+F-F-F+F"    : Koch2(regle$)
    regle$ = "F+F-F"        : Dragon(regle$)
    regle$ = "F+FfF-FfF+F"  : test1(regle$)
    regle$ = "F+FF-FF+F"    : test2(regles)
    regle$ = "F+F-f-F+f-F+F" : test3(regle$)
    regle$ = "F-F+FF-FF+F-F" : test4(regles)
    regle$ = "F+F-FF"        : test5(regle$) : ' Dernière courbe
END_SUB
' ******************************************************************************
' Routine d'initialisation
SUB init()
    dim generation%,axiome$,regle$,chaine$,x,y,d,alfa,delta,pi,rad
    width 0,1000 : height 0,700 : color 0,0,0,0  : cls
    pi = 4*atn(1) : rad = pi/180 : delta = 90 * rad
    axiome$ = "F"
END_SUB
' ******************************************************************************
SUB Koch1(regle$)
    x = 100 : y = 500 : delta = 90 * rad : d = 1
    Courbe(6,axiome$,regle$)
    caption 0, "Veuillez patienter : Courbe de Koch1  <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ------------------------------------------------------------------------------
Sub Koch2(regle$)
    x = 150 : y = 600 : delta = 120 * rad : d = 10
    Courbe(6,axiome$,regle$)
    caption 0, "Veuillez patienter : Courbe de Koch2  <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ------------------------------------------------------------------------------
SUB Dragon(regle$)
    x = 400 : y = 20 : delta = 120 * rad : d = 3
    Courbe(10,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe du Dragon  <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test1()
    x = 10 : y = 500 : delta = 100 * rad : d = .5
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe du test1 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test2()
    x = 10 : y = 500 : delta = 100 * rad : d = .8
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe test2 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test3()
    x = 500 : y = 200 : delta = 100 * rad : d = 5
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe test3 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test4()
    x = 200 : y = 100 : delta = 100 * rad : d = 2
    Courbe(5,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe test4 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test5()
    x = 400 : y = 400 : delta = 135 * rad : d = 4
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe  test5 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************

SUB Courbe(generation%,axiome$,regle$)
    dim_local i%,j%,k%,c$
    chaine$ = axiome$
    for i% = 1 to generation%
        k% = len(chaine$): c$ = chaine$ : chaine$ = ""
        for j% = 1 to k%
            if mid$(c$,j%,1) = axiome$
              chaine$ = chaine$ + regle$
            else
              chaine$ = chaine$ + mid$(chaine$,j%,1)
            end_if
        next j%
    next i%
END_SUB
' ******************************************************************************
' Commande F : --> Avancer de d pixels en traçant un segment de droite
' L'état de la tortue change en (x1,y1,alfa)
SUB Forward_Trace(d)
    dim_local x1,y1
    x1 = x + d * cos(alfa) : y1 =  y - d * sin(alfa)
    2d_pen_color 255,255,0 : 2d_line x,y,x1,y1 : x = x1 : y = y1
END_SUB
' ******************************************************************************
' Commande f : --> Avancer de d pixels sans laisser de trace
' L'état de la turtue change en (x1,y1,alfa)
' La couleur du tracé est celle du fond d'oû absence de trace
SUB Forward_No_Trace(d)
    dim_local x1,y1,cr,cg,cb
    x1 = x + d * cos(alfa) : y1 =  y - d * sin(alfa)
    cr = color_pixel_red(0,0,0)
    cg = color_pixel_green(0,0,0)
    cb = color_pixel_blue(0,0,0)
  '  2d_pen_color 255,0,0
    2d_pen_color cr,cg,cb : 2d_line x,y,x1,y1 : x = x1 : y = y1
END_SUB
' ******************************************************************************
' Commande + : --> Tourner à gauche d'un angle delta en dégrés
' L'état de la tortue est (x, y, alfa + delta)
SUB Tourne_Gauche(delta)
    alfa = (alfa + delta)
END_SUB
' ******************************************************************************
' Commande - : --> Tourner à droite d'un angle delta en dégrés
' L'état de la tortue est (x, y, alfa - delta)
SUB Tourne_Droite(delta)
    alfa = (alfa - delta)
END_SUB
' ******************************************************************************
' Interprétation des symboles
SUB Interpreter(chaine$)
    dim_local i%,l%
    l% = len(chaine$) : cls
    for i% = 1 to  l%
        if scancode = 27 then Stop_Run()
        if mid$(chaine$,i%,1) = "F" then Forward_Trace(d)
        if mid$(chaine$,i%,1) = "f" then Forward_No_Trace(d)
        if mid$(chaine$,i%,1) = "+" then Tourne_Gauche(delta)
        if mid$(chaine$,i%,1) = "-" then Tourne_Droite(delta)
    next i%
END_SUB
' ******************************************************************************
' Fin du programme
SUB Stop_Run()
    if scancode = 27
      caption 0,"Programme arrêté par l'utilisateur"
    else
      caption 0,"Terminé"
      alpha 1 : font_size 1,14 : font_color 1,255,0,0
      caption 1,"THAT'S ALL FOLKS!!!"
    end_if
    end
END_SUB
' ******************************************************************************

Alors, coloriste, il y a peut-être du pain sur la planche!
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: Encore du L_system   Sam 13 Oct 2012 - 12:11

Bon, c'est anniversaire de ma fille avec ses copines cet après-midi, donc peu dispo, mais comme tu sais que j'aime bien, je fais mon taf de coloriste officiel Very Happy , ça donne ça:
Code:

' ******************************************************************************
' *                Graphisme en L-system par Papydall (Version du13/10/2012)
' *                    Tracés de courbes selon le système de Lindenmayer
' ******************************************************************************

' Programme principal
Run() : Stop_Run()
' Fin du programme principal

' =============================================================
' Routine principale
SUB Run()
    init() : ' Appel à la procédure d'initialisation
    regle$ = "F+F-F-F+F"    : Koch1(regle$,"Koch1") : ' Appel aux différentes courbes
    regle$ = "F+F-F-F+F"    : Koch2(regle$,"Koch2")
    regle$ = "F+F-F"        : Dragon(regle$,"Dragon")
    regle$ = "F+FfF-FfF+F"  : test1(regle$,"Test1")
    regle$ = "F+FF-FF+F"    : test2(regles,"Test2")
    regle$ = "F+F-f-F+f-F+F" : test3(regle$,"Test3")
    regle$ = "F-F+FF-FF+F-F" : test4(regle$,"Test4")
    regle$ = "F+F-FF"        : test5(regle$,"Test5") : ' Dernière courbe
END_SUB

' ******************************************************************************
' Routine d'initialisation
SUB init()
    dim generation%,axiome$,regle$,chaine$,x,y,d,alfa,delta,pi,rad
    dim x_max, y_max : x_max=1000 : y_max=700
    width 0,x_max : height 0,y_max : color 0,0,0,0  : cls
    pi = 4*atn(1) : rad = pi/180 : delta = 90 * rad
    axiome$ = "F"
END_SUB

' ******************************************************************************
SUB Koch1(regle$,nom$)
    x = 100 : y = 500 : delta = 90 * rad : d = 1
    Courbe(6,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ------------------------------------------------------------------------------
Sub Koch2(regle$,nom$)
    x = 150 : y = 600 : delta = 120 * rad : d = 10
    Courbe(6,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ------------------------------------------------------------------------------
SUB Dragon(regle$,nom$)
    x = 400 : y = 20 : delta = 120 * rad : d = 3
    Courbe(10,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ******************************************************************************
SUB test1(regle$,nom$)
    x = 10 : y = 500 : delta = 100 * rad : d = .5
    Courbe(6,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ******************************************************************************
SUB test2(regle$,nom$)
    x = 10 : y = 500 : delta = 100 * rad : d = .8
    Courbe(6,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ******************************************************************************
SUB test3(regle$,nom$)
    x = 500 : y = 200 : delta = 100 * rad : d = 5
    Courbe(6,axiome$,regle$)
    Interpreter(chaine$)
END_SUB

' ******************************************************************************
SUB test4(regle$,nom$)
    x = 200 : y = 100 : delta = 100 * rad : d = 2
    Courbe(5,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ******************************************************************************
SUB test5(regle$,nom$)
    x = 400 : y = 400 : delta = 135 * rad : d = 4
    Courbe(6,axiome$,regle$)
    Interpreter(chaine$,nom$)
END_SUB

' ******************************************************************************
SUB Courbe(generation%,axiome$,regle$)
    dim_local i%,j%,k%,c$
    chaine$ = axiome$
    for i% = 1 to generation%
        k% = len(chaine$): c$ = chaine$ : chaine$ = ""
        for j% = 1 to k%
            if mid$(c$,j%,1) = axiome$
              chaine$ = chaine$ + regle$
            else
              chaine$ = chaine$ + mid$(chaine$,j%,1)
            end_if
        next j%
    next i%
END_SUB

' ******************************************************************************
' Commande F : --> Avancer de d pixels en traçant un segment de droite
' L'état de la tortue change en (x1,y1,alfa)
SUB Forward_Trace(d,nom$)
    dim_local x1,y1
    x1 = x + d * cos(alfa) : y1 =  y - d * sin(alfa)
'    caption 0,nom$ + ": v:" + str$(abs(255-(x/2)))+ "; b:"+str$(int(y/4)+5)
    2d_pen_color 255,abs(255-(x/3)),abs(int(y/4)+5) : 2d_line x,y,x1,y1 : x = x1 : y = y1
END_SUB

' ******************************************************************************
' Commande f : --> Avancer de d pixels sans laisser de trace
' L'état de la turtue change en (x1,y1,alfa)
' La couleur du tracé est celle du fond d'oû absence de trace
SUB Forward_No_Trace(d)
    dim_local x1,y1,cr,cg,cb
    x1 = x + d * cos(alfa) : y1 =  y - d * sin(alfa)
    cr = color_pixel_red(0,0,0)
    cg = color_pixel_green(0,0,0)
    cb = color_pixel_blue(0,0,0)
    2d_pen_color cr,cg,cb : 2d_line x,y,x1,y1 : x = x1 : y = y1
END_SUB

' ******************************************************************************
' Commande + : --> Tourner à gauche d'un angle delta en dégrés
' L'état de la tortue est (x, y, alfa + delta)
SUB Tourne_Gauche(delta)
    alfa = (alfa + delta)
END_SUB

' ******************************************************************************
' Commande - : --> Tourner à droite d'un angle delta en dégrés
' L'état de la tortue est (x, y, alfa - delta)
SUB Tourne_Droite(delta)
    alfa = (alfa - delta)
END_SUB

' ******************************************************************************
' Interprétation des symboles
SUB Interpreter(chaine$,nom$)
    dim_local i%,l%
    l% = len(chaine$) : cls
    caption 0,"Veuillez patienter, tracer en cours de la courbe: " + chr$(34) + nom$ +chr$(34) + ". Presser <ESC> pour arrêter"
    for i% = 1 to  l%
        if scancode = 27 then Stop_Run()
        if mid$(chaine$,i%,1) = "F" then Forward_Trace(d,nom$)
        if mid$(chaine$,i%,1) = "f" then Forward_No_Trace(d)
        if mid$(chaine$,i%,1) = "+" then Tourne_Gauche(delta)
        if mid$(chaine$,i%,1) = "-" then Tourne_Droite(delta)
    next i%
END_SUB

' ******************************************************************************
' Fin du programme
SUB Stop_Run()
    if scancode = 27
      caption 0,"Programme arrêté par l'utilisateur"
    else
      caption 0,"Terminé"
      alpha 1 : font_size 1,14 : font_color 1,255,0,0
      caption 1,"THAT'S ALL FOLKS!!!"
    end_if
    end
END_SUB

' ******************************************************************************
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: Encore du L_system   Sam 13 Oct 2012 - 16:51

Merci Jicehel
à mademoiselle, ta fille

J’ai apporté quelques modifications au programme.
Au cas où mademoiselle est aussi Panoramicienne, elle admirera la fascinante autosimilarité des courbes !
Code:
' ******************************************************************************
' *                Graphisme en L-system par Papydall
' *                    Système de Lindenmayer
' ******************************************************************************

' Programme principal
Run() : Stop_Run()
' Fin du programme principal

' ==============================================================================
' Routine principale
SUB Run()
    init()
    regle$ = "F+F-F-F+F"          : Koch1(regle$)
    regle$ = "F+F-F-F+F"          : Koch2(regle$)
    regle$ = "F+F-F"              : Dragon(regle$)
    regle$ = "F+F-F+F-F+F"        : test1(regles)
    regle$ = "F+F-FF+FF-F+F"      : test2(regle$)
    regle$ = "F+F-f-F+f-F+F"      : test3(regle$)
    regle$ = "F-F+FF-FF+F-F"      : test4(regles)
    regle$ = "F+FfF-FfF+F"        : test5(regle$)
    regle$ = "F+F-F-FF+F+F-F"      : test6(regle$)
    regle$ = "F-F+F+F-F"          : test7(regle$)
END_SUB
' ******************************************************************************
' Routine d'initialisation
SUB init()
    dim generation%,axiome$,regle$,chaine$,x,y,x1,y1,d,alfa,delta,pi,rad
    width 0,1020 : height 0,750 : color 0,0,0,0  : cls
    alpha 1 : left 1,500 : font_size 1,14
    pi = 4*atn(1) : rad = pi/180 : axiome$ = "F"
END_SUB
' ******************************************************************************
SUB Koch1(regle$)
    x = 100 : y = 500 : delta = 90 * rad : d = 1
    Courbe(6,axiome$,regle$)
    caption 0, "Veuillez patienter : Courbe de Koch1  <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ------------------------------------------------------------------------------
Sub Koch2(regle$)
    x = 150 : y = 600 : delta = 120 * rad : d = 10
    Courbe(6,axiome$,regle$)
    caption 0, "Veuillez patienter : Courbe de Koch2  <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ------------------------------------------------------------------------------
SUB Dragon(regle$)
    x = 400 : y = 50 : delta = 120 * rad : d = 3
    Courbe(10,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe du Dragon  <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test1()
    x = 10 : y = 400 : delta = 100 * rad : d = 3.8
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe test1 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test2()
    x = 30 : y = 500 : delta = 135 * rad : d = .5
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe  test2 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************

SUB test3()
    x = 500 : y = 100 : delta = 100 * rad : d = 5
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe test3 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test4()
    x = 200 : y = 600 : delta = 100 * rad : d = 2
    Courbe(5,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe test4 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************
SUB test5()
    x = 100 : y = 600 : delta = 100 * rad : d = .5
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe du test5 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************

SUB test6()
    x = 1 : y = 350 : delta = 90 * rad : d = 1
    Courbe(5,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe du test6 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ******************************************************************************

SUB test7()
    x = 10 : y = 100 : delta = 100 * rad : d = 2.8
    Courbe(6,axiome$,regle$)
    caption 0,"Veuillez patienter : Courbe du test7 <ESC> pour arrêter"
    Interpreter(chaine$)
END_SUB
' ==============================================================================
SUB Courbe(generation%,axiome$,regle$)
    dim_local i%,j%,k%,c$
    font_color 1,255,255,0:caption 1,"Veuillez patienter, je calcule ..." :display
    chaine$ = axiome$
    for i% = 1 to generation%
        k% = len(chaine$): c$ = chaine$ : chaine$ = ""
        for j% = 1 to k%
            if mid$(c$,j%,1) = axiome$
              chaine$ = chaine$ + regle$
            else
              chaine$ = chaine$ + mid$(chaine$,j%,1)
            end_if
        next j%
    next i%
    font_color 1,0,255,0 : caption 1,"Tracé en cours ..."
END_SUB
' ******************************************************************************
' Commande F : --> Avancer de d pixels en traçant un segment de droite
' L'état de la tortue change en (x1,y1,alfa)
SUB Forward_Trace(d)
    x1 = x + d * cos(alfa) : y1 =  y - d * sin(alfa)
    2d_pen_color 255,mod(abs(255-(x/3)),255),mod(abs(int(y/4)+5),255)
    2d_line x,y,x1,y1
  '  2d_rectangle x,y,x1-x/100,y1+y/10
  '  2d_circle x1,y1,2
    x = x1 : y = y1
END_SUB
' ******************************************************************************
' Commande f : --> Avancer de d pixels sans laisser de trace
' L'état de la turtue change en (x1,y1,alfa)
' La couleur du tracé est celle du fond d'oû absence de trace
SUB Forward_No_Trace(d)
    dim_local cr,cg,cb
    x1 = x + d * cos(alfa) : y1 =  y - d * sin(alfa)
    cr = color_pixel_red(0,0,0)
    cg = color_pixel_green(0,0,0)
    cb = color_pixel_blue(0,0,0)
    2d_pen_color cr,cg,cb : 2d_line x,y,x1,y1 : x = x1 : y = y1
END_SUB
' ******************************************************************************
' Commande + : --> Tourner à gauche d'un angle delta en dégrés
' L'état de la tortue est (x, y, alfa + delta)
SUB Tourne_Gauche(delta)
    alfa = (alfa + delta)
END_SUB
' ******************************************************************************
' Commande - : --> Tourner à droite d'un angle delta en dégrés
' L'état de la tortue est (x, y, alfa - delta)
SUB Tourne_Droite(delta)
    alfa = (alfa - delta)
END_SUB
' ******************************************************************************
' Interprétation des symboles
SUB Interpreter(chaine$)
    dim_local i%,l%
    l% = len(chaine$) : cls
    for i% = 1 to  l%
        if scancode = 27 then Stop_Run()
        if mid$(chaine$,i%,1) = "F" then Forward_Trace(d)
        if mid$(chaine$,i%,1) = "f" then Forward_No_Trace(d)
        if mid$(chaine$,i%,1) = "+" then Tourne_Gauche(delta)
        if mid$(chaine$,i%,1) = "-" then Tourne_Droite(delta)
    next i%
END_SUB
' ******************************************************************************
' Fin du programme
SUB Stop_Run()
    if scancode = 27
      caption 0,"Programme arrêté par l'utilisateur"
    else
      caption 0,"Terminé"
      caption 1,string$(30,"*")+chr$(10)+"!!! THAT'S ALL FOLKS !!!"+chr$(13)+string$(30,"*")
    end_if
    end
END_SUB
' **************************************************************************


Dernière édition par papydall le Sam 13 Oct 2012 - 20:48, édité 1 fois (Raison : MODIFICATION DU PROGRAMME)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 13 Oct 2012 - 17:50

Bravo Papydall !

et



à mademoiselle Jicehel !
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: Encore du L_system   Sam 13 Oct 2012 - 23:40

Merci à vous. Elle a passé une bonne journée avec ses copines (10 petites nanas de 6 ans, je ne vous dis pas le calme de la maison ... mais bon, là maintenant, tout le monde dort ... le calme est revenu et tes modifs sont sympa (sauf peut être la courbe test3 qui n'est pas très sexy...))
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: Encore du L_system   Dim 14 Oct 2012 - 1:19

Si les « moches » n’existent pas, comment apprécierait-on les belles courbes ? (les courbes fractales, bien entendu !)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Encore du L_system   

Revenir en haut Aller en bas
 
Encore du L_system
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

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: