Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Novembre 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendrier Calendrier


DES MATHS POUR L'ESTHETIQUE DES COURBES

Aller en bas

DES MATHS POUR L'ESTHETIQUE DES COURBES

Message par Papydall-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
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 68
Localisation : MOKNINE (Tunisie)

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

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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