FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Les N insectes amoureux - Page 2 Emptypar JL35 Hier à 17:28

» Petit passage furtif
Les N insectes amoureux - Page 2 Emptypar Froggy One Mer 27 Mar 2024 - 14:26

» SPIN et aide langage (résolu)
Les N insectes amoureux - Page 2 Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Les N insectes amoureux - Page 2 Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Les N insectes amoureux - Page 2 Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Les N insectes amoureux - Page 2 Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Les N insectes amoureux - Page 2 Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Les N insectes amoureux - Page 2 Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Les N insectes amoureux - Page 2 Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Les N insectes amoureux - Page 2 Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Les N insectes amoureux - Page 2 Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Les N insectes amoureux - Page 2 Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Les N insectes amoureux - Page 2 Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Les N insectes amoureux - Page 2 Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Les N insectes amoureux - Page 2 Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Le deal à ne pas rater :
Aliexpress : codes promo valables sur tout le site
Voir le deal

 

 Les N insectes amoureux

Aller en bas 
+3
Jean Claude
JL35
papydall
7 participants
Aller à la page : Précédent  1, 2
AuteurMessage
sergeauze

sergeauze


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

Les N insectes amoureux - Page 2 Empty
MessageSujet: re:Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyDim 11 Mar 2012 - 23:11

bonsoir
je ne resiste pas au plaisir de faire colorise
mon code en noiret blanc
Code:

 dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
dim bx1,by1,beta1,r2 ,tx,ty
height 0,850
width  0,850
R=400
x0=400
y0=400
 ' Angle de depart
beta=140/57.29 :gama=40/57.29
' 2d_circle x0,y0,r
  2d_circle x0,y0,5
'  demi petit cote gama ne depass pas  90
'  gama= 0/57
' 2d_flood 10,10,100,50,200
            for x=1 to 40000
                beta=beta+0.5/57.29
  if key_down_code =27 then end
  rem XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxx
  bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)
        ' 2d_circle bx,by,10
 bx1=bx +(sin(beta+gama+beta1)*r2 )
 by1=by+ (cos(beta+gama+beta1)*r2)
  2d_line tx,ty,bx1,by1
          beta1=beta1+5/57.29
          tx=bx1
          ty=by1
          r=r-0.01
          r2=r2  +0.003
          2d_circle bx1,by1,1
rem XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
display


            next x

bonne soiree
Revenir en haut Aller en bas
http://sergeauze.blog-video.tv/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011

Les N insectes amoureux - Page 2 Empty
MessageSujet: Re: Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyDim 11 Mar 2012 - 23:53

Ben une colorisation aussi puisque j'aime bien la couleur (mais le noir et blanc, je respecte aussi Wink )
Ca donnerait ça en couleur par exemple:
Code:
dim beta,gama,r,x,bx1,by1,beta1,r2 ,tx,ty,bx,by, x0,y0
height 0,850 : width  0,850
R=400 : x0=400 : y0=400
 ' Angle de depart
beta=140/57.29 :gama=40/57.29
for x=1 to 40000
  beta=beta+0.5/57.29
  if key_down_code =27 then end
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  bx=x0+(sin(beta+gama)*r)            : by =y0+(cos(beta+gama)*r)
  bx1=bx +(sin(beta+gama+beta1)*r2)    : by1=by+ (cos(beta+gama+beta1)*r2)
  2d_pen_color int(x/180),0,int(x/180) : 2d_line tx,ty,bx1,by1
  beta1=beta1+5/57.29 : tx=bx1 : ty=by1: r=r-0.01 : r2=r2+0.003 : display
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
next x
Revenir en haut Aller en bas
papydall

papydall


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

Les N insectes amoureux - Page 2 Empty
MessageSujet: Les insectes amoureux   Les N insectes amoureux - Page 2 EmptyLun 12 Mar 2012 - 1:06

Salut Sergeauze, salut Jicehel.
Chapeau ! Le moins que l’on puisse dire c’est …. Magnifique ! Et la couleur par Jicehel ajoute une touche de beauté. Ah les maths ! : En connaitre une partie c’est excellent.
Savoir s’en servir c’est parfait !
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
sergeauze

sergeauze


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

Les N insectes amoureux - Page 2 Empty
MessageSujet: re:Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyLun 12 Mar 2012 - 18:09

salut à tous
C'est vrai ce que tu dis.Je trouve une certaine beauté
à toutes ces creations et je me mets à apprecier les maths !!!
Et à plus tard
Revenir en haut Aller en bas
http://sergeauze.blog-video.tv/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011

Les N insectes amoureux - Page 2 Empty
MessageSujet: Re: Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyLun 12 Mar 2012 - 23:50

Bon, je viens de rebooter une nouvelle fois ma box, je devrais avoir le temps de poster une petite création, histoire d'avoir notre courbe quotidienne Wink

Code:
label fin
dim a,b,x,y
width 0,600:height 0,350:color 0,0,0,0
 for b=1 to 5 step 0.12
 for a=8 to 11 step .01
  x= hsin(a)/200 * cos(x)
  y= sin(a)*50
  2d_pen_color abs(255 - ((b-1)*100)),100 + (b-3)*20,255 -b*42
  2d_point 300-x*hsin(b/2),100-y:2d_point 300-x*hsin(b/2),200+y
 if key_down_code  = 27 then goto fin
 display
 next a
 next b
wait 500
for a= 7 to 13  step 0.0005
  x= hsin(a)/200 * cos(x)
  y= sin(a)*50
  2d_pen_color abs(155 - a*5),abs(200-y),abs(255 - a*6)
  2d_point x+300,100-y:2d_point x+300,200+y
  if key_down_code  = 27 then goto fin
 display
next a
fin:
for b=1 to 2
wait 300
for a=1 to 160
  if b=1 then 2d_pen_color a,rnd(255), 255-a
  if b=2 then 2d_pen_color 0,0,0
  2D_line 1,a,600,320 - a : 2D_line 1,320-a,600,a
  2D_line 1,a,600,a      : 2D_line 1,320-a,600,320 -a
  wait 50
next a
next b
end
Revenir en haut Aller en bas
papydall

papydall


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

Les N insectes amoureux - Page 2 Empty
MessageSujet: les insectes amoureux   Les N insectes amoureux - Page 2 EmptyMar 13 Mar 2012 - 2:33

Ok, Jicehel.
Moi aussi je participe avec ce napperon de dentelle.
Quant à la couleur, c'est....
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 pi : pi = 4*atn(1)
dim a,b,x,y,xc,yc,n,p,r ,x0,y0
n = 22 : xc = 350 : yc = 350 : r = 300 : p = 2*pi/n
print "  Le napperon de dentelle"
for a = 0 to 2*pi step p
  x0 = xc + r*cos(a) : y0 = yc + r* sin(a)
  for b = a+p to 2*pi-p step p
      x = xc + r * cos(b) : y = yc + r * sin(b)
      2d_line x0,y0,x,y
  next b
next a



Dernière édition par papydall le Mar 13 Mar 2012 - 21:08, édité 1 fois
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
papydall

papydall


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

Les N insectes amoureux - Page 2 Empty
MessageSujet: Re: Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyMar 13 Mar 2012 - 2:43

Et ma version couleur.
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 pi : pi = 4*atn(1)
dim a,b,x,y,xc,yc,n,p,r ,x0,y0
n = 22 : xc = 350 : yc = 350 : r = 300 : p = 2*pi/n
print "  Le napperon de dentelle"
for a = 0 to 2*pi step p
  x0 = xc + r*cos(a) : y0 = yc + r* sin(a)
  for b = a+p to 2*pi-p step p
      x = xc + r * cos(b) : y = yc + r * sin(b)
      2d_pen_color x/3, 30+y/4, x/y
      2d_line x0,y0,x,y
  next b
next a


Dernière édition par papydall le Mar 13 Mar 2012 - 21:08, édité 1 fois
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
papydall

papydall


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

Les N insectes amoureux - Page 2 Empty
MessageSujet: Re: Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyMar 13 Mar 2012 - 3:39

Et ceci
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 pi : pi = 4*atn(1)
dim a,b,x,y,xc,yc,n,p,r ,x0,y0
n = 40 : xc = 350 : yc = 350 : r = 300 : p = 2*pi/n
print "  Le napperon de dentelle"
for a = 0 to 2*pi step p
  x0 = xc + r*cos(a) : y0 = yc + r* sin(a)
  for b = a+p to 2*pi-p step p
      x = xc + r * cos(b) : y = yc + r * sin(b)
      2d_pen_color 30+x/3, 120+y/10, 50+x/y
      2d_line x0,y0,x,y
  next b
next a


Dernière édition par papydall le Mar 13 Mar 2012 - 21:07, édité 1 fois
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011

Les N insectes amoureux - Page 2 Empty
MessageSujet: Re: Les N insectes amoureux   Les N insectes amoureux - Page 2 EmptyMar 13 Mar 2012 - 4:53

Superbe, allez, je donne une variante simplifiée de mon code d'avant qui était un peu "confus" et moins épuré que les courbes habituelles Smile
Cette fois, c'est plus dans les classiques:
Code:
label fin
dim a,x,y
width 0,600:height 0,350:color 0,0,0,0
for a= 7.7 to 14  step 0.0005
  x= hsin(a)/200 * cos(x) : y= sin(a)*50
  2d_pen_color abs(155 - a*5),abs(200-y),abs(255 - a*6)
  2d_point x+300,200-y:2d_point x+300,100+y
  if key_down_code  = 27 then goto fin
 display
next a
fin:
end
Revenir en haut Aller en bas
Contenu sponsorisé





Les N insectes amoureux - Page 2 Empty
MessageSujet: Re: Les N insectes amoureux   Les N insectes amoureux - Page 2 Empty

Revenir en haut Aller en bas
 
Les N insectes amoureux
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Pour les amoureux des maths

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: