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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

  Esthétique polaire

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

avatar

Nombre de messages : 5613
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 : 6018
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 : 5613
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 : 5086
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 : 5613
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 : 5863
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
Marc



Nombre de messages : 549
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 : 5613
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 : 5613
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 : 5613
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
-
» ['Christa] Quelque chose de plus esthétique sous les avatars des membres
» Aiguilles peco et ressort de blocage des lames
» Lieux enregistrés par ordre alphabétique ?
» Futur reseau hypothétique de Rico
» La phonétique et l'orthographe font trop bon ménage

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: