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
» quel est ce comportement de Panoramic_editor
par JL35 Aujourd'hui à 16:38

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» Découpe dans une image
par JL35 Hier à 22:00

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Des poissons siamois pour le 1er Avril

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5746
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 : 10577
Age : 68
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 : 5746
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: