FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Yannick Aujourd'hui à 1:58

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Hier à 19:26

» Compilateur FBPano
par Mike Hier à 13:52

» un nouveau editeur panobasic
par Jean Claude Hier à 10:18

» Le compilateur.
par Pedro Alvarez Hier à 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Vertigo : Ça donne le vertige

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

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Vertigo : Ça donne le vertige   Dim 1 Mai 2016 - 5:03

Code:

rem ============================================================================
rem             Vertigo
rem ============================================================================
dim a,r,xc,yc,xp,yp,s
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour arrêter ....."
2d_fill_color 100,0,100
s = 1
repeat
   a = a + s*.0123456789 : r = r + s*.0123456789
   xp = xc + 2*r*COS(a) : yp = yc + r*SIN(a)
   2d_pen_color rnd(255),000,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,30 : 2d_circle yp,xp-yp*1.2,30
   2d_pen_color mod(abs(255-r),255), rnd(100),mod(rnd(abs(r-255)),255):2d_circle xp-yp,xp-yp/1.25,20 : 2d_circle xp-yp,xp-yp*1.2,20
   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
   if abs(r) > 150 then r = 150-150 :  s = 0-s  : cls
until scancode <> 0
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Vertigo : Ça donne le vertige   Dim 1 Mai 2016 - 10:10

et pour ceux qui aiment ça, je mets une légère variante du programme puisque j'aime bien essayer de modifier ces codes.
Code:
rem ============================================================================
rem             Vertigo
rem ============================================================================
dim a,r,xc,yc,xp,yp,s, c
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour arrêter ....."
2d_fill_color 100,0,100
s = 1 : c = 1
repeat
   a = a + s*.0123456789 : r = r + s*.0123456789
   xp = xc + 2*r*COS(a) : yp = yc + r*SIN(a)
   2d_pen_color rnd(255),xp / 7, yp / 5
   if c = 1 then 2d_circle xp, yp,50
   if c = 2 then 2d_circle xp+yp,xp-yp,40 : 2d_circle yp,xp-yp/1.25,30
   if c = 3 then 2d_circle xp-yp,xp-yp/1.25,20 : 2d_circle 1300-xp+yp,700-(xp-yp*1.2),20 :  2d_circle 400 + yp,xp-yp*1.4,20
   if abs(r) > 350 then r = 0 :  s = 0-s  : c = c + 1 : cls
   if c > 3 then c = 1
until scancode <> 0
rem ============================================================================


Dernière édition par Jicehel le Dim 1 Mai 2016 - 20:33, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Vertigo : Ça donne le vertige   Dim 1 Mai 2016 - 16:55

Tu as bien fait d'essayer de modifier le code.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Vertigo : Ça donne le vertige   

Revenir en haut Aller en bas
 
Vertigo : Ça donne le vertige
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» lien de mon forum donne chez d'autres
» DONNE MOI DU SMILE XXL - D?CIBEL
» Donne points automatiquement.
» Noter le kit du dessus
» acces et base de donnée works

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Les inutilitaires-
Sauter vers: