jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
 | | Sujet: Bienvenue à Severin, 133° adhérant Lun 13 Déc 2010 - 13:30 | |
| Alors maintenant que c'est devenu une coutume panoramicienne, et en tant que délégué proclamé à l'accueil des nouveaux adhérants, je souhaite donc (au nom de tous) la bienvenue à Severin en lui décernant un programme spécialement individualisé. Celui-ci n'est pas en 3D, comme d'habitude, mais seulement en 2D (je fatigue, c'est vrai !) tant pis (la prochaine fois, je le ferai en 4D  ) - Code:
-
rem ' Bienvenue-16
dim m$ , n$ , i , j
n$="Severin"
m$="BONJOUR ET BIENVENUE A "+n$
rem form 0
width 0,1020 : height 0,540
caption 0," "+m$
picture 1
width 1,900
height 1,450
2d_target_is 1
for i=100 to 255
2d_pen_color 255,i,0
2d_line 0,i-100,900,i-100
next i
2d_flood 50,440,255,255,0
2d_pen_color 255,0,0
2d_fill_color 255,0,0
2d_circle int(rnd(500))+200,150,50
2d_pen_color 0,0,155
2d_poly_from 0,int(rnd(200))+200
for i=1 to 20
2d_poly_to 50*i+int(rnd(40)),int(rnd(200))+200
next i
2d_flood 50,440,0,0,155
print_target_is 1
font_size 1,30
font_bold 1
font_color 1,255,0,0
print_locate 90,400
print m$ (vous pouvez l'exécuter plusieurs fois pour voir les variations)  | |
|
dragonno
Nombre de messages : 341
Localisation : Près de Toulouse
Date d'inscription : 22/01/2009
| | Sujet: Re: Bienvenue à Severin, 133° adhérant Mar 14 Déc 2010 - 0:44 | |
| Salut Severin  | |
|
Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Bienvenue à Severin, 133° adhérant Mar 14 Déc 2010 - 8:55 | |
| Bienvenu à Severin. @JJN4, tes petits programmes d'accueil ont des vertus pédagogiques, j'aime bien la maniere utilisée pour le dégradé de couleur du ciel. - Code:
-
for i=10 to 255
2d_pen_color 255,i,0
2d_line 0,i-100,900,i-100
next i A+ | |
|
Contenu sponsorisé
| | Sujet: Re: Bienvenue à Severin, 133° adhérant | |
| |
|
Calendrier