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 | 
 

 Carrés disséqués

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Parpaiun

avatar

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

MessageSujet: Carrés disséqués   Dim 26 Avr 2015 - 17:36

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!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 18:13

Sympa, j'aime bien le rendu !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
The Gamer

avatar

Nombre de messages : 110
Age : 23
Localisation : Toulouse (31)
Date d'inscription : 11/05/2010

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 18:21

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://pierrehardy.pagesperso-orange.fr/
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: Carrés disséqués   Dim 26 Avr 2015 - 19:09

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 ============================================================================
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: Carrés disséqués   Dim 26 Avr 2015 - 19:46

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
' =============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 22:32

ta version Jicehel !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Jicehel

avatar

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

MessageSujet: Re: Carrés disséqués   Lun 27 Avr 2015 - 0:34

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 ^^
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: Carrés disséqués   Lun 27 Avr 2015 - 2:59

Chacun son truc.
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: Carrés disséqués   Lun 27 Avr 2015 - 11:42

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...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Parpaiun

avatar

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

MessageSujet: Patience !   Mar 28 Avr 2015 - 7:32

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 lol! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Carrés disséqués   

Revenir en haut Aller en bas
 
Carrés disséqués
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» que signifie un carré avec un - ou un + à l'interieur
» Barre de naviguation - carré noir en trop
» Apres prises CPL, plus de télé erreur "4 carrés"
» Forum en "carré"
» catégorie en carré

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: