<> <> <> <> DIRECTORY JaM USING [State], Cubic USING [Bezier], FitState USING [Handle], FitIO USING [Context]; FitJaM: CEDAR DEFINITIONS = { InitProc: TYPE = PROC[state: JaM.State]; RegisterInit: PROC[id: ATOM, proc: InitProc]; defaultFitIO: FitIO.Context; defaultFitState: FitState.Handle; HiLight: PUBLIC PROC[state: JaM.State, x, y: REAL]; -- inverts a small area around the given point, to give some feedback about what in going on. ShowBezierInverted: PUBLIC PROC[state: JaM.State, bezier: Cubic.Bezier]; }.