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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» 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

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

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 | 
 

 Pour tromper l'ennui.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
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: Re: Pour tromper l'ennui.   Mer 14 Aoû 2013 - 0:25

Pas d’ennui, mais pas d’idées non plus.
Alors, quelques lignes de code pour dessiner des formes sans noms !
Code:
dim x,y,xc,yc,q
full_space 0 : xc = width(0)*.5 : yc = height(0)*.5 : color 0,0,0,0 : display
caption 0,"Veuillez patienter ...... <CLICK> pour arrêter"
FOR x = -10.4 TO 0 step .02
    FOR y = -5.8 TO 5.8 STEP .02
        q = x*x+y*y-x*y
     '   q = x*x + y*y*y
     '   q = x*x*x + y*y*y
     '   q = x*x*x + y*y
     '   q = x*x*x*x +y*y
     '   q = x*x*x*x + y*y*y
     '   q = x +y*y*y
     '   q =x*x*x-y*y*y+x*y
        if (q -4*int(q/4)) < 1 then 2d_pen_color 255,255,0 : else : 2d_pen_color 255,0,0
        2d_point xc+50*x,yc+50*y : 2d_point xc-50*x,yc+50*y
        if scancode <> 0 then terminate
    NEXT y
NEXT x
caption 0,"Terminé"
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: Pour tromper l'ennui.   Mer 14 Aoû 2013 - 9:36

J'aime bien du coup: couleurs avant d'aller bosser !!

Code:
dim x,y,xc,yc,q, L
dim C1,C2,C3
full_space 0 : L = width(0) : xc = L *.5 : yc = height(0)*.5 : color 0,0,0,0 : display
caption 0,"Veuillez patienter ...... <CLICK> pour arrêter"
C1 = 255 : C3 = 0
FOR x = -10.4 TO 0 step .02
    FOR y = -5.8 TO 5.8 STEP .02
    '  q = x*x+y*y-x*y
    '  q = x*x + y*y*y
        q = x*x*x + y*y*y
    '  q = x*x*x + y*y
    '  q = x*x*x*x +y*y
    '  q = x*x*x*x + y*y*y
    '  q = x +y*y*y
    '  q =x*x*x-y*y*y+x*y
        if (q -4*int(q/4)) < 1 then C2 = 255 - (abs(y-(height(0)/2)))/1.5 : else : C2 = 0 + (abs(y-(height(0)/2)))/1.5
        C1 = (abs(x-(L/2)))/6 : C3 = (abs(x-(L/2)))/6
        2d_pen_color C1,C2,C3
        2d_point xc+50*x,yc+50*y : 2d_point xc-50*x,yc+50*y
        if scancode <> 0 then terminate
    NEXT y
NEXT x
caption 0,"Terminé"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Jeu 15 Aoû 2013 - 11:07

@ Jicehel : Erreur ! la valeur de C2 est à -35 et des virgules. Je n'ai pas trouvé le moyen d'y remédier...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Jicehel

avatar

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

MessageSujet: Re: Pour tromper l'ennui.   Jeu 15 Aoû 2013 - 11:45

Tu peux mettre un abs() devant dans ce cas
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Jeu 15 Aoû 2013 - 18:40

Niet ! le programme m'envoie ce message : la valeur doit être entre 0 et 255, après que j'aie examiné les lignes 16 à 18...

Voilivoilou:
 

confused   J'avoue sans complexe que cela reste un peu difficile pour mes compétences (papydall dirait : cavompavitavences) actuelles !?!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
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: Pour tromper l'ennui.   Jeu 15 Aoû 2013 - 19:04

@Froggy One

Essaye de changer la ligne 16 comme ceci (en divisant par 2 au lieu de 1.5)
Code:
if (q -4*int(q/4)) < 1 then C2 = 255 - (abs(y-(height(0)/2)))/2 : else : C2 = 0 + (abs(y-(height(0)/2)))/2
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
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: Pour tromper l'ennui.   Jeu 15 Aoû 2013 - 19:07

Fonctions à deux variables.
Essayez avec d'autres valeurs de la constante coef (par exp : de 1 à 100)

Code:
' *********************************************************************
' 3D.BAS
' *********************************************************************
dim x,y,z,xp,yp,ymax,coef
full_space 0 : color 0,0,0,0 : display : coef = 70 : ' modifier coef entre 1 et 100
for z = 1 to 350
    for x = 1 to 800 step 5
        fonction(x,z) : y = y*coef : xp = 50 + x + z*2 : yp = 200 + 1.5*z - y
        if yp > ymax then ymax = yp
        if x > 1 then 2d_pen_color 255,255,0 : 2d_poly_to xp,yp
        2d_pen_color 255,0,0 : 2d_line xp,ymax,xp,yp
    next x
next z
end
' *********************************************************************
SUB Fonction(x,z)
    y = sin(x/30) + cos(z/10) * cos(x/100)
    ' y = sin(x/30 + z/5)
    ' y = cos(z/20+x)
    ' y = sin(z/10)*sin(cos(x/10))
END_SUB
' *********************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Revue du sujet    Dim 8 Mai 2016 - 12:17

Papydall, sans me moquer de ce que tu fais, serais tu un peu du genre boulimique en programmes des fois ? Tu m'impressionnes drôlement avec ton abattage maison dans cette seule rubrique ! affraid scratch
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 15:22

Salut Parpaiun.
Primo, merci pour avoir déterré cet ancien post.
Secundo, tu me poses la question de savoir si je suis « boulimique en programmes ».
Ne sachant quoi te répondre, je dirais que c’était justement « pour tromper l’ennui » : c’est bien  le titre du topic, n’est-ce pas ?
Alors si tu es drôlement impressionné avec mon abattage maison (comme tu le disais), cela veut dire que mon objectif est atteint : IMPRESSIONNER.
Tertio, voici un code (moins impressionnant) pour toi.

Code:

rem ============================================================================
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600 : height 0,600
largx = width(0)/2 : hauty = height(0)/2 : k = 57.29577951308
2d_pen_width 2
for m = 4 to 12 step 2
  for i = 0.05 to 360 step 0.05
      j = sin(m*i/k)
      r = 200*sqr(abs(j))
      if j < 0 then r = -1*r
      2d_pen_color 0,abs(255-i*1.4),0
      x1 = largx + r*cos(i/k) : y1 = hauty + r*sin(i/k)
      x2 = largx + cos(i)     : y2 = hauty + sin(i)
      2d_line x1,y1,x2,y2 : display
      if scancode = 27 then end
  next i
  for i = 0 to 200 step 2
    2d_pen_color 255-i,i,255-i : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 18:38

Changement de couleurs:
Code:
rem ============================================================================
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600 : height 0,600
largx = width(0)/2 : hauty = height(0)/2 : k = 57.29577951308
2d_pen_width 2
for m = 4 to 12 step 2
  for i = 0.05 to 360 step 0.05
      j = sin(m*i/k)
      r = 200*sqr(abs(j))
      if j < 0 then r = -1*r
      2d_pen_color abs(x1 - largx) / 2 + 50,abs(180-i) / 5,abs(y1 - hauty) / 4 + 50
      x1 = largx + r*cos(i/k) : y1 = hauty + r*sin(i/k)
      x2 = largx + cos(i)    : y2 = hauty + sin(i)
      2d_line x1,y1,x2,y2 : display
      if scancode = 27 then end
  next i
  for i = 0 to 200 step 2
    2d_pen_color i/2+150,i+50,50 + i/5 : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
rem ============================================================================
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 18:56

En alphabet phonétique international:
Bravo Romeo Alpha Victor Oscar | Juliett India Charlie Echo Hotel Echo Lima Stop  


Dernière édition par papydall le Dim 8 Mai 2016 - 19:22, édité 1 fois
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 19:09

Merci Papydall, j'espère que nous aurons un diplôme de poètes numériques pour notre travail combiné Wink
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 19:15

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Pour tromper l'ennui.   

Revenir en haut Aller en bas
 
Pour tromper l'ennui.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Lutter contre l'ennui :)
» 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)

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: