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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
program PsyntheseAdd;
{$FRAME_WIDTH 1024}
{$FRAME_HEIGHT 600}
{$FRAME_RATE 60}
{$BACKGROUND $000000}
uses
Flash8;
type
lumiere=class(movieclip)
private
Procedure circle(Cx,Cy,Radius:number);
public
constructor create(aowner:movieclip;taille,couleur:integer);
end;
scene=class(movieclip)
retour:boolean;
rouge,vert,bleu:lumiere;
constructor create;
Procedure onEnterFrame;override;
end;
Const D=250;
dl=2;
constructor scene.create;
begin
inherited create(_root,'scene',0);
rouge:=lumiere.create(self,D,$FF0000);
with rouge do
begin
_x:=Stage.width/2-stage.height/2+D/2;
_y:=stage.height/2;
end;
vert:=lumiere.create(self,D,$00FF00);
with vert do
begin
_x:=Stage.width/2+stage.height/2-D/2;
_y:=stage.height/2;
end;
bleu:=lumiere.create(self,D,$0000FF);
with bleu do
begin
_x:=Stage.width/2;
_y:=stage.height-D/2;
end;
retour:=false;
end;
constructor lumiere.create(aowner:movieclip;taille,couleur:integer);
begin
inherited create(aowner,'diapo', aowner.getNextHighestDepth());
Linestyle(10,clblack);
beginfill(couleur);
circle(0,0,taille/2);
blendmode:='add';
end;
Procedure lumiere.circle(Cx,Cy,Radius:number);
var a,b,R: number;
begin
R:=Radius;
a:= R * 0.414213562;
b:= R * 0.707106781;
moveTo(Cx+R,Cy);
CurveTo(Cx+ R, Cy+-a, Cx+b,Cy -b);
CurveTo(Cx+ a,Cy-R,Cx,Cy -r);
CurveTo(Cx-a,Cy -R,Cx-b,Cy -b);
CurveTo(Cx-R, Cy-a,Cx-R,Cy);
CurveTo(Cx-R,Cy+a,Cx-b,Cy+b);
CurveTo(Cx-a,Cy +R,Cx,Cy+r);
CurveTo(Cx+a,Cy +R,Cx+b,Cy+b);
CurveTo(Cx+R,Cy+a,Cx+R,Cy);
end;
procedure scene.onEnterFrame;
begin
if (rouge._x >stage.width/2) or (rouge._x<Stage.width/2-stage.height/2+D/2) then retour:=not retour;
if not retour then
begin
rouge._x:=rouge._x+dl;
vert._x:=vert._x-dl;
bleu._y:=bleu._y-dl;
end else
begin
rouge._x:=rouge._x-dl;
vert._x:=vert._x+dl;
bleu._y:=bleu._y+dl;
end;
end;
begin
scene.create;
end. |
