Avril 2024 | 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 | | | | | | Calendrier |
|
| | Interlude de 50s | |
| | Auteur | Message |
---|
Marc
Nombre de messages : 2380 Age : 63 Localisation : TOURS (37) Date d'inscription : 17/03/2014
| Sujet: Interlude de 50s Dim 8 Nov 2015 - 0:07 | |
| Bonsoir à tous, Petit interlude de 50 secondes, avec, à son insu, la complicité de Papydall. Merci à lui ! - Code:
-
width 0, 1000 : height 0, 750 dim i%,x%,y% for i% = 290 to 20 step -10 : 2d_circle 500,350,i% : next i% for i% = 25 to 285 step 20 : 2d_flood 500, 350 + i%, 1,1,1 : next i% image 1 : 2d_image_copy 1,0,0,1000,750 for i% = 30 to 290 step 20 : 2d_flood 500, 350 + i%, 0,0,0 : next i% image 2 : 2d_image_copy 2,210,60,790,640 scene2d 3 : full_space 3 sprite 5 : sprite_image_load 5, 1 sprite 6 : sprite_image_load 6, 2
Ellipse(110,60,100,40)
end
' ==>> Merci à Papydall pour sa sub ! <<== SUB Ellipse(xc,yc,rx,ry) dim_local x,y,t,pi,p pi = acos(-1) : p = pi/180 sprite_x_position 6,xc+rx sprite_y_position 6,yc for t = 0 to 2*pi step p wait 100 x = xc + rx * cos(t) : y = yc + ry * sin(t) sprite_x_position 6,x sprite_y_position 6,y next t END_SUB | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: Interlude de 50s Dim 8 Nov 2015 - 0:58 | |
| | |
| | | papydall
Nombre de messages : 6996 Age : 73 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Interlude de 50s Dim 8 Nov 2015 - 1:24 | |
| - Marc37 a écrit:
- Petit interlude de 50 secondes, avec, à son insu, la complicité de Papydall. Merci à lui !
Merci pour ce clin d’œil. C'est ce qu'on appelle du moiré - Code:
-
rem ============================================================================ rem Moiré rem ============================================================================ dim t,x : x = width(0) for t = 1 to x step 3 : 2d_line 0,0,x,t : 2d_line 0,0,t,x : next t rem ============================================================================
Je laisse le soin de la coloration au coloriste qui se reconnaîtra. Edit : Déplacer la fenêtre à l'aide de la souris pour mieux observer le phénomène de moiré. | |
| | | papydall
Nombre de messages : 6996 Age : 73 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Interlude de 50s Dim 8 Nov 2015 - 3:43 | |
| - Code:
-
rem ============================================================================ rem Moiré rem ============================================================================ rem Lorsque deux familles de courbes sont introduites dans le même espace, on rem distingue deux cas: rem * 1 : Soit chacune d entre elles garde sa "personnalité" et on ne peut rem apercevoir autre chose que deux familles pouvant avoir quelques points rem communs mais chacune est facilement reconnaissable. rem * 2 : Soit des liaisons se nouent entre les éléments de chaque familles. rem Ces relations transversales prennent finalement le pas sur les parentés rem originales. rem Ainsi apparaît alors une nouvelle famille née de l intime combinaison rem des deux familles précédentes. C est le phénomène de moiré qui fait que rem la superposition de deux familles de courbes en fait apparaître rem visuellement une troisième. rem ============================================================================
dim i,w,n,xc,yc,p width 0,screen_x/2 : height 0,screen_x/2 : color 0,150,100,50 top 0,(screen_y - height(0))/2 : left 0,(screen_x - width(0))/2 xc = width(0)/2 : yc = height(0)/2-50 : ' Centre du tracé n = 20 : ' Nombre de carrés / cercles w = 6 : ' Epaisseur du trait p = 30 : ' temps de la PAUSE 2d_fill_off : ' carrés et cercles transparents 2d_pen_width w caption 0,"<CLICK> pour arrêter ..." repeat pause 10*p : cls for i = 1 to n 2d_pen_color 10*i,255,0 : Carre(xc,yc,i*(w+n)) : pause p 2d_pen_color 255,0,255-10*i : 2d_circle xc,yc,i*(w+n)/2 : pause p next i pause 10*p : cls for i = n to 1 step -1 2d_pen_color 0,255,10*i : Carre(xc,yc,i*(w+n)) : pause p 2d_pen_color 255-10*i,20,10*i: 2d_circle xc,yc,i*(w+n)/2 : pause p next i until scancode <> 0 end rem ============================================================================ ' Carré de centre xc,yc et de côté c SUB Carre(xc,yc,c) dim_local x1,y1,x2,y2 x1 = xc-c/2 : y1 = yc-c/2 : x2 = xc+c/2 : y2 = yc+c/2 2d_rectangle x1,y1,x2,y2 END_SUB rem ============================================================================
| |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: Interlude de 50s Dim 8 Nov 2015 - 11:45 | |
| Très bel effet aussi Papydall. Note: Ca peut faire un écran d'attente sympa ... | |
| | | Marc
Nombre de messages : 2380 Age : 63 Localisation : TOURS (37) Date d'inscription : 17/03/2014
| Sujet: Re: Interlude de 50s Dim 8 Nov 2015 - 16:26 | |
| Merci pour les figures Artistiques et le tuto sur les moirés ! | |
| | | papydall
Nombre de messages : 6996 Age : 73 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Interlude de 50s Dim 8 Nov 2015 - 17:36 | |
| - Jicehel a écrit:
- Très bel effet aussi Papydall.
Note: Ca peut faire un écran d'attente sympa ... Do it ! Why not ? - Marc37 a écrit:
- Merci pour les figures Artistiques et le tuto sur les moirés !
Merci pour ton merci. | |
| | | Contenu sponsorisé
| Sujet: Re: Interlude de 50s | |
| |
| | | | Interlude de 50s | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |