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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 8:06 pm

» Projet de planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 4:46 pm

» Quantité de mémoire utilisée par un exe
par Jack Aujourd'hui à 4:39 pm

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12 am

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018, 2:25 pm

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018, 7:56 pm

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018, 7:14 pm

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018, 8:17 pm

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018, 8:52 pm

» Cadre pour image
par Jean Claude Mar 12 Juin 2018, 4:31 pm

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018, 2:02 pm

» Planétarium gratuit.
par Jean Claude Sam 09 Juin 2018, 6:50 pm

» Comment afficher une image sans fond.
par JL35 Sam 09 Juin 2018, 2:16 pm

» image_width(n) et image_height(n)
par silverman Sam 09 Juin 2018, 11:22 am

» Site sur la programmation sympa
par Jean Claude Jeu 07 Juin 2018, 11:20 am

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Les N insectes amoureux

Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
papydall

avatar

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

MessageSujet: Les N insectes amoureux   Ven 09 Mar 2012, 8:54 pm

Problème des N insectes amoureux
================================

Considérons un carré inscrit dans un cercle de rayon 1 et 4 insectes placés
aux 4 sommets de ce carré. Chaque insecte est amoureux de celui qui le précède
(sens anti-horraire). Ils partent au même instant avec une vitesse instantanée et
constante. Chacun se déplace dans le sens inverse des aiguilles d'une montre vers
l'élu ou l'élue de son coeur. A tout instant, ils se trouvent sur les sommets d'un carré
qui rétrécit et tourne autour de son centre. Le point de rencontre final sera le centre du carré.
On peut démontrer que chaque insecte décrit une portion de spirale logarithmique d'une
longueur égale au côté du carré, mais ceci est une autre histoire.
Si on considère le cas de N insectes amoureux, ils sont placés sur les sommets d'un
polygone régulier de degré N inscrit dans un cercle de rayon 1.
Le programme ci-dessous trace les différents polygones qui rétrécissent et tournent
autour de leur centre commun.

Code:

' ****************************************************
' *                                                                                       
' *          Les N insectes amoureux                                       
' *                par Papydall                                               
' *                                                 
' ****************************************************
dim titre$ : titre$ = "Les N insectes amoureux"
width 0,700 : height 0,700
caption 0,"Papydall vous présente        " + titre$
dim N,DC,NbPOL
' ******************************************************************************
' Ces constantes peuvent être modifiées
N = 10      : ' Nombre d'insectes
DC = 12      : ' diviseur du coté
NbPol = 200  : ' Nombre de polygones

' ******************************************************************************
dim X(N+1),Y(N+1),c,pi,angle,i,j,x1,x2,y1,y2
dim lx,ly,xmin,xmax,ymin,ymax
pi = 4*atn(1)
lx = 500 : ly = 500                          : ' Dimension de l'écran graphique
xmin = -1 : xmax = 1 : ymin = -1 : ymax = 1 : ' Coordonnées des bords de l'écran
label InitTabCoord, tracer
2d_fill_color 0,0,0 : 2d_rectangle 50,50,650,650
gosub InitTabCoord : gosub tracer
end

' ******************************************************************************
InitTabCoord:
c = 0
for angle = 0 to 2*pi step 2*pi/n
    c = c + 1
    ' Coordonnées des sommets du polygone
    x(c) = cos(angle) : y(c) = sin(angle)
next angle
x(n+1) = x(1) : y(n+1) = y(1) : ' Pour faciliter les calculs et le tracé
return
' ******************************************************************************
tracer:
for i = 1 to NbPol
    x1 = lx*(x(1)-xmin)/(xmax-xmin)
    y1 = ly*(y(1)-ymin)/(ymax-ymin)
    for j = 2 to n+1
        x2 = lx*(x(j)-xmin)/(xmax-xmin) : y2 = ly*(y(j)-ymin)/(ymax-ymin)
        2d_pen_color 0,255,255
        2d_line x1+100,y1+100,x2+100,y2+100
        x1 = x2 : y1 = y2
    next j
    ' Calcul des coordonnées du polygone suivant
    for j = 1 to n
        x(j) = x(j) + (x(j+1) - x(j))/DC
        y(j) = y(j) + (y(j+1) - y(j))/DC
    next j
    x(n+1) = x(1) : y(n+1) = y(1)
next i
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 6273
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Les N insectes amoureux   Ven 09 Mar 2012, 9:59 pm

Il manque la scène finale, quand tous les insectes rencontrent enfin leur élu(e).
Mais ceci est sans doute une autre histoire.

En attendant, joli graphisme !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les N insectes amoureux   Ven 09 Mar 2012, 10:34 pm

Voyons JL35, nous sommes sur un forum de programmation, c'est quoi ta scène finale avec tous ces insectes qui trouvent leur élu ?
A moins que... "recontre_insecte.com" jocolor geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Ven 09 Mar 2012, 10:44 pm

Bon comme j'aime toujours autant, j'y vais de ma petite colorisation (seule la ligne 2d_pen_color est modifiée par: 2d_pen_color y1/3,255-i,x1/2
Le reste est juste un changement de paramètres indiqués par Papydall comme à modifier:
Code:

' ****************************************************
' *
' *          Les N insectes amoureux
' *                par Papydall
' *
' ****************************************************
dim titre$ : titre$ = "Les N insectes amoureux"
width 0,700 : height 0,700 : caption 0,"Papydall vous présente        " + titre$
dim N, DC,NbPOL
' ******************************************************************************
' Ces constantes peuvent être modifiées
N = 4        : ' Nombre d'insectes
DC = 25      : ' diviseur du coté
NbPol = 58  : ' Nombre de polygones

' ******************************************************************************
dim X(N+1),Y(N+1),c,pi,angle,i,j,x1,x2,y1,y2
dim lx,ly,xmin,xmax,ymin,ymax
pi = 4*atn(1)
lx = 500 : ly = 500                          : ' Dimension de l'écran graphique
xmin = -1 : xmax = 1 : ymin = -1 : ymax = 1 : ' Coordonnées des bords de l'écran
label InitTabCoord, tracer
2d_fill_color 0,0,0 : 2d_rectangle 50,50,650,650
gosub InitTabCoord : gosub tracer
end

' ******************************************************************************
InitTabCoord:
c = 0
for angle = 0 to 2*pi step 2*pi/n
    c = c + 1
    ' Coordonnées des sommets du polygone
    x(c) = cos(angle) : y(c) = sin(angle)
next angle
x(n+1) = x(1) : y(n+1) = y(1) : ' Pour faciliter les calculs et le tracé
return
' ******************************************************************************

tracer:
for i = 1 to NbPol
    x1 = lx*(x(1)-xmin)/(xmax-xmin)
    y1 = ly*(y(1)-ymin)/(ymax-ymin)
    for j = 2 to n+1
        x2 = lx*(x(j)-xmin)/(xmax-xmin) : y2 = ly*(y(j)-ymin)/(ymax-ymin)
        2d_pen_color y1/3,255-i,x1/2
        2d_line x1+100,y1+100,x2+100,y2+100
        x1 = x2 : y1 = y2
    next j
    ' Calcul des coordonnées du polygone suivant
    for j = 1 to n
        x(j) = x(j) + (x(j+1) - x(j))/DC
        y(j) = y(j) + (y(j+1) - y(j))/DC
    next j
    x(n+1) = x(1) : y(n+1) = y(1)
next i
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6273
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Les N insectes amoureux   Ven 09 Mar 2012, 11:13 pm

Joli aussi !

@Jean Claude c'est que c'est affectueux ces petites bêtes, alors...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: re:Les N insectes amoureux   Ven 09 Mar 2012, 11:20 pm

Salut a tous
j'aime bien ce que vous faites
et pour le fun,je ressors sue le meme sujet
ce code
Code:

dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,v
width 0,800
height 0,800
rem coordonnées du centre
x0=400
Y0=400
color 0,0,0,0
rem rayon
r=380

rem nombre de côtés
n%=7
for v=1 to 140
r=r-3
rem angle de début
a=a+50/57.29

Pi = 3.1415926535898

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0

2D_poly_from Px,Py

For j% = 1 To n% :wait 1
    Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
    Py2 = r*Sin(a + 2*Pi*j%/n%) + y0
    2D_poly_to Px2, Py2
    Px = Px2
    Py = Py2
Next j%
2d_pen_color rnd( 255),rnd(125),rnd(240)
next v
end

c'est grace à jl 35 que j'avais pu dessiner cette
fleur
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
papydall

avatar

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

MessageSujet: Les N insectes amoureux   Ven 09 Mar 2012, 11:40 pm

Salut à tous!
Je voie bien que bien de Panoramiciens aiment la beauté qui ressort de certains graphismes. N'est-ce pas Sergeauze ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1127
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 12:05 am

Ô! Que c'est joli tout ces codes! Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 12:19 am

Beau aussi et en couleur Smile Bon du coup Sergeauze, tu as le droit aussi à ta version recolorisé par moi, j'espère que ça te plaira aussi

Code:

dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,v
width 0,800
height 0,800

rem coordonnées du centre
x0=400
Y0=400
color 0,0,0,0
rem rayon
r=380

rem nombre de côtés
n%=7
for v=1 to 255
r=r-3
rem angle de début
a=a+50/57.29

Pi = 3.1415926535898

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0

2D_poly_from Px,Py

For j% = 1 To n% :wait 1
    2d_pen_color j% * v/8,rnd(125), v
    Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
    Py2 = r*Sin(a + 2*Pi*j%/n%) + y0
    2D_poly_to Px2, Py2
    Px = Px2
    Py = Py2
Next j%
next v
end

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 12:35 am

pas vilain non plus
Les possibilites sont unfinies
Code:
dim beta,gama,f,fx,fy ,R
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width  0,1000
R=300
x0=500
y0=500
 ' Angle de depart
beta=8/57
 color 0,0,0,0
'  demi petit cote gama ne depass pas  90

2d_circle x0,y0,r
            for x=1 to 500
  beta=beta+186/57
  gama=gama+ 180/57
  if key_down_code =27 then end
 fx=x0+(sin(beta))
 fy=y0+(cos(beta)*r)
 ' 2d_circle fx,fy,5
 bx=x0-sin(beta+gama)*r
 by=y0+cos(beta+gama)
' 2d_circle bx,by,8
 wait 50
display
 cx= x0-(sin(beta+gama))
 cy= y0-(cos(beta+gama))*r
' 2d_circle cx,cy,10
 2d_line bx,by ,cx,cy
 2d_pen_color rnd( 255),rnd(125),rnd(240)
 
            next x
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 1:19 am

ok, bon alors, j'adore, du coup, mon paramétrage du code de Sergeauze:
Code:
dim beta,gama,bx,by,cx,cy,R,x0,y0,x

height 0,800 : width  0,800 :  color 0,0,0,0

R=280 : x0=400 : y0=400 : beta=8/57

for x=1 to 1020
  2d_pen_color 255 - x/4,255 - x/4,abs(255 - x/2)
  beta=beta+172/57 :  gama=gama+ 182/57
  if key_down_code =27 then end
  bx=x0-sin(beta+gama)*r : by=y0+cos(beta+gama)
  cx= x0-sin(beta+gama) : cy= y0-cos(beta+gama)*r
  2d_line bx,by,cx,cy
  display : wait 10
next x
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Les insectes amoureux (suite et fin)   Sam 10 Mar 2012, 5:03 am

Les N insectes amoureux (suite et fin)
**************************************
Considérons un polygone de degré pair D inscrit dans un cercle de rayon 1.
Si on joint tous les sommets au centre du polygone, on forme D triangles isocèles égaux. On applique le problème des N insectes amoureux à chacun des D triangles obtenus (donc ici N=3). on adopte la convention supplémentaire suivante : tous les triangles ayant un numéro impair subiront l'effet de rotation dans le sens positif tandisque ceux qui ont un numéro pair subiront la rotation dans le sens négatif.
Voici le code
Code:

' ******************************************************************************
' *
' *          Les N insectes amoureux  (SUITE & FIN)
' *                par Papydall
' *
' ******************************************************************************
dim titre$ : titre$ = "Les N insectes amoureux (suite et fin)"
width 0,700 : height 0,700 : caption 0,"Papydall vous présente        " + titre$
dim N, DC,NbRep ,DegPol
' ******************************************************************************
' Ces constantes peuvent être modifiées
DC = 16      : ' diviseur du coté
NbRep = 20  : ' Nombre de repetitions
DegPol = 12  : ' Degre du polygone

' ******************************************************************************
N = 3        : ' Nombre d'insectes sur les sommets du triangle
dim X(N+1),Y(N+1),ar,pi,angle,i,j,k,x1,x2,y1,y2
dim lx,ly,xmin,xmax,ymin,ymax
pi = 4*atn(1) : ar = 2*pi/DegPol
lx = 500 : ly = 500                          : ' Dimension de l'écran graphique
xmin = -1 : xmax = 1 : ymin = -1 : ymax = 1 : ' Coordonnées des bords de l'écran
' ******************************************************************************


2d_fill_color 0,0,0 : 2d_rectangle 50,50,650,650

for k = 1 to DegPol
    x(1) = 0 : y(1) = 0 : angle = (k-1)* ar
    x(2) = cos(angle) : y(2) = sin(angle) : angle = k * ar
    x(3) = cos(angle) : y(3) = sin(angle)
    x(4) = x(1) : y(4) = y(1)
    for j = 1 to  NbRep
      x1 = lx*(x(1)-xmin)/(xmax-xmin)
      y1 = ly*(y(1)-ymin)/(ymax-ymin)
      2d_poly_from x1+100,y1+100
        for i = 2 to  N+1
            x2 = lx*(x(i)-xmin)/(xmax-xmin)
            y2 = ly*(y(i)-ymin)/(ymax-ymin)
            2d_pen_color 50*i,10*j,250
            2d_poly_to x2+100,y2+100
        next i
        if (k/2) <> int (k/2)        : ' Triangle impair ?
          for i = N+1 to 2 step -1  : ' Rotation sens trigonométrique
              x(i) = x(i)+(x(i-1)-x(i))/DC
              y(i) = y(i)+(y(i-1)-y(i))/DC
          next i
          x(1) = x(n+1) : y(1) = y(n+1)
        else
          for i = 1 to n : ' Triangle pair --> Rotation sens horraire
              x(i) = x(i) + (x(i+1) - x(i))/DC
              y(i) = y(i) + (y(i+1) - y(i))/DC
          next i
          x(n+1) = x(1) : y(n+1) = y(1)
        end_if
    next j
next k

end


Dernière édition par papydall le Sam 10 Mar 2012, 12:31 pm, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
lodchjo

avatar

Nombre de messages : 162
Age : 47
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 9:43 am

ou, là, ç c'est vraiment magnifique!! le plus beau jamais vu!! Bravo! cheers
heureux de t'avoir parmi nous!
Lode.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 10:03 am

Le dernier est effectivement très joli. sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 11:07 am

Exact, tout à fait d'accord, le dernier et selon mes gouts le plus joli et la colorisation me plait (du cout je ne ferais pas ma version colorisées, ça me plait direct Smile )

Par contre, comme j'aime, je partage l'un de mes paramétrages:

Code:

' ******************************************************************************
' *
' *          Les N insectes amoureux  (SUITE & FIN)
' *                par Papydall
' *
' ******************************************************************************
dim titre$ : titre$ = "Les N insectes amoureux (suite et fin)"
width 0,700 : height 0,700 : caption 0,"Papydall vous présente        " + titre$
dim N, DC,NbRep ,DegPol
' ******************************************************************************
' Ces constantes peuvent être modifiées
DC = 16      : ' diviseur du coté
NbRep = 50  : ' Nombre de repetitions
DegPol = 20  : ' Degre du polygone

' ******************************************************************************
N = 3        : ' Nombre d'insectes sur les sommets du triangle
dim X(N+1),Y(N+1),ar,pi,angle,i,j,k,x1,x2,y1,y2
dim lx,ly,xmin,xmax,ymin,ymax
pi = 4*atn(1) : ar = 2*pi/DegPol
lx = 500 : ly = 500                          : ' Dimension de l'écran graphique
xmin = -1 : xmax = 1 : ymin = -1 : ymax = 1 : ' Coordonnées des bords de l'écran
' ******************************************************************************


2d_fill_color 0,0,0 : 2d_rectangle 50,50,650,650

for k = 1 to DegPol
    x(1) = 0 : y(1) = 0 : angle = (k-1)* ar
    x(2) = cos(angle) : y(2) = sin(angle) : angle = k * ar
    x(3) = cos(angle) : y(3) = sin(angle)
    x(4) = x(1) : y(4) = y(1)
    for j = 1 to  NbRep
      x1 = lx*(x(1)-xmin)/(xmax-xmin)
      y1 = ly*(y(1)-ymin)/(ymax-ymin)
      2d_poly_from x1+100,y1+100
        for i = 2 to  N+1
            x2 = lx*(x(i)-xmin)/(xmax-xmin)
            y2 = ly*(y(i)-ymin)/(ymax-ymin)
            if x2 < 350
              2d_pen_color abs(160 - 80*i),5*j,abs(200-k*20)
            else
              2d_pen_color 40*i,5*j,abs(200-k*20)
            end_if
            2d_poly_to x2+100,y2+100
        next i
        if (k/2) <> int (k/2)        : ' Triangle impair ?
          for i = N+1 to 2 step -1  : ' Rotation sens trigonométrique
              x(i) = x(i)+(x(i-1)-x(i))/DC
              y(i) = y(i)+(y(i-1)-y(i))/DC
          next i
          x(1) = x(n+1) : y(1) = y(n+1)
        else
          for i = 1 to n : ' Triangle pair --> Rotation sens horraire
              x(i) = x(i) + (x(i+1) - x(i))/DC
              y(i) = y(i) + (y(i+1) - y(i))/DC
          next i
          x(n+1) = x(1) : y(n+1) = y(1)
        end_if
    next j
next k

end
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1127
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 12:42 pm

Bonjour Papydall, Smile
Alors là, c'est vraiment magnifique!
Du coup, ça m'a donné envie de chercher un code de dessin, et j'aime bien ces quelques fleurs:
(Jicehel se chargera sans doute de les rendre plus colorées!)
Code:
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600:height 0,600:color 0,0,0,0:display
largx=width(0)/2:hauty=height(0)/2:k=57.29577951308
2d_pen_width 2
for m=4 to 12 step 2
  for i=0.05 to 360 step 0.05
      j=sin(m*i/k)
      r=100*sqr(abs(j))
  if j<0 then r=-1*r
      2d_pen_color 70+i/2,0,70+i/2
      x1=largx+r*cos(i/k):y1=hauty+r*sin(i/k)
      x2=largx+cos(i):y2=hauty+sin(i)
      2d_line x1,y1,x2,y2
      if scancode=27 then terminate
  next i
  2d_fill_color 200,200,0
  2d_circle largx,hauty,15
  wait 800:cls
next m
terminate
Bonne journée à tous! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Les N insectes amoureux   Sam 10 Mar 2012, 12:52 pm

Salut à toi, Bignono!
Je voie bien que je ne suis pas le seul à rester un grand enfant bien qu'il y ait plus de 30 ans que je n'ai plus 30 ans!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 2:15 pm

Bon, j'ai essayé de garder l'esprit "Fleur" et par conséquent pas de débauche de couleur, mais j'aimais déjà bien ta colorisation.
Bon, dans le thème fleur rouge, voici ma "colorisation Smile )
Code:
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600:height 0,600:color 0,0,0,0:display
largx=width(0)/2:hauty=height(0)/2:k=57.29577951308
2d_pen_width 2
for m=4 to 12 step 2
  for i=0.05 to 360 step 0.05
      j=sin(m*i/k)
      r=100*sqr(abs(j))
      if j<0 then r=-1*r
      2d_pen_color abs(255-i*1.4),0, 0
      ' 2d_pen_color abs(180-i),0,abs (i-180)
      x1=largx+r*cos(i/k):y1=hauty+r*sin(i/k)
      x2=largx+cos(i):y2=hauty+sin(i)
      2d_line x1,y1,x2,y2
      if scancode=27 then terminate
  next i
  for i = 0 to 200 step 2
    2d_pen_color i,i,0 : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
En tout cas bravo pour l'avoir trouvé. Bon, pour le fun, tu rajoutes la tige et les feuilles ? Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6273
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Les N insectes amoureux   Sam 10 Mar 2012, 3:27 pm

Jolies marguerites, en si peu de lignes...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Les N insectes amoureux   Dim 11 Mar 2012, 12:42 am

Comme le graphisme a suscité beaucoup d’enthousiasme parmi certains, admirez l’esthétique polaire avec ce code.
Code:

' ****************************************************
' *                                                                                       
' *          L'esthétique polaire
' *                par Papydall                                                   
' *                                                                                       
' ****************************************************
dim titre$ : titre$ = "L'esthétique polaire"
caption 0,"Papydall vous présente        " + titre$
width 0,700 : height 0,700
dim LX,LY,Xmin,Xmax,Ymin,Ymax,xp,yp,x,y,pi,t,f,periode,pas
pi = 4*atn(1)
LX = 500 : LY = 500  :                        ' dimentions de l'écran graphique
Xmin = -1 : XMax = 1 : Ymin = -1 : YMax = 1 : ' coordonnées des bords de l'écran
label  fonction
2d_pen_color 255,0,0 : 2d_fill_color 0,0,0 : 2d_rectangle 0,0,700,700
2d_poly_from lx+50,ly/2+50

periode = 20*pi : pas = pi/180
for t = 0 to periode +.1*pas step pas
    gosub fonction
    x = f*cos(t) : y = f*sin(t)
    xp = lx*(x-xmin)/(xmax-xmin) : yp = ly*(y-ymin)/(ymax-ymin)
    2d_poly_to  xp+50, yp+50
next t
end

fonction:
f = cos(9*t/10)
' f = cos(2*t/9) * cos(t)
' f = cos(t/10)
' f = 1/(sin(5*t)+.00001)
' f = sin(2*t)/(2+cos(t))
' f = sin(11*t/13)*cos(t)
' f = cos(sin(t/2))*sin(t/10)
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Dim 11 Mar 2012, 1:39 am

Bon ben comme d'hab, ma colorisation Wink
J'ai retiré une des fonctions en commentaire de ton programme car elle était incompatible avec la formule de colorisation pour pallier, j'ai remis quelques paramètres amusants, mais les possibilités "fun" sont énormes
Code:

' ****************************************************
' *
' *          L'esthétique polaires
' *                par Papydall
' *
' ****************************************************
dim titre$ : titre$ = "L'esthétique polaire"
caption 0,"Papydall vous présente        " + titre$
width 0,700 : height 0,700
dim LX,LY,Xmin,Xmax,Ymin,Ymax,xp,yp,x,y,pi,t,f,periode,pas
pi = 4*atn(1)
LX = 500 : LY = 500  :                        ' dimentions de l'écran graphique
Xmin = -1 : XMax = 1 : Ymin = -1 : YMax = 1 : ' coordonnées des bords de l'écran
label  fonction
2d_pen_color 0,0,0 : 2d_fill_color 0,0,0 : 2d_rectangle 0,0,700,700
2d_poly_from lx+50,ly/2+50

periode = 20*pi : pas = pi/180
for t = 0 to periode +.1*pas step pas
    gosub fonction
    x = f*cos(t) : y = f*sin(t)
    xp = lx*(x-xmin)/(xmax-xmin) : yp = ly*(y-ymin)/(ymax-ymin)
    2d_poly_to  xp+50, yp+50
    if yp + 250 > LY
      2d_pen_color abs(255*cos(t)/3),0,abs(200-(LY-YP))
    else
      2d_pen_color abs(350-(LY-YP)),0,abs(255*cos(t)/3)
    end_if

next t
end

fonction:
 f = cos(9*t/10)
' f = cos(2*t/9) * cos(t)
' f = cos(4*t/9) * cos(2*t)
' f = sin(2*t/9) * cos(4*t)
' f = cos(10*t) * cos(5*t)
' f = cos(2*t/13) * cos(13*t)
' f = cos(t/10)
' f = sin(2*t)/(2+cos(t))
' f = sin(11*t/13)*cos(t)
' f = cos(sin(t/2))*sin(t/10)
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1127
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Les N insectes amoureux   Dim 11 Mar 2012, 8:29 pm

Bonjour à tous, Smile
Un petit programme pour papydall, que Jicehel va certainement coloriser! lol!
Code:
dim a,b,x,y
b=20
width 0,500:height 0,500:color 0,0,0,0:display
2d_pen_color 255,0,0
for a=0 to 200 step .01
  b=b+0.01:x=(b*sin(a/0.01))+225:y=(b*(tan(sin(a)/2)))+225
  2d_point x,y:2d_point y,x
next a
a+ Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Les insectes amoureux   Dim 11 Mar 2012, 8:46 pm

Salut Bignono!
Ce type de graphisme est toujours beau à voir!
Jicehel ajoutera certainement sa touche de couleur.
A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5474
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les N insectes amoureux   Dim 11 Mar 2012, 9:11 pm

Plus court pour ce résultat çà n'existe pas.

@Jicehel: Je constate que tu es devenu le coloriste officiel de Panoramic. lol!

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Les N insectes amoureux   Dim 11 Mar 2012, 11:50 pm

Pas de problème, coloriste, ça me va, faute d'être matheux Wink
Bon du coup je fais 2 propositions de colorisation (juste changer la ligne de commentaires):

Code:
dim a,b,x,y : b=30
width 0,400:height 0,420:color 0,0,0,0
for a=0 to 400 step .025
  b=b+0.01:x=(b*sin(a/0.01))+190:y=(b*(tan(sin(a)/2)))+190
' 2d_pen_color abs(250 - x * 0.8), abs(255 - a), abs( 180 - y)
 2d_pen_color abs(b*sin(a/0.01)),255-a/2,a/2
 2d_point x,y:2d_point y,x:display
next a
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Les N insectes amoureux   

Revenir en haut Aller en bas
 
Les N insectes amoureux
Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Les N insectes amoureux
» Kimi Ga Nozomu Eien
» Janvier s'achève, en route vers le mois des amoureux ! (bilan)
» photos du mois d'Août
» Histoires pas drôles pour rire entre amis quand on est tout seul.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: