<> <> Bend: CEDAR DEFINITIONS = BEGIN NextHookProc: TYPE = PROC [] RETURNS [down: BOOL, break: INT, quit: BOOLEAN _ FALSE]; OutputSegmentProc: TYPE = PROC [incrementX, incrementY: INT]; BendToHooks: PROC [lineX, lineY: INT, NextHook: NextHookProc, OutputSegment:OutputSegmentProc]; DiagonalToHooks: PROC [lineX, lineY: INT, NextHook: NextHookProc, OutputSegment:OutputSegmentProc]; END.