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
|
program LeCarreDeuxFoisPlusGrand;
uses
Flash8, Colors;
{$FRAME_WIDTH 400}
{$FRAME_HEIGHT 400}
{$BACKGROUND $2F4F4F} // DarkSlateGray
{$FRAME_RATE 1}
type
TAnimation = class(MovieClip)
procedure onEnterFrame; override;
end;
var
gCount: integer;
procedure TAnimation.onEnterFrame;
begin
case gCount of
00: begin LineStyle(2, White); MoveTo(0, 0); LineTo(100, 0); end;
01: LineTo(100, 100);
02: LineTo(0, 100);
03: LineTo(0, 0);
04: begin LineStyle(2, Gray); MoveTo(100, 0); LineTo(200, 0); end;
05: LineTo(200, 200);
06: LineTo(0, 200);
07: LineTo(0, 100);
08: begin MoveTo(100, 100); LineTo(200, 100); end;
09: begin MoveTo(100, 100); LineTo(100, 200); end;
10: begin LineStyle(2, Orange); LineTo(0, 100); end;
11: LineTo(100, 0);
12: LineTo(200, 100);
13: LineTo(100, 200);
end;
Inc(gCount);
end;
begin
with TAnimation.Create(nil, 'TAnimation', 0) do
begin
_x := 100;
_y := 100;
LineTo(200, 200);
end;
gCount := 0;
end. |
Partager