Un nouveau --> Bienvenue

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

Encore un petit nouveau !
Alors un petit programme de bienvenue
spécialement fait avec les nouveautés qui viennent de sortir
donc en 2D, cette fois
j'avoue que je suis un peu déçu,
le 2D n'est pas fait pour écrire des lettres.
La prochaine fois, je reviendrai au 3D.
Bienvenue sathex !
cheers

Code:: rem ' Bienvenue-07
dim n$ , i
n$="sathex"
width 0,1000 : height 0,550
caption 0,"Bonjour à "+n$

alpha 1
width 1,950 : height 1,480
color 1,255,255,255

rem ' Lettre B
picture 2
width 2,680 : height 2,200
2d_target_is 2
2d_circle 50,100,28
2d_circle 50,150,33
2d_circle 50,100,15
2d_circle 50,150,20
2d_line 15,72,15,182
2d_line 15,72,55,72
2d_line 15,182,55,182
2d_pen_color 255,255,255
2d_line 22,80,22,120
2d_line 17,130,17,170
2d_fill_diagonal_cross
2d_flood 20,100,0,0,0

rem ' Lettre O
2d_pen_color 0,0,0
2d_flood 130,130,255,255,255
2d_circle 140,130,55
2d_circle 140,130,35
2d_fill_cross
2d_flood 140,90,255,0,0

rem ' Lettre N
2d_line 200,78,200,182
2d_line 220,118,220,182
2d_line 200,182,220,182
2d_line 200,78,220,78
2d_line 220,78,258,142
2d_line 220,118,258,182
2d_line 258,182,278,182
2d_line 278,182,278,78
2d_line 258,142,258,78
2d_line 258,78,278,78
2d_fill_vertical
2d_flood 210,85,0,255,0

rem ' Lettre J
2d_fill_solid
2d_flood 320,150,255,255,255
2d_circle 320,150,35
2d_circle 320,150,15
2d_pen_color 255,255,255
2d_rectangle 282,110,360,150
2d_fill_color 255,255,255
2d_pen_color 0,0,0
2d_line 285,150,305,150
2d_line 334,150,334,78
2d_line 354,150,354,78
2d_line 334,78,354,78
2d_fill_diagonal_down
2d_flood 340,100,0,0,255
2d_circle 344,50,12

rem ' Lettre O
2d_pen_color 0,0,0
2d_flood 130,130,255,255,255
2d_circle 415,130,55
2d_circle 415,130,35
2d_fill_horizontal
2d_flood 375,120,255,0,255

rem ' Lettre U
2d_fill_solid
2d_flood 525,135,255,255,255
2d_circle 525,135,50
2d_circle 525,135,30
2d_pen_color 255,255,255
2d_rectangle 473,80,578,135
2d_fill_color 255,255,255
2d_pen_color 0,0,0
2d_line 475,135,475,78
2d_line 495,135,495,78
2d_line 555,135,555,78
2d_line 575,135,575,78
2d_line 475,78,495,78
2d_line 555,78,575,78
2d_fill_diagonal_up
2d_flood 485,100,0,255,255

rem ' Lettre R
2d_fill_solid
2d_flood 600,120,255,255,255
2d_circle 620,107,28
2d_circle 620,107,15
2d_line 590,78,590,182
2d_line 590,78,620,78
2d_line 590,182,610,182
2d_line 610,182,610,130
2d_line 620,133,640,182
2d_line 640,127,664,182
2d_line 640,182,664,182
2d_pen_color 255,255,255
2d_line 592,100,592,150
2d_fill_color 255,255,255
2d_circle 630,132,5
2d_fill_diagonal_cross
2d_fill_color 0,0,0
2d_flood 600,160,0,0,0

rem ' Mouvements
wait 900
for i=1 to 250 step 3
left 2,i
wait 1
next i
wait 500
for i=1 to 250 step 3
top 2,i
wait 1
next i
wait 500
for i=250 to 1 step -3
left 2,i
top 2,i
wait 1
next i
wait 500
for i=1 to 250 step 3
left 2,i
wait 1
next i
wait 500
for i=1 to 250 step 3
left 2,250-i
top 2,i
wait 1
next i
wait 500
for i=250 to 1 step -3
top 2,i
wait 1
next i
wait 500
for i=1 to 120 step 3
left 2,i
top 2,i
wait 1
next i
wait 500

rem ' Soulignement
2d_pen_dash_dot_dot
2d_pen_color 0,0,0
2d_line 15,190,665,190

Sujet: Re: Un nouveau --> Bienvenue Mar 12 Oct 2010 - 3:37

très agréable

DJ

Sujet: Re: Un nouveau --> Bienvenue Mar 12 Oct 2010 - 9:11

C'est peut-être moins visuel qu'en 3D, mais au moins çà a le mérite de montrer une utilisation des nouvelles fonctions 2D.

Tu travailles dur JJN4. Tu m'as donnée une idée....

A+

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

Puisque me voilà presque explicitement élu préposé à l'accueil des nouveaux adhérants,
je me dois donc de publier un programme (en 3D) pour accueillir F6DTL

Alors là, c'est une programme de remise en forme
(respiration, un esprit sain dans un corps (coeur) sain, etc...)
Vous pourrez en profiter pour faire vos exercice pendant que vous le regarderez.

Attention, peut-être, à l'effet un peu hypnotique...
mais si après ça, vous vous sentez l'esprit un peu engourdi,
envoyez-moi un message et je vous réveillerai...
Laughing

Code:: rem ' Bienvenue-08
dim i , j , m$ , n$
m$="Un programme qui respire la santé : "
n$="F6DTL"
width 0,1020 : height 0,540
caption 0,"Bienvenue à toi, "+n$
scene3d 1
width 1,980 : height 1,460
3d_text 1,"BONJOUR"
3d_color 1,0,30,255
3d_x_position 1,-3
alpha 3
left 3,50 : top 3,470 : font_size 3,14
wait 999
for i=1 to 8
for j=6 to 14
3d_scale 1,j*0.2,j*0.2,j*0.2
3d_position 1,j*-0.3-1.8,j*-0.1+0.5,0
caption 3,m$+"INSPIREZ"
wait 75
next j
wait 150
for j=14 to 5 step -1
3d_scale 1,j*0.2,j*0.2,j*0.2
3d_position 1,j*-0.3-1.8,j*-0.1+0.5,0
caption 3,m$+" EXPIREZ"
wait 75
next j
wait 150
next i
3d_text_change 1,"BIENV"
3d_color 1,255,0,0
3d_position 1,-2.9,0,0
3d_text 2,"ENUE"
3d_color 2,255,0,0
3d_position 2,-0.1,0,0
caption 3,m$+string$(20," ")+"avec un coeur sain"
for i=1 to 25
for j=5 to 14
3d_scale 1,j*0.2,j*0.2,j*0.2
3d_position 1,j*-0.3-1.8,j*-0.1+0.5,0
3d_scale 2,(19-j)*0.2,(19-j)*0.2,(19-j)*0.2
3d_position 2,(19-j)*-0.24+2.6,(19-j)*-0.1+0.5,0
wait 15
next j
wait 150
for j=5 to 14
3d_scale 1,(19-j)*0.2,(19-j)*0.2,(19-j)*0.2
3d_position 1,(19-j)*-0.3-1.8,(19-j)*-0.1+0.5,0
3d_scale 2,j*0.2,j*0.2,j*0.2
3d_position 2,j*-0.24+2.6,j*-0.1+0.5,0
wait 15
next j
wait 150
next i
3d_hide 2
3d_text_change 1,"Salut "+n$
3d_color 1,0,150,0
m$="Nous te souhaitons une bonne santé, "+n$
m$=m$+", et beaucoup d'exaltante programmation !"
caption 3,m$
midi_on
for i=1 to 7
midi_play i*12+20,8
next i
wait 200
midi_off
wait 4000
terminate

Sujet: Re: Un nouveau --> Bienvenue Jeu 14 Oct 2010 - 18:45

A regarder jusqu'au bout. Je suis abruti......

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

1, 2, 3, réveille-toi !
Et voilà !
Laughing

» Bienvenue au petit nouveau !
» Bienvenue à ~KeV~
» Bienvenue à chrisal
» Bienvenue (new)
» Bienvenue à aro-01