Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
»  Simuler l’appui d'une touche ou combinaison de touches
Sam 16 Sep - 13:58 par Admin

» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


DES MATHS POUR L'ESTHETIQUE DES COURBES

Voir le sujet précédent Voir le sujet suivant Aller en bas

DES MATHS POUR L'ESTHETIQUE DES COURBES

Message par Admin le Jeu 13 Oct - 5:08

Code:

rem ============================================================================
'       DES MATHS POUR L'ESTHETIQUE DES COURBES
'                  PAR PAPYDALL
rem ============================================================================

Init()

2d_target_is 01 : Araignee()
2d_target_is 02 : Mouche()
2d_target_is 03 : Moucheron()
2d_target_is 04 : Papillon()
2d_target_is 05 : Combat_De_taureaux()
2d_target_is 06 : Glands()
2d_target_is 07 : Champignon_Vesse_De_Loup()
2d_target_is 08 : Champignon_Rose()
2d_target_is 09 : Champignon_Amanite()
2d_target_is 10 : Champignon_Jeune_Cep()
2d_target_is 11 : Chapeau_De_Gamine()
2d_target_is 12 : Coupe_Coupe()
2d_target_is 13 : Applique_De_Porte()
2d_target_is 14 : Bonnet_D_Ane()
2d_target_is 15 : Tete_D_Arlequin()

END
REM ============================================================================
SUB Init()
    dim x,y,t,xc,yc,i,h,w,r

    full_space 0 : h = height(0) : w = width(0)-5 : color 0,255,255,255
    caption 0,"DES MATHS POUR L'ESTHETIQUE DES COURBES"
    for i = 1 to 5
        picture i : top i,35-35 : width i, w/5-15 : height i,h/3-20
        left i,width(i) *(i-1)+12*(i)
    next i
    for i = 6 to 10
        picture i : top i,35-25+height(i-1) : width i, w/5-15 : height i,h/3-20
        left i,width(i) *(i-6)+12*(i-5)
    next i
    for i = 11 to 15
        picture i : top i,35-15+2*height(i-1) : width i, w/5-15 : height i,h/3-20
        left i,width(i) *(i-11)+12*(i-10)
    next i
    xc = width(1)/2-8 : yc = height(1)/2-17
    for i = 1 to 15
       color i,00,128,128 : 2d_pen_color 255,255,0 : 2d_target_is i
    next i
    2d_pen_color 255,255,0

END_SUB
REM ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
SUB Araignee()
    degrees
    for t = 0 to 360 step .1
        x = 60*sin(5*t)*cos(t)/cos(4*t)
        y = 60*sin(5*t)*sin(t)/cos(4*t)
        2d_point xc+x,yc+y
    next t
    display
END_SUB
rem ============================================================================
SUB Mouche()
    dim_local p,s
    radians : p = pi/180 : s = 50
    for t = 0 to 2*pi step p
        r = 2*sin(t-3*pi/4)+cos(4*t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y
        2d_poly_to xc+x,yc-y
    next t
    display
END_SUB
rem ============================================================================
SUB Moucheron()
    dim_local p,s
    radians : p = pi/180 : s = 60
    for t = 0 to 2*pi step p
        r = (sin(4*t-pi/2) + cos(2*t-pi/4))/2
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y
        2d_poly_to xc+x,yc-y
    next t
    display
END_SUB
rem ============================================================================
SUB Papillon()
    dim_local p,s
    radians : p = pi/180 : s = 30
    for t = 0 to 2*pi step p
        r = sin(7*t)-1-3*cos(2*t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y
        2d_poly_to xc+x,yc-y
    next t
    display
END_SUB
rem ============================================================================
SUB Combat_De_Taureaux()
    dim_local p,s,epsilon
    radians : p = pi/180 : s = 40 : epsilon = power(10,0-10)
    for t = epsilon to 2*pi step p
        r = 2/tan(t) + sin(5*t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y
        2d_poly_to xc+x,yc-y
    next t
    display
END_SUB
rem ============================================================================
SUB Glands()
    dim_local p,s
    radians : p = pi/180 : s = 40
    for t = 0 to 2*pi step p
        r = 2*sin(3*t) - cos(6*t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y
        2d_poly_to xc+x,yc-y
    next t
    display
END_SUB
rem ============================================================================
SUB Champignon_Vesse_De_Loup()
    dim_local p,s
    radians : p = pi/180 : s = 30
    for t = 0 to 2*pi step p
        r = 0-sin(5*t) - 4*sin(t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y-2*s
        2d_poly_to xc+x,yc-y-2*s
    next t
    display
END_SUB
rem ============================================================================
SUB Champignon_Rose()
    dim_local p,s
    radians : p = pi/180 : s = 30
    for t = 0 to 2*pi step p
        r = 0-2*sin(5*t) - 4*sin(t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y-2*s
        2d_poly_to xc+x,yc-y-2*s
    next t
    display
END_SUB
rem ============================================================================
SUB Champignon_Amanite()
    dim_local p,s
    radians : p = pi/180 : s = 30
    for t = 0 to 2*pi step p
        r = 0-2*sin(5*t) - 3*sin(t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y-2*s
        2d_poly_to xc+x,yc-y-2*s
    next t
    display
END_SUB
rem ============================================================================
SUB Champignon_Jeune_Cep()
    dim_local p,s,x0,y0
    radians : p = pi/180 : s = 30
    for t = 1.78 to 4.5 step p
        r = sin(6*t) - 4*sin(t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 1.78 then x0 = xc+x : y0 = yc-y-2*s : 2d_poly_from x0,y0
        2d_poly_to xc+x,yc-y-2*s
    next t
    2d_poly_to x0,y0
    display
END_SUB
rem ============================================================================
SUB Chapeau_De_Gamine()
    dim_local p,s
    radians : p = pi/180 : s = 30
    for t = 0 to 2*pi step p
        r = 0-4*cos(cos(2*t) + sin(3*t))
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y+s
        2d_poly_to xc+x,yc-y+s
    next t
    display
END_SUB
rem ============================================================================
SUB Coupe_Coupe()
    dim_local p,s
    radians : p = pi/180 : s = 30
    for t = 0 to 2*pi step p
        r = 4*cos(cos(4*t)/cos(6*t))
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y+s
        2d_poly_to xc+x,yc-y+s
    next t
    display
END_SUB
rem ============================================================================
SUB Applique_De_Porte()
    dim_local p,s
    radians : p = pi/180 : s = 40
    for t = 0 to 2*pi step p
        r = cos(4*t) - 2*cos(2*t)
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 0 then 2d_poly_from xc+x,yc-y+s/2
        2d_poly_to xc+x,yc-y+s/2
    next t
    display
END_SUB
rem ============================================================================
SUB Bonnet_D_Ane()
    dim_local p,s
    radians : p = pi/180 : s = 40
    for t = 1.59 to 4.74 step p
        r = 3*sin(t) + sin(4*t+sin(3*t))
        x = s*r*cos(t) : y = s*r*sin(t)
        if t = 1.59 then 2d_poly_from xc+x,yc-y+2*s
        2d_poly_to xc+x,yc-y+2*s
    next t
    display
END_SUB
rem ============================================================================
SUB Tete_D_Arlequin()
    dim_local p,s
    radians : p = pi/180 : s = 20
    for t = 0.7 to 5.6 step p
        x = 3.5*sin(t)-3*sin(3*t) : y = 3.5*cos(t)-3*cos(4*t)
        if t = 0.7 then 2d_poly_from xc+x*s,yc-y*s
        2d_poly_to xc+x*s,yc-y*s
    next t
    display
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Admin
Admin

Messages : 68
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum