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
|
program Psavant2;
{$FRAME_WIDTH 780}
{$FRAME_HEIGHT 170}
{$BACKGROUND $FFFFFF}
{$FRAME_RATE 60}
{$JPEG savant 'tilsav.png'}
uses
Flash8;//,Udefiltil;
type
TMovie = class(MovieClip)
t: TextField;
b1, b2: MovieClip;
frames: Integer;
timer: Number;
constructor Create;
procedure onEnterFrame(); override;
end;
constructor TMovie.Create;
var
b: BitmapData;
begin
inherited Create(_root, 'm', 1);
b := loadBitmap('savant');
b1 := MovieClip.Create(Self, 'b1', 1);
b2 := MovieClip.Create(Self, 'b2', 2);
t := TextField.Create(_root, 't', 2, 0, 0, 100, 21);
b1.AttachBitmap(b, 1);
b2.AttachBitmap(b, 1);
b2._x := -780;
timer := GetTimer();
end;
procedure TMovie.onEnterFrame();
begin
Inc(frames);
t.Text := FloatToStr(frames * 1000 / (GetTimer() - timer));
(*
_x := _x + 100/60;
if _x >= 780 then
_x := 0;
*)
_x := Round((GetTimer() - timer)/10) mod 780;
end;
begin
Tmovie.Create();
end. |
Partager