FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Petit passage furtif
Pour entretenir la discussion  Emptypar Froggy One Hier à 14:26

» demande explication KGF pour imprimer en mm
Pour entretenir la discussion  Emptypar JL35 Mar 26 Mar 2024 - 10:06

» SPIN et aide langage (résolu)
Pour entretenir la discussion  Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Pour entretenir la discussion  Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Pour entretenir la discussion  Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Pour entretenir la discussion  Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Pour entretenir la discussion  Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Pour entretenir la discussion  Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Pour entretenir la discussion  Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Pour entretenir la discussion  Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Pour entretenir la discussion  Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Pour entretenir la discussion  Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Pour entretenir la discussion  Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Pour entretenir la discussion  Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Pour entretenir la discussion  Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Le deal à ne pas rater :
Coffret dresseur d’élite ETB Pokémon EV06 Mascarade Crépusculaire
56.90 €
Voir le deal

 

 Pour entretenir la discussion

Aller en bas 
2 participants
AuteurMessage
papydall

papydall


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

Pour entretenir la discussion  Empty
MessageSujet: Pour entretenir la discussion    Pour entretenir la discussion  EmptyJeu 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
http://papydall-panoramic.forumarabia.com/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011

Pour entretenir la discussion  Empty
MessageSujet: Re: Pour entretenir la discussion    Pour entretenir la discussion  EmptyJeu 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
 
Pour entretenir la discussion
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Liste d'une discussion.
» Nouveau fil de discussion du forum
» Discussion sur le passage de Windows à Linux
» Discussion sur un jeu genre Mario en Panoramic
» Petite discussion sur les logiciels de création de jeux.

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: