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
» Le Forum est en vacances.
par JL35 Aujourd'hui à 21:20

» Une autre façon de terminer une application.
par JL35 Hier à 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

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 | 
 

  Esthétique polaire

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

avatar

Nombre de messages : 5522
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Esthétique polaire   Mer 4 Nov 2015 - 18:41

Pour la nouvelle version V0.9.27i1 qui autorise l'utilisation du degré comme unité d'angles.

Code:

rem ============================================================================
rem               Esthétique polaire
rem                 Par Papydall
rem ============================================================================
dim xc1,yc1,xc2,yc2,xc3,yc3,xc4,yc4,xc5,yc5,r,rsur2,a,x,y,c$
dim c(360), s(360) : ' Tableaus de sinus / cosinus pour accélerer le calcul
degrees :' on travaille en degrés
for a = 0 to 360 : c(a) = cos(a) : s(a) = sin(a) : next a
full_space 0
xc1 = width(0)/10 : yc1 = height(0)/2-20
xc2 = 3*xc1 : yc2 = yc1
xc3 = 5*xc1 : yc3 = yc1
xc4 = 7*xc1 : yc4 = yc1
xc5 = 9*xc1 : yc5 = yc1

color 0,100,50,100 : 2d_pen_color 255,255,255
alpha 10 : top 10,50 : left 10,50 : font_bold 10 : font_name 10,"tahoma"
font_color 10,255,255,0
font_size 10,14
c$ = "Veuillez patienter ... Vous ne serz pas déçu(e)s, je l'espère ... <CLICK> Pour arrêter !  "
display
for r = 1 to xc1 : ' step 2  ou 10 pour les impatients
    rsur2 = r * .5
    caption 10,c$ + str$(r) + " / " + str$(xc1) : display
    for a = 0 to 360
        x = rsur2 * (1-c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(a)
        2d_pen_color mod(abs(a+x),255),mod(abs(a-r),255), mod(abs(r-y),255)
        2d_point xc1+x,yc1+y : 2d_point xc1-x,yc1+y

        x = rsur2* (1+c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(a)
        2d_point xc2+x,yc2+y : 2d_point xc2-x,yc2+y
        
        x = rsur2* (1+c(a)) * c(a) : y = rsur2 * (1-s(a)) * s(a)
        2d_point xc3+x,yc3+y : 2d_point xc3-x,yc3+y
        
        x = rsur2* (1-c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(mod(r,360))
        2d_point xc4+x,yc4+y : 2d_point xc4-x,yc4+y
        2d_point xc4+x,yc4-y : 2d_point xc4-x,yc4-y
        
        x = rsur2* (1-c(a)) * s(a) : y = rsur2 * (1-s(a)) * s(a)
        2d_point xc5+x,yc5+y : 2d_point xc5-x,yc5+y

        if scancode <> 0 then terminate
    next a
next r
repeat
   font_color 10, 255,0,0
   caption 10,"ADMIREZ ..... C'EST MAGNIFIQUE !!! .... C'EST    B O O O O O O !!!"
   pause 1000 :  font_color 10,0,255,0
   caption 10,"ADMIREZ ..... C'EST MAGNIFIQUE !!! .... C'EST    B O O O O O O !!!"
   pause 1000
until scancode <> 0
terminate
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Esthétique polaire   Mer 4 Nov 2015 - 20:08

Joli papydall !
Pas toi, le dessin !
Quoique, après tout, je ne sais pas...

En tout cas, très artistique, c'est fou ce qu'on peut faire avec de l'imagination.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5522
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Esthétique polaire   Mer 4 Nov 2015 - 20:22

Ji Elle Trente Cinq a écrit:
Joli papydall !
Pas toi, le dessin !

Qu'en sais-yu ? tongue


En tout cas merci d'avoir apprécié mon art mathématique!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Esthétique polaire   Mer 4 Nov 2015 - 20:27

Comme d'habitude, c'est très esthétique.

J'ai cru que les joues du "poisson" à gauche allaient éclater Razz Heureusement le programme c'est arrêter avant Laughing

Bravo.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5522
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Esthétique polaire   Mer 4 Nov 2015 - 20:42

JC a écrit:
J'ai cru que les joues du "poisson" à gauche allaient éclater

Tiens, tiens ! Quelle imagination !

Où as-tu vu un poisson ?
Personnellement je n'ai vu que de la beauté, et c'est tout dire.

De toutes les façons, tu as mérité un grand merci. king
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: Esthétique polaire   Mer 4 Nov 2015 - 23:23

Oui, c'est très chouette et je n'essayerais pas de modifier la colorisation car elle est très réussie Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



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

MessageSujet: Re: Esthétique polaire   Jeu 5 Nov 2015 - 0:00

Magnifiques "créatures"... C'est du grand Art ! Merci !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5522
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Esthétique polaire   Jeu 5 Nov 2015 - 1:09

Waou ! Le coloriste a jeté l’éponge sur .... la chouette ! cheers
Et voilà un autre connaisseur qui reconnait que c’est du grand art !

Merci à vous tous.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Invité
Invité



MessageSujet: Re: Esthétique polaire   Jeu 5 Nov 2015 - 1:43

Oui c'est beau! Je viens de tester, vu que la dernière version est téléchargée.

Une question: Pourquoi tu mets une boucle d’arrêt, avec if scancode <> 0 then...
Le moindre de clic pour une raison ou une autre arrête le programme. Vu les temps de calculs ou d'affichage, si c'est trop long, je ne recommence pas. Mets plutôt: IF SCANCODE = 27 then ouin ouin!...
Revenir en haut Aller en bas
papydall

avatar

Nombre de messages : 5522
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Esthétique polaire   Jeu 5 Nov 2015 - 1:57

Salut Cosmos.

Cosmos a écrit:
Oui c'est beau! Je viens de tester, vu que la dernière version est téléchargée.

Une question: Pourquoi tu mets une boucle d’arrêt, avec if scancode <> 0 then...
Le moindre de clic pour une raison ou une autre arrête le programme. Vu les temps de calculs ou d'affichage, si c'est trop long, je ne recommence pas. Mets plutôt: IF SCANCODE = 27 then ouin ouin!...

Merci pour ton intervention et je suis content que tu trouves que c’est beau.

La réponse à la question :  C’est parce que je n’aime pas trop utiliser le clavier ;  la souris c’est plus pratique pour moi
A chacun ses préférences et ses goûts et … personne n’est parfait. sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5522
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Esthétique polaire   Jeu 5 Nov 2015 - 4:02

Une figure de Moiré.
Et pour suivre le conseil venu du Cosmos, vous pouvez arrêter le programme par <ESC> et non par <CLICK>.
Mais comme toujours, la beauté (du graphique) récompensera votre patience.

Code:

rem ============================================================================
rem                  Figure de Moiré
rem                   Par Papydall
rem ============================================================================
rem Dessiner des segments avec antialiasing selon la méthode de Bresenham.
rem L effet antialiasing, consiste en un léger effet de flou permettant de cacher
rem les "escaliers" d un segment oblique.

rem Effet graphique surprenant :
rem En dessinant un grand nombre de segments créés avec antialiasing les uns
rem très proches des autres, on obtient une figure de Moiré.
rem ============================================================================

dim i,x1%,y1%,x2%,y2%
full_space 0 : color 0,0,0,0 : caption 0,"Veuillez patienter ..... <ESC> pour arrêter"
x1% = width(0)/8 : x2% = 7 * x1% : y1% = height(0)/8 : y2% = 7 * y1%
for i = y1% to y2% step 2
    ligne(x1%,y1%,x2%,i) : ligne(x1%,i,x2%,y2%)
    if scancode = 27 then terminate
next i
caption 0,"Terminé"
end
rem ============================================================================
' Tracer une ligne créée avec antialiasing
SUB ligne(x1%,y1%,x2%,y2%)
    dim_local x%,y%, e,m,epsilon
    epsilon = power(10,0-5)
    y% = y1%
    m = (y2% - y1%) / (x2% - x1% + epsilon)
    e = 0 : '  e = intensité de couleur varie entre 0 et 1
    for x% = x1% to x2%
        e = e + m
        if e >= 1 then e = e - 1 : y% = y% + 1
        2d_pen_color e*255,e*250,255-e*255 : 2d_point x%,y%
        2d_pen_color 255-e*255,e*255,e*255 : 2d_point x%,y% + 1
        display
    next x%
END_SUB
rem ============================================================================

A la prochaine! sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Esthétique polaire   

Revenir en haut Aller en bas
 
Esthétique polaire
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Aide esthétique pour les catégories
» Des traits pas esthétiques à mon goût...
» ['Christa] Quelque chose de plus esthétique sous les avatars des membres
» Souci esthétique de l'en-tête des courriels de notification
» Petit soucis esthétique avec le tuto intitulé "ajouter un bouton de sauvegarde"

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 :: Vos sources, vos utilitaires à partager-
Sauter vers: