MickeyMouse.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Michael Plass, February 10, 1986 2:59:35 pm PST
Last edited by: Mik Lamming - April 25, 1986 3:47:37 pm PST
~
BEGIN
Rep:
TYPE ~
RECORD [
initialTick, tick, finalTick: INT ← 0,
active: LIST OF ActiveRecord ← NIL
];
ActiveRecord: TYPE ~ REF ActiveRecordRep ;
ActiveRecordRep:
PUBLIC TYPE ~
RECORD [
frames: LIST OF KeyFrame,
between: ImagerBetween.Ref
];
KeyFrame:
TYPE ~
RECORD [
z: REAL,
initialTick: INT,
name: Rope.ROPE
];
Create:
PROC [chartName: Rope.
ROPE]
RETURNS [Ref];
Specification:
ERROR [msg: Rope.
ROPE];
DrawFrame:
PROC [self: Ref, context: Imager.Context];
NextFrame:
PROC [self: Ref];
Play: PROC [chartName: Rope.ROPE, context: Imager.Context, pause: PROC ← NIL];