## Код:
```
PROCEDURE (v : MyView) DrawSin (f: Views.Frame;l, t, r, b: INTEGER), NEW;
BEGIN
  ...
END DrawSin;

PROCEDURE (v : MyView) DrawTan (f: Views.Frame;l, t, r, b: INTEGER), NEW;
BEGIN
  ...
END DrawTan;

PROCEDURE (v : MyView) Restore (f: Views.Frame;l, t, r, b: INTEGER);
BEGIN
  IF условие THEN v.DrawSin(f, l, t, r, b) ELSE v.DrawTan(f, l, t, r, b) END
END Restore;
```
