Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fougère  Panoramic  Moiré  esthetique  

Derniers sujets
»  Exemple de menu
Hier à 22:36 par Admin

» Utilisation du caractère Ampersand (&) dans un caption
Hier à 22:32 par Admin

» TRIGONOMETRIE CIRCULAIRE ET HYPERBOLIQUE
Ven 23 Juin - 0:59 par Admin

» RECHERCHE DICHOTOMIQUE DANS UN TABLEAU TRIE
Ven 23 Juin - 0:46 par Admin

» Table de multiplication
Ven 23 Juin - 0:44 par Admin

» Quelle heure est-il ?
Mar 20 Juin - 3:32 par Admin

» Fonctions de la user32.dll
Dim 18 Juin - 14:56 par Admin

»  Biomorphes de PICKOVER
Dim 18 Juin - 0:35 par Admin

» En moins de 10 lignes de code : Effet spectaculaire !
Ven 16 Juin - 2:13 par Admin

Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendrier Calendrier


En moins de dix lignes de code PANORAMIC

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

En moins de dix lignes de code PANORAMIC

Message par Admin le Jeu 13 Oct - 14:18

Code:

dim a,r,xc,yc ,xp,yp
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer ....."
repeat
   a = a + .0123456789 : r = r + .0123456789  : xp = xc + 2*r*COS(a) : yp = yc + r*SIN(a): if r > 200 then r = 0
   2d_pen_color 255,rnd(255),150 : 2d_rectangle xp-40,yp-40,xp+40,yp+40 : xp = xc + r*COS(a + .079 * 9) : yp = yc + r* SIN(a + .079 * 9)
   2d_pen_color rnd(255),0,155 : 2d_circle xp, yp,50 : 2d_pen_color 255,rnd(255),255 : 2d_circle xp+yp,xp-yp,40
   2d_pen_color rnd(150),150,rnd(150) : 2d_circle yp,xp-yp/1.25,60 : 2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_rectangle xp-yp,yp,yp,xp-yp/1.5
   2d_pen_color 255,rnd(255),rnd(255) : 2d_circle yp,xp-yp,60 : 2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_circle xp+xp/3+yp/4,xp-yp,50
until scancode <> 0


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

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

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

Revenir en haut Aller en bas

Re: En moins de dix lignes de code PANORAMIC

Message par Admin le Jeu 13 Oct - 14:19

Code:

dim angle,r,xc,yc
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer ....."
repeat
   angle = angle + 0.0123456789 : r = r + 1.07123456789 : if r > 350 then r = 0
   2d_pen_color 255,255,0 : 2d_circle xc + 2* r*COS(angle), yc + r*SIN(angle),2
   2d_pen_color 255,0,255 : 2d_circle xc + r*COS(angle + .079 * 9), yc + r* SIN(angle + .079 * 9),2
until scancode <> 0

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

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

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

Revenir en haut Aller en bas

Re: En moins de dix lignes de code PANORAMIC

Message par Admin le Jeu 13 Oct - 14:48

Difficile de faire mieux en si peu de lignes !

Code:

rem ============================================================================
rem        Moiré
rem ============================================================================
dim t,x : x = width(0)
for t = 1 to x step 3 : 2d_line 0,0,x,t : 2d_line 0,0,t,x : next t
rem ============================================================================

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

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

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

Revenir en haut Aller en bas

Re: En moins de dix lignes de code PANORAMIC

Message par Contenu sponsorisé


Contenu sponsorisé


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