Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Dessin avec bin_and

Aller en bas

Dessin avec bin_and

Message par Papydall-Admin le Ven 23 Fév - 16:36

Code:
rem ============================================================================
rem                Dessin avec bin_and
rem ============================================================================
dim a,x,y,z,x0,y0,ym,
full_space 0 : x0 = width_client(0)*.5 : y0 = height_client(0) : ym = y0/2
color 0,200,100,50 : display :2d_fill_color 255,255,255 : 2d_circle x0,y0/2,ym
caption 0,"<ESC> pour arrêter"
for y = 1 to ym   
    for x = 1 to y
        a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
'      a = bin_and(x,y-x)
'      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)     
'      a = bin_and(x,sqr(x*x+y*y)+9749.5)

        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
        end_if
        if scancode = 27 then caption 0,"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 ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum