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
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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 : 5537
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 : 5857
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 : 5857
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 : 5537
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 : 5537
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 : 5537
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 : 5857
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 : 5537
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 : 5857
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 : 5537
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 :: Les inutilitaires-
Sauter vers: