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
» I Love You
par papydall Aujourd'hui à 2:58

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

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

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

» Calculatrice
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

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 | 
 

 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 : 5546
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 : 5858
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 : 5858
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 : 5546
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 : 5858
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
-
» Apres prises CPL, plus de télé erreur "4 carrés"
» [Résolu] le pc de ma fille n affiche plus que des carrés
» Décodeur TV - prises CPL - 4 petits carrés ....
» Mon décodeur affiche 4 carrés
» MÉTHODE du plus petit carré (régression linéaire)

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: