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
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Des poissons siamois pour le 1er Avril

Aller en bas 
AuteurMessage
papydall

avatar

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

MessageSujet: Des poissons siamois pour le 1er Avril   Jeu 31 Mar 2016 - 18:37

Code:

rem ============================================================================
rem                  Poissons siamois
rem                    Par Papydall
rem       Version PANORAMIC_EDITOR V.09.27i5 ou supérieure
rem ============================================================================
rem Deux simples équations paramétriques X = f(t) et Y = g(t) permettent de
rem tracer des jolies courbes.
rem Admirez la courbe des poissons siamois.
rem ============================================================================
rem               _________________________________________________________
rem              |                              ||                        |
rem              |   x = 5*cos(t) - c*cos(5*t)  || avec c = sqr(2) - 1    |
rem              |   y = sin(4*t)               || t variant de 0 à 360°  |
rem              |______________________________||________________________|
rem
rem ============================================================================
picture 10 : width 10,width(0)-100 : height 10,height(0)-100
top 10,20 : left 10,50 : 2d_target_is 10 : print_target_is 10
font_name 10,"arial" : font_size 10,14 : font_color 10,0,0,255
color 0,0,0,0 : 2d_pen_color 255,150,50 : color 10,0,255,255

Poissons_Siamois(250,150,40)
Poissons_Siamois(050,050,06) : Poissons_Siamois(450,050,06)
Poissons_Siamois(060,350,12) : Poissons_Siamois(440,350,12)

2d_fill_color 0,255,255
print_locate 150,020 : print "VIVE LES MATHEMATIQUES"
print_locate 200,050 : print "Poissons siamois"
print_locate 150,220 : print "Equations paramétriques :"
print_locate 150,250 : print "x = 5 * cos(t) - c * cos(5*t)"
print_locate 150,275 : print "y = sin(4*t)"
print_locate 150,300 : print "avec c = sqr(2) - 1"
print_locate 150,325 : print "t angle variant de 0 à 360°"

END
rem ============================================================================
' Equations paramétriques des poissons siamois
' x = 5*cos(t) - c*cos(5*t)
' y = sin(4*t)
' avec c = sqr(2)-1 = 0.41421356...
' t angle variant de 0 à 360°
' ------------------------------------------------------------------------------
' Paramètres :
' xc,yc : coordonnées du point de contact de deux poissons
' taille : taille en pixels
SUB Poissons_Siamois(xc,yc,taille)
    dim_local x,y,t,xp,yp,c
    degrees
    c = sqr(2) - 1
    if taille < 6 then taille = 6
    2d_poly_from xc+taille*(5-c),yc
    for t = 0 to 360
        x = 5*cos(t) - c * cos(5*t) : y = sin(4*t)
        xp = xc + taille * x : yp = yc + taille * y
        2d_poly_to xp,yp
    next t
    2d_flood xc-2,yc,255,150,50 :  2d_flood xc+2,yc,255,150,50
    2d_flood xc+1-(5-2*c)*taille,yc,255,150,50
    2d_flood xc-1+(5-2*c)*taille,yc,255,150,50
END_SUB
rem ============================================================================

Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Des poissons siamois pour le 1er Avril   Jeu 31 Mar 2016 - 18:44

Très joli, Papydall. En apparence court et simple, mais il fallait les pêcher, ceux-là !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

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

MessageSujet: Re: Des poissons siamois pour le 1er Avril   Jeu 31 Mar 2016 - 18:58

Klaus a écrit:
Très joli, Papydall. En apparence court et simple, mais il fallait les pêcher, ceux-là !

Ça c’est une excellente idée de faire un jeu de pêche à l’aide d’un hameçon attaché à un élastique n’obéissant à aucune loi de la mécanique !
Si quelqu’un pourrait le faire, ça serait marrant.


Mais qui peut séparer mes poissons siamois ?

Si vous séchez, voici la SUB du poisson solitaire:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Des poissons siamois pour le 1er Avril   

Revenir en haut Aller en bas
 
Des poissons siamois pour le 1er Avril
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Des poissons siamois pour le 1er Avril
» Je serais absente du 6 avril au 11 avril 2012
» préparatifs pour le 16avril
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.

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: