papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Une seule ligne de code (ou presque). Qui dit mieux ? Ven 22 Nov 2019 - 2:38 | |
| Salut tout le monde! Je n’ai pas pu m’empêcher de partager avec vous ma trouvaille ! Une seule ligne de code (ou presque) pour un résultat que je vous laisse découvrir ! - Code:
-
dim x,y
for x = 1 to 510 : for y = 1 TO 510 : 2d_point x, bin_and(x,y) : next y : next x
| |
|
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Une seule ligne de code (ou presque). Qui dit mieux ? Ven 22 Nov 2019 - 9:32 | |
| Bon sang papydall, tu as fait fort ce coup-ci !!! Quant à savoir d'où ça sort... époustouflant !  | |
|
jean_debord
Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008
| | Sujet: Re: Une seule ligne de code (ou presque). Qui dit mieux ? Ven 22 Nov 2019 - 9:38 | |
| Merci papydall  Pour le crocodile, j'ai fait une version plus colorée... et plus longue ! | |
|
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: Re: Une seule ligne de code (ou presque). Qui dit mieux ? Ven 22 Nov 2019 - 14:03 | |
| Super, Papydall ! Par contre : - Papydall a écrit:
- Une seule ligne de code (ou presque) Qui dit mieux ?
Facile (une seule ligne de code (sans le presque)) : - Code:
-
dim x,y : for x = 1 to 510 : for y = 1 to 510 : 2d_point x, bin_and(x,y) : next y : next x Ah, ah !  Ceci dit, c'est indéniablement très joli pour aussi peu de caractères !  | |
|
papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Une seule ligne de code (ou presque). Qui dit mieux ? Ven 22 Nov 2019 - 14:11 | |
| Salut tout le monde. - JL35 a écrit:
- Bon sang papydall, tu as fait fort ce coup-ci !!!
Quant à savoir d'où ça sort... époustouflant !
C’est un secret professionnel@jean_debord Merci Jean pour ton intérêt à mes codes. … et pour un BIN_OR de plus et un coup de couleur, ça donne : Pour Panoramic - Code:
-
rem ============================================================================
dim x,y
width 0,530 : height 0,560 : 2d_pen_color 255,255,0 : color 0,0,0,0
for x = 1 to 510
for y = 1 to 510
2d_pen_color 255,000,0 : 2d_point x, bin_or(x,y)
2d_pen_color 255,255,0 : 2d_point x, bin_and(x,y)
next y
next x
rem ============================================================================
Et pour crocodile - Code:
-
const RadToDeg = 180 / 3.14159
dim x%, y%, r%, g%, b%, h
mode 3, "Triangle de Sierpinski", 500, 500
for x% = 1 to 500
for y% = 1 TO 500
h = atan2(y%, x%) * RadToDeg
HSVtoRGB h, 1, 1, r%, g%, b%
pen RGB(r%, g%, b%)
plot x%, x% and y%
plot x%, x% or y%
next y%
next x%
while inkey$() = "" : wend
| |
|
Contenu sponsorisé
| | Sujet: Re: Une seule ligne de code (ou presque). Qui dit mieux ? | |
| |
|
Calendrier