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
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Pour entretenir la discussion

Aller en bas 
AuteurMessage
papydall

avatar

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

MessageSujet: Pour entretenir la discussion    Jeu 29 Mai 2014 - 1:50

Laughing Un code pour le compilateur.king 

Code:

rem ============================================================================
rem          Fractale
rem ============================================================================

dim a(2),b(2),c(2),d(2),e(2),f(2),p(2),x,y,j,pk,newx,newy,k
full_space 0 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer"
data .917,  -.224, .332,  .867, .159, -.029, .8
data -.178, -.153, .143, -.191, .93,   .18,  1
for j = 1 to 2
    read a(j) : read b(j) : read c(j) : read d(j) : read e(j) : read f(j) : read p(j)
next j

repeat
    pk = rnd(1)
    if pk <= p(1) then k = 1 : else : k = 2
    newx = a(k) * x + b(k) * y + e(k) : newy = c(k) * x + d(k) * y + f(k)
    x = newx : y = newy
    2d_pen_color rnd(255),rnd(255),rnd(255)
    2d_point 100+x*400, 600-y*450 : 2d_point 800 -x*400, 600-y*450
    2d_point 700+x*400, 600-y*450 : 2d_point 1400-x*400,600-y*450
until scancode <> 0
rem ============================================================================

 Laughing L'interpréteur peut aussi le digérer mais beaucoup plus lentement.  farao
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5928
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Pour entretenir la discussion    Jeu 29 Mai 2014 - 9:25

Merci Papydall, très joli, donc comme à chaque fois que j'aime et que, je fais ma variation sur le même thème (colorisation + adaptation à mon écran qui ne va pas jusqu'à 1400 comme les votre)
Code:
Code:
rem ============================================================================
rem          Fractale
rem ============================================================================

dim a(2),b(2),c(2),d(2),e(2),f(2),p(2),x,y,j,pk,newx,newy,k
full_space 0 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer"
data .917,  -.224, .332,  .867, .159, -.029, .8
data -.178, -.153, .143, -.191, .93,  .18,  1
for j = 1 to 2
    read a(j) : read b(j) : read c(j) : read d(j) : read e(j) : read f(j) : read p(j)
next j

repeat
    pk = rnd(1)
    if pk <= p(1) then k = 1 : else : k = 2
    newx = a(k) * x + b(k) * y + e(k) : newy = c(k) * x + d(k) * y + f(k)
    x = newx : y = newy
    2d_pen_color abs(x*150),abs(y*150),abs(y*150)
    2d_point 100+x*400, 600-y*450 : 2d_point 800 -x*400, 600-y*450
    2d_point 600+x*400, 600-y*450 : 2d_point 1300-x*400,600-y*450
until scancode <> 0
rem ============================================================================
(Edité: avec le code, c'est mieux ...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Pour entretenir la discussion
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie
» hébergeur gratuit pour un site rein quand flash(RESOLUT)
» Affiches comment être et faire pour apprendre

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC Le compilateur :: Le Compilateur-
Sauter vers: