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. |
Partager