Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Bonne année
Dim 6 Jan - 23:09 par Papydall-Admin

» Joyeux Noel
Lun 24 Déc - 17:30 par Papydall-Admin

» Fête de Noël
Dim 16 Déc - 23:58 par Papydall-Admin

» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin

» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin

» 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

Janvier 2019
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendrier Calendrier


En moins de 10 lignes de code : Effet spectaculaire !

Aller en bas

En moins de 10 lignes de code : Effet spectaculaire !

Message par Papydall-Admin le Ven 16 Juin - 2:13

Code:
dim x,y,xc,yc,d,i
full_space 0 : caption 0,"!!! Veuillez patienter !!!  <CLICK> pour arrêter"
D = 1.20123456789 + rnd(1): xc = width(0)*0.5:yc = height(0)*0.5 : color 0,0,0,0
repeat
     i = i + 1.25 : X = X + sin(D * power(I,D)): Y = Y + COS(D *power(I,D))
     2d_pen_color mod(i,255),rnd(255),mod(i,255)
     2d_point xc+x,yc+y:2d_point xc-x,yc-y:2d_point xc+x,yc-y:2d_point xc-x,yc+y
until i > 240000 or scancode <> 0
caption 0,"!!! Terminé !!!"

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

Messages : 100
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