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 | 
 

 En jouant avec des cercles j’obtiens … des sphères.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 3:07

Code:

rem ============================================================================
rem         sphère à partir des cercles
rem ============================================================================

dim n
width 0,1000
2d_pen_width 2
For n = 1 to 200
    2d_pen_color abs(n-50),n,abs(n-50)    : 2d_circle 250,220,200-n
    2d_pen_color abs(n-50),50+n,abs(n-50) : 2d_circle 700,220,200-n
    
    2d_pen_color 200-n,200-n,abs(n-250)   : 2d_circle 480,080,50-n/4
    2d_pen_color 250-n,200-n,abs(n-250)   : 2d_circle 480,380,50-n/4
'    pause 10
next n
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10072
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 3:22

Effet visuel bluffant, Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 4:09

Et un tore.

Code:

rem ============================================================================
rem         Tore à partir des cercles
rem ============================================================================
dim n
 2d_pen_width 2
For n = 0 to 160
    2d_pen_color abs(n-50),90+n,abs(n-50) : 2d_circle 200,200,150-n/2
    2d_pen_color abs(n-50),n,abs(n-50)    : 2d_circle 460,200,100-n/3
next n
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10072
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 4:23

Joli ! Ne reste plus qu'une chose: pour les pseudo-sphères, déplacer le "point d'éclairage" du centre vers un point décalé pour plus de réalisme, et pour le tore, l'incliner pour une simulation de vision en 3D...

Désolé, je n'ai pas pu m'empêcher. Mais ces effets visuels sont impressionnants.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 4:32

Oui, ça m'amuse.

Code:

rem ============================================================================
rem         sphère à partir des cercles
rem ============================================================================

dim n
width 0,1000
2d_pen_width 4
For n = 1 to 200
    2d_pen_color abs(n-50),n,abs(n-50)    : 2d_circle 250-n,220,200-n
    2d_pen_color abs(n-50),50+n,abs(n-50) : 2d_circle 700+n,220,200-n
    
    2d_pen_color 200-n,200-n,abs(n-250)   : 2d_circle 480+n/4,080,50-n/4
    2d_pen_color 250-n,200-n,abs(n-250)   : 2d_circle 480-n/4,380,50-n/4
next n
rem ============================================================================
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 4:43

Code:

rem ============================================================================
rem        Tore à partir des cercles
rem ============================================================================
dim n
2d_pen_width 8
For n = 1 to 160 step 4
    2d_pen_color abs(n-50),n,abs(n-50) : ellipse(300,200,250-n/2,150-n/2)
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
    dim_local a
    degrees
    2d_poly_from x+r1,y
    for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 4:55

Plus beau encore.

Code:

rem ============================================================================
dim n
width 0,1000
2d_pen_width 8
For n = 1 to 160 step 4
    2d_pen_color abs(n-50),n,abs(n-50) : ellipse(300+n,280-n,250-n/2,150-n/2)
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
    dim_local a
    degrees
    2d_poly_from x+r1,y
    for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10072
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 4:56

Très impressionnant, Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 5:01

Une paire de pantoufles ?! No

Code:

rem ============================================================================
dim n
width 0,1000  : height 0,850
2d_pen_width 8
For n = 1 to 160 step 2
    2d_pen_color abs(n-50),n,abs(n-50)
    ellipse(300+2*n,650-n,250-n/2,150-n/2)
    ellipse(300+2*n,180+n,250-n/2,150-n/2)
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
    dim_local a
    degrees
    2d_poly_from x+r1,y
    for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 6:08

Le dernier avant d'aller faire dodo.

Code:

rem ============================================================================
dim n
full_space 0
2d_pen_width 8
For n = 1 to 160
   2d_pen_color abs(n-50),abs(n-100),abs(n-50)
   ellipse(300+2*n,580-n-100,250-n/2,250-n*3)
   ellipse(1000+2*n,580-n,250-n/2,150-n*3)
   display
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
   dim_local a
   degrees
   2d_poly_from x+r1,y
   for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 4 Mar 2016 - 6:13

Et çà...c' était les oreilles de Shrek ?...
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 9:40

Bravo Papydall !

En regardant comme ça, ça parait si simple... Laughing scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



Nombre de messages : 453
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 10:20

C'est du grand Art !

Merci ! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 11:17

Pas regardé hier, mais je testerais, il semble que ça vaut le coup d'oeil Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Francis-mr



Nombre de messages : 160
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 11:55

Bravo Papydall, belle démonstration des possibilités de Panoramic avec peu de code.
Mais pour les bons programmeurs, c'est à dire pas pour moi.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 16:46

Salut Invité

Klaus, Ygeronimi, Minibug, Marc37, Jicehel, Francis-mr et tous ceux qui sont passés par ici, MERCI.

Et pour le plaisir des yeux:

Code:

rem ============================================================================
rem                Pour le plaisir des yeux
rem ============================================================================
dim n
full_space 0 : picture 10 : width 10,width(0) -100 : height 10,height(0)-100
top 10,50 : left 10,50
font_bold 0 : font_size 0,20 : font_name 0,"tahoma"
font_color 0,10,50,255 : print_locate 50,10
print "C'est fou ce qu'on peut obtenir avec peu de choses et beaucoup d'imagination !  Patientez pour apprécier ..."
print_locate 10,30 : print "E" : print_locate 10,60 : print "S" : print_locate 10,90 : print "C"

print_locate 10,150 : print "P" : print_locate 10,180 : print "O" : print_locate 10,210 : print "U"
print_locate 10,240 : print "R" : print_locate 10,290 : print "S" : print_locate 10,320 : print "O"
print_locate 10,350 : print "R" : print_locate 10,380 : print "T" : print_locate 10,410 : print "I"
print_locate 10,440 : print "R"

2d_target_is 10 : print_target_is 10
color 10,0,0,0 : font_bold 10 : font_size 10,16
2d_pen_width 8
For n = 50 to 400
    2d_pen_color abs(n-150),abs(n-200),abs(n-150)
    ellipse(300+n,600-n,150*n,150)
    ellipse(300+n,100+n,300,100*n)
    ellipse(900+n,500-n,100,200*n)
    display
    if scancode = 27 then print "Je vois que ça ne t'a pas plu !" : end
next n
repeat
     font_color 10,0,0,255
     print_locate 420,80
     print "C'était pour le plaisir des yeux ! <ESC> pour sortir " : pause 1000
     font_color 10,255,0,0
     print_locate 420,80
     print "C'était pour le plaisir des yeux ! <ESC> pour sortir " : pause 1000
until scancode = 27
for n = screen_y to 10 step -10 : height 0, n : pause 100 : next n
terminate
rem ============================================================================
SUB ellipse(x,y,r1,r2)
    dim_local a
    degrees
    2d_poly_from x+r1,y
    for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================


Expérimentez et postez vos trouvailles king
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: En jouant avec des cercles j’obtiens … des sphères.   Ven 4 Mar 2016 - 23:58

Je viens déjà d'en tester 2: La sphere: parfait. Pour le tore, je te propose cette variante que je préfère
Code:
rem ============================================================================
rem        Tore à partir des cercles
rem ============================================================================
dim n
 2d_pen_width 2
For n =  0 to 60
    2d_pen_color n+20,n+60,n+20 : 2d_circle 200,200,150-n/2
    2d_pen_color n+60,n  ,n+50 : 2d_circle 460,200,100-n/3
next n
For n =  60 to 120
    2d_pen_color 140 - n,180 - n,140 - n : 2d_circle 200,200,150-n/2
    2d_pen_color 180 - n,120 - n,170 - n : 2d_circle 460,200,100-n/3
next n
rem ===========================================================================

Bon, je continue de tester le reste Wink Tu a été prolifique...
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: En jouant avec des cercles j’obtiens … des sphères.   Sam 5 Mar 2016 - 0:07

Tu n’as pas tort de refaire le tore ! Wink
Bon, j'attends la suite.
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: En jouant avec des cercles j’obtiens … des sphères.   Sam 5 Mar 2016 - 0:12

Le reste est chouette. Belle créativité Wink et j'espère que tu as pris plaisir également à voir évoluer ces figures émergeant des cercles et autres ellipses.
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: En jouant avec des cercles j’obtiens … des sphères.   Sam 5 Mar 2016 - 0:21

Si on m’avait montré l’un de ces dessins pour que j’écrive le code qui le réaliserait, je dirais : « je ne sais pas comment faire ».
Mais en jouant avec mes cercles et mes ellipses, je vois l’incroyable se réaliser !
A mon âge j’ai besoin de m’amuser un peu, non ? king
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc37



Nombre de messages : 453
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Mar 8 Mar 2016 - 0:18

Bonsoir à tous !

Après le monochrome, la couleur...


Code:
rem ============================================================================
rem       sphère à partir des cercles par PAPYDALL colorisé par MARC37
rem
rem ============================================================================

DIM r%, v%, b% : ' couleurs Rouge, Vert, Bleu
DIM i%, n%, j%
DIM mini : mini = 0
DIM maxi : maxi = 255
WIDTH 0,600
HEIGHT 0, 600

2D_PEN_WIDTH 2

R% = maxi
B% = mini
n% = 252

FOR j% = 1 to 6
   FOR i% = 1 to 42
      SELECT j%
         CASE 1
            R% = maxi
            b% = mini
            v% = i%*6
         CASE 2
            R% = 252 - i%*6
            b% = mini
            v% = maxi
         CASE 3
            R% = mini
            b% = i%*6
            v% = maxi
         CASE 4
            R% = mini
            b% = maxi
            v% = 252 - i%*6
         CASE 5
            R% = i%*6
            b% = maxi
            v% = mini
         CASE 6
            R% = maxi
            b% = 252 - i%*6
            v% = mini
      END_SELECT
      2D_PEN_COLOR r%, v%, b%
      2D_CIRCLE 300,300,n%
      n% = n% -1
   NEXT i%
NEXT j%

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: En jouant avec des cercles j’obtiens … des sphères.   Mar 8 Mar 2016 - 0:37

Hello Marc37

C’est tout à fait beau, mais difficile d’y voir une sphère.
De toutes les façons, merci d'avoir partagé.
On attend la suite, si jamais suite il y a. sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc37



Nombre de messages : 453
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Mar 8 Mar 2016 - 0:55

@Papydall
Désolé, effectivement j'ai cassé ta sphère. Elle ressemble plutôt à un disque coloré sans aucun relief ! Embarassed
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Mar 8 Mar 2016 - 1:48

Très réussi Wink
Je mets ton code écrit légèrement différemment avec le même résultat
Code:
rem ============================================================================
rem      Sphère à partir des cercles par PAPYDALL colorisé par MARC37
rem ============================================================================

DIM r%, v%, b% : ' couleurs Rouge, Vert, Bleu
DIM i%, j%
DIM mini : mini = 0
DIM maxi : maxi = 255
WIDTH 0,600 : HEIGHT 0, 600

2D_PEN_WIDTH 2

FOR j% = 0 to 5
  FOR i% = 1 to 42
      SELECT j%
        CASE 0
            r% = maxi      : b% = mini      :  v% = i%*6
        CASE 1
            r% = 252 - i%*6 : b% = mini      :  v% = maxi
        CASE 2
            r% = mini      : b% = i%*6      :  v% = maxi
        CASE 3
            r% = mini      : b% = maxi      :  v% = 252 - i%*6
        CASE 4
            r% = i%*6      : b% = maxi      :  v% = mini
        CASE 5
            r% = maxi      : b% = 252 - i%*6 : v% = mini
      END_SELECT
      2D_PEN_COLOR r%, v%, b% :  2D_CIRCLE 290,280, 254 - (j%*42 + i%)
  NEXT i%
NEXT j%

et je t'en met une variante juste pour le fun, mon coté coloriste qui ressort Wink

Code:
rem ============================================================================
rem      Sphère à partir des cercles par PAPYDALL colorisé par MARC37
rem ============================================================================

DIM i%, j%, v%

WIDTH 0,600 : HEIGHT 0, 600

2D_PEN_WIDTH 2

FOR j% = 0 to 5
  FOR i% = 1 to 42
      IF ODD(j%) = 0 THEN v% = v% + 6 : ELSE : v% = v% - 6
      2D_PEN_COLOR 255 - j%*42, v%, 255 - j%*42
      2D_CIRCLE 290,280, 254 - (j%*42 + i%)
  NEXT i%
NEXT j%
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10072
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   Mar 8 Mar 2016 - 2:38

Moi aussi, je eux jouer à la baballe:
Code:

label centre, abort

dim w%, h%, x0%, y0%, r%, xc%, yc%, l%, c%, d, Rouge%, d1, mx, abort%
picture 1 : full_space 1 : color 1,255,255,255
2d_target_is 1
w% = width(1) : h% = height(1)

x0% = w%/2 : y0% = h%/2
r% = min(w%,h%)*0.4

2d_pen_color 255,0,0
2d_circle x0%,y0%,r%

on_click 1,centre
caption 0,"Clic pour déterminer le point d'éclairage"
button 2 : caption 2,"Arrêter" : on_click 2,abort

end

centre:
  xc% = mouse_x_left_down(1)
  yc% = mouse_y_left_down(1)
  if ((xc%-x0%)*(xc%-x0%)+ (yc%-y0%)*(yc%-y0%))>(r%*r%)
    message "Il faut cliquer DANS le cercle !"
    return
  end_if
  mx = sqr((xc%-x0%)*(xc%-x0%)+ (yc%-y0%)*(yc%-y0%))+r%
  for l%=(y0%-r%) to (y0%+r%)
    for c%=(x0%-r%) to (x0%+r%)
      d = sqr((c%-x0%)*(c%-x0%)+ (l%-y0%)*(l%-y0%))
      if d<r%
        d1 = sqr((c%-xc%)*(c%-xc%)+ (l%-yc%)*(l%-yc%))
        Rouge% = 255 - (255 * (d1/mx))
        2d_pen_color 255,Rouge%,Rouge%
        2d_point c%,l%
      end_if
    next c%
    display
    if abort%=1
      color 1,255,255,255
      2d_pen_color 255,0,0
      2d_circle x0%,y0%,r%
      abort% = 0
      return
    end_if
  next l%
  return

abort:
  abort% = 1
  return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: En jouant avec des cercles j’obtiens … des sphères.   

Revenir en haut Aller en bas
 
En jouant avec des cercles j’obtiens … des sphères.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» j ai des souci , je debute depuis ce jour avec linux fedora
» Lecture video interrompue avec mise en tampon
» probleme avec les cellules d'excel sur la mise en forme
» [Résolu]Mis a jour impossible avec Antivir
» [Résolu] Problème avec psg tv

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: