Forum de Programmation en langage PANORAMIC


Rejoignez le forum, c’est rapide et facile

Forum de Programmation en langage PANORAMIC
Forum de Programmation en langage PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Derniers sujets
» Bonne année 2024
 Parametric spirograph EmptyLun 1 Jan - 0:25 par Papydall-Admin

» A ceux qui célèbre Noël, bonnes fêtes
 Parametric spirograph EmptyDim 24 Déc - 10:49 par Papydall-Admin

» Joyeux Noël et Bonne Année
 Parametric spirograph EmptyVen 8 Déc - 1:34 par Papydall-Admin

» Planets of the Solar System : Tilts and Spins
 Parametric spirograph EmptyLun 20 Mar - 15:43 par Papydall-Admin

» Bonne Année 2023
 Parametric spirograph EmptySam 31 Déc - 1:39 par Papydall-Admin

» Fractals - Mandelbrot
 Parametric spirograph EmptyVen 21 Aoû - 22:51 par Papydall-Admin

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

» Balises {USER...}
 Parametric spirograph EmptyLun 19 Nov - 22:12 par Papydall-Admin

» Useful Dog
 Parametric spirograph EmptyVen 6 Avr - 14:25 par Papydall-Admin

Avril 2024
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
2930     

Calendrier Calendrier

-20%
Le deal à ne pas rater :
Ecran PC GIGABYTE 28″ LED M28U 4K ( IPS, 1 ms, 144 Hz, FreeSync ...
399 € 499 €
Voir le deal

Parametric spirograph

Aller en bas

 Parametric spirograph Empty Parametric spirograph

Message par Papydall-Admin Jeu 13 Oct - 5:05

Code:

rem ============================================================================
rem        Parametric spirograph
rem           Par Papydall
rem ============================================================================
dim r : r = 150
dim centerx : centerx = 260
dim centery : centery = 220
dim rm : rm = r/3
dim n,t,x,y,xm,ym
color 0,0,0,0
caption 0,"<CLICK> pour arrêter"
repeat
    n = n + 1
    2d_pen_color int(rnd(3))*127, int(rnd(3))*127, int(rnd(3))*127
    for t = 0 to 2*pi step .0025
        x = r*sin(t)+centerx : y = r*cos(t)+centery
        xm=rm*sin(0-t*3*n)+x : ym=rm*cos(0-t*3*n)+y
        2d_circle xm,ym,5
    next t
until scancode <> 0

rem ============================================================================
Papydall-Admin
Papydall-Admin
Admin

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

https://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut


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