Dessin avec bin_and

par **Papydall-Admin** 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 ============================================================================

Lun	Mar	Mer	Jeu	Ven	Sam	Dim
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30