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
|
program Project6;
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
uses
Flash8;
procedure dot(x1,y1,x2,y2:number;m:movieclip);
var theta:number;
matrix1:Matrix;
begin
theta:=atan2(y2-y1,x2-x1);
matrix1:=matrix.create();
matrix1.createGradientBox(10,10,theta,0,0);
with m do
begin
lineGradientStyle('linear',[$000000,$ffffff], [100,100],[20,100], matrix1,'repeat','linearRGB',0.9);
moveTo(x1,y1);
lineTo(x2,y2);
end;
end;
begin
with _root do
begin
lineStyle(1,clblack);
dot(50,50,350,50,_root);
dot(350,50,350,350,_root);
dot(50,350,350,350,_root);
dot(50,350,50,50,_root);
dot(50,50,350,350,_root);
dot(50,350,350,50,_root);
end;
end. |
Partager