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
» Projet de planétarium virtuel.
par Pedro Alvarez Hier à 17:29

» Quantité de mémoire utilisée par un exe
par Navigateur Hier à 14:52

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Ven 15 Juin 2018 - 7:52

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Graphisme avec les fonctions logiques binaires

Aller en bas 
AuteurMessage
papydall

avatar

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

MessageSujet: Graphisme avec les fonctions logiques binaires   Mar 29 Mai 2018 - 17:33

Code:

rem ============================================================================
rem Graphisme avec les fonctions logiques binaires : BIN_AND ; BIN_OR ; BIN_XOR
rem                           par Papydall
rem ============================================================================
dim a,x,y,x0,y0,ym
picture 10 : full_space 10 : 2d_target_is 10
x0 = width_client(10)*.5 : y0 = height_client(10)-10 : ym = y0/2
color 10,200,100,50 : 2d_fill_color 50,100,200 : 2d_circle x0,y0/2+5,ym
caption 0,"Graphisme avec les fonctions logiques binaires ... Tracé en cours ... <ESC> pour arrêter"
for y = 1 to ym
   for x = 1 to y      
      ' Essayer successivement ces fonctions avec
      '  a = bin_and(...)
      '  a = bin_or(...)
      '  a = bin_xor(...)      
      ' ========================================================================
       a = bin_and(x,y-x)  
      ' a = bin_or(x,y-x)  
      ' a = bin_xor(x,y-x)
      ' ========================================================================  
      ' a = bin_and(x,y)
      ' a = bin_and(x,y+x)
      ' a = bin_and(y,y-x)
      ' a = bin_and(y/pi,y+x/sqr(2))
      ' a = bin_and(x,sqr(x*x+y*y))
      ' a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
      ' a = bin_and(x*pi,y*pi)
      ' a = bin_and(bin_and(x*x,x*x),sqr(y*x+y*x))
      ' a = bin_and(bin_and(bin_and(x,x*y*pi),y),x)
      ' a = bin_and(x*x/y+pi,y*y/x+pi)
      ' a = bin_and(pi*x-y,pi*y)
      ' a = bin_and(exp(1)*x,exp(1)*y)
      
      ' ========================================================================
       if a <> 0
          couleur()
          2d_point x0+x,y+5    : 2d_point x0-x,y+5
          2d_point x0+x,y0-y+5 : 2d_point x0-x,y0-y+5          
          display
       end_if
       if scancode = 27 then caption 0,"Programme arrêté par l'utilisateur ! " : end
   next x
next y
caption 0,"TERMINE"
end
rem ============================================================================
SUB Couleur()
    if a > 10 then 2d_pen_color 255,0,0
    if a > 20 then 2d_pen_color 0,255,0
    if a > 30 then 2d_pen_color 0,0,255
    if a > 40 then 2d_pen_color 255,255,0
    if a > 50 then 2d_pen_color 0,255,255
    if a > 60 then 2d_pen_color 127,0,0
    if a > 70 then 2d_pen_color 0,127,0
    if a > 80 then 2d_pen_color 0,0,127
    if a > 100 then 2d_pen_color rnd(255),rnd(255),rnd(255)
END_SUB
rem ============================================================================


BIN_AND:
 

BIN_OR:
 

BIN_XOR:
 


Dernière édition par papydall le Mar 29 Mai 2018 - 17:48, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

Nombre de messages : 1755
Date d'inscription : 13/09/2009

MessageSujet: +++   Mar 29 Mai 2018 - 17:43

Ouaaah, superbe !
Ca, c'est du graphisme !
cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Graphisme avec les fonctions logiques binaires   Mar 29 Mai 2018 - 17:57

J'aime bien celui de la ligne 25.

Beaucoup de possibilités à tester.

Bravo Papydall !

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Graphisme avec les fonctions logiques binaires   Mar 29 Mai 2018 - 17:58

Oui, c'est du graphisme ... Martien No alien No
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Graphisme avec les fonctions logiques binaires   

Revenir en haut Aller en bas
 
Graphisme avec les fonctions logiques binaires
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Partenariat avec The Vampire Diaries RPG [Accepté]
» Simulateur de circuits logiques
» j ai des souci , je debute depuis ce jour avec linux fedora
» Lecture video interrompue avec mise en tampon
» probleme avec les cellules d'excel sur la mise en forme

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: