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 Contour;
{$FRAME_WIDTH 400}
{$FRAME_HEIGHT 400}
{$BACKGROUND $eeeeff}
uses
Flash8;
const
Coord: array [1..82, 1..2] of Integer=(
(11,36),(11,35),(12,34),(12,33),(13,32),
(14,31),(15,30),(16,29),(16,28),(17,27),
(17,26),(17,25),(16,24),(15,24),(14,24),
(14,23),(15,22),(16,21),(18,20),(19,19),
(19,18),(18,17),(17,16),(17,15),(17,14),
(17,13),(18,12),(19,11),(20,10),(21,10),
(22,10),(23,10),(24,11),(25,12),(26,13),
(26,14),(26,15),(26,16),(25,17),(24,18),
(24,19),(25,20),(27,21),(28,22),(29,23),
(29,24),(28,24),(27,24),(26,25),(26,26),
(26,27),(27,28),(27,29),(28,30),(29,31),
(30,32),(31,33),(31,34),(32,35),(32,36),
(32,37),(31,37),(30,37),(29,37),(28,37),
(27,37),(26,37),(25,37),(24,37),(23,37),
(22,37),(21,37),(20,37),(19,37),(18,37),
(17,37),(16,37),(15,37),(14,37),(13,37),
(12,37),(11,37));
var
i, j: Integer;
m1,m2 : MovieClip;
begin
m1 := MovieClip.Create(nil, 'm1', 0);
m1.lineStyle(1,$000055);
m1.beginFill($ffffff);
m1.moveTo(11,37);
for i := 1 to 82 do
begin
m1.lineTo(Coord[i,1], Coord[i,2] );
end;
for j := 1 to 10 do
begin
m2 := m1.duplicateMovieClip(IntToStr(j), j);
m2._x := 15 * j;
m2._y := 10 * j;
m2._xscale := 100 + 5 * j * j;
m2._yscale := 100 + 5 * j * j;
end;
end. |
Partager