Carrés disséqués

Voici un bel inutilitaire:
Code:

Code:: rem Carrés disséqués de Kurt Schmucker
rem Auteur: Parpaiun
rem Date-version: 16/04/2015
dim a,c,i,j,sw,x,y
x=30:y=10
c=20
for a=1 to 19
sw=1
for j=1 to 4
for i=1 to c
2d_rectangle x,y,x+c,y+c
select sw
case 1
x=x+c
case 2
y=y+c
case 3
x=x-c
case 4
y=y-c
end_select
next i
sw=sw+1
next j
x=x+c: y=y+c
c=c-1
next a

Il n'y a évidemment rien à tirer de cette œuvre d'art mathématique si ce n'est que de l'admirer.
C'est à Kurt Schmucker qu'on doit d'avoir créé cette figure en 2D. Est elle en forme de puits ou de pyramide ? Comme le magazine que je possède n'a fourni que très peu de formules et aucun programme, j'ai dû user de mes méninges pour fignoler ce très court programme de mon cru.

Dites moi un peu ce que vous en pensez, chers visiteurs. Merci ! De la part de Parpaiun lol!

Sympa, j'aime bien le rendu !

Super beau ! J'adore !

Je connaissait pas cet aspect de la programmation (création de figures mathématiques) mais je trouve ça très intéressant ! J'ai regardé tes programmes ainsi que ceux de Papydall (ex: La foret) et je trouve tout ca absolument génial !

Ca me donne envie d'essayer Smile

Bravo Parpaium

Une petite modification de ton code

Code:: rem Carrés disséqués de Kurt Schmucker
rem Auteur: Parpaiun
rem Date-version: 16/04/2015
dim a,c,i,j,sw,x,y,t$
alpha 10 : top 10,100 : left 10,470 : font_bold 10 : font_size 10,12
t$ = "<CLICK>" +chr$(13) + "n'importe"+chr$(13)+" où"+chr$(13) +"pour" + chr$(13) + "arrêter"
caption 10,t$
repeat
   cls
   x = 30 : y = 10 : c = 20
   2d_pen_color 255,0,0
   2d_fill_color rnd(255),rnd(255),rnd(255)
   for a = 1 to 19
   sw = 1
   for j = 1 to 4
   for i = 1 to c
   select sw
   case 1 : x = x + c
   case 2 : y = y + c
   case 3 : x = x - c
   case 4 : y = y - c
   end_select
   2d_rectangle x,y,x+c,y+c
   next i
   sw = sw + 1
   next j
   x = x + c : y = y + c : c = c - 1
   pause 10
   next a
   pause 2000
until scancode <> 0
terminate
rem ============================================================================

Papydall te le dira, quand j'aime souvent je fais ma petite colorisation à moi (j'aime les couleurs)
Je te poste donc une petite variante de ton programme (plus colorée)

Code:: ' =============================================================================
rem Titre: Carrés disséqués de Kurt Schmucker
rem Auteur: Parpaiun
rem Date-version: 16/04/2015
' =============================================================================

dim a,c,i,j,x,y,t$

cls
x = 30 : y = 10 : c = 20
for a = 1 to 19
for j = 1 to 4
for i = 1 to c
2d_fill_color abs(220-x),abs(220 -y),c*12
2d_rectangle x,y,x+c,y+c
select j
case 1: x=x+c
case 2: y=y+c
case 3: x=x-c
case 4: y=y-c
end_select
next i
next j
x = x + c : y = y + c : c = c - 1
next a
pause 3000
terminate
' =============================================================================

ta version Jicehel !

Merci Nardo. On est toujours plus fort quand on travaille en équipe et moi, je n'ai mis qu'un peu de couleur, heureusement, je n'ai pas eu à faire la partie mathématique ^^

Chacun son truc.

En tout cas j'aime bien c'est petits programmes gaphiques (Ca faisait un moment qu'il n'y avait plus eu de nouveaux programmes qui fassent des dessins 2D. Un jour il faudra que l'on se fasse un programme de démo qui reprenne un peu tout ça pour nous exploser les yeux avec des beaux tracés multicolores de toutes sortes Wink

)

J'ai hate de voir le prochain que va nous concevoir Parpaiun et sur quelle formule il va se baser...

Grand merci chers invités pour vos encourageantes réponses. Je suis flatté d'apprendre que vous avez apprécié la beauté des figures 2D mathématiquement sorties de mes méninges ! Pour vous satisfaire, j'ai pas moins de 50 programmes à traduire de mon GFA Basic 32 en Panoramic. Plusieurs sont courts, quelques un longs. Alors, comme je l'ai dit à Papydall, patience, patience !

Parpaiun cheers

» Défi2 = les moindres carrés
» Enigme : combien y a-t-il de carrés ?
» Sauriez-vous compter les carrés ?
» Défi pour les frimas à venir = dessiner des carrés