PROCEDURE  Rotate*(f: Views.Frame);
   VAR i: INTEGER; m: REAL; b: Ports.Rider; dc: WinApi.HANDLE;
   BEGIN
      b := f.rider;
      dc := b.dc (тут всплывает ошибка, что мол UNDEFINED RECORD FIELD);
      ...
END Rotate;

Rider* = POINTER TO EXTENSIBLE RECORD (Ports.Rider)
   l-, t-, r-, b-: INTEGER;
   port-: Port;
   dx, dy: INTEGER;   (* scroll offset *)
   map: WinApi.HANDLE;   (* save bitmap *)
   dc: WinApi.HANDLE;   (* save dc *)
   sl, st, sr, sb: INTEGER   (* save rect *)
END;

res := WinApi.SetGraphicsMode(dc,WinApi.GM_ADVANCED);
xForm.eM11 := 0.8660;
xForm.eM12 := 0.5000;
xForm.eM21 := -0.5000;
xForm.eM22 := 0.8660;
xForm.eDx  := 0.0;
xForm.eDy  := 0.0;
res :=   WinApi.SetWorldTransform(dc,xForm);

Rider* = POINTER TO ABSTRACT RECORD END;
Frame* = POINTER TO ABSTRACT RECORD
   unit-, dot-: INTEGER;   (** inv: dot = point - point MOD unit **)
   rider-: Rider;
   gx-, gy-: INTEGER
END;

PROCEDURE Rotate(f: Views.Frame; u: REAL);
   VAR res: INTEGER; dc: WinApi.HANDLE; xForm: WinApi.XFORM;
   BEGIN
      dc := f.rider(HostPorts.Rider).port.dc;
      u := u*Math.Pi()/180;
      res := WinApi.SetGraphicsMode(dc,WinApi.GM_ADVANCED);
      xForm.eM11 := SHORT(Math.Cos(u));
      xForm.eM12 := SHORT(Math.Sin(u));
      xForm.eM21 := - SHORT(Math.Sin(u));
      xForm.eM22 := SHORT(Math.Cos(u));
      xForm.eDx  := 0.0;
      xForm.eDy  := 0.0;
      res := WinApi.SetWorldTransform(dc,xForm);
END Rotate;

PROCEDURE (axes: Rendaxes) Restore (f: Views.Frame; fl, ft, fr, fb: INTEGER);

         Rotate(f, 30);

...

PROCEDURE DrawStringA(f: Views.Frame; x,y: INTEGER; angle: INTEGER; col: Ports.Color; s: ARRAY OF CHAR; font: Fonts.Font);
   VAR n, a, res: INTEGER; dc: WinApi.HANDLE; ind: WinApi.BOOL;
      NewFont: WinApi.HFONT; df: HostFonts.DevFont; pt: HostPorts.Port;
      fsize : WinApi.SIZE;
   BEGIN
      pt := f.rider(HostPorts.Rider).port;
      dc := pt.dc;
      res := WinApi.SaveDC(dc);
      res := WinApi.SetBkMode(dc, WinApi.TRANSPARENT);
      res := WinApi.SetTextColor(dc, col);
   (* Вычисляем длину строки *)
      a := LEN(s) - 1; n := 0;
      WHILE (n < a) & (s[n] # 0X) DO
         INC(n)
      END;
      IF angle MOD 360 = 0 THEN
      (* Если угол поворота кратен 360, то использовать обычный шрифт *)
         df := font(HostFonts.Font).dev;
         res := WinApi.SelectObject(dc,df.id);
         res := WinApi.TextOutW(dc, x, y, s, n);
         res := WinApi.RestoreDC(dc, -1)
      ELSE
      (* Иначе, создать новый шрифт *)
         NewFont := WinApi.CreateFontW(-((font.size + pt.unit DIV 2) DIV pt.unit), 0, angle*10, angle*10, Fonts.normal, 0, 0, 0, 0, 7, 2, 1, 38, font.typeface);
      (* Вычислить ширину строки (для сдвига по Y) *)
         ind := WinApi.GetTextExtentPoint32W(dc, s, n, fsize);
      (* Выбрать шрифт *)
         res := WinApi.SelectObject(dc, NewFont);
      (* Вывести текст *)
         res := WinApi.TextOutW(dc, x, y + fsize.cx DIV 2, s, n);
         res := WinApi.RestoreDC(dc, -1);
      (* Удалить шрифт *)
         ind := WinApi.DeleteObject(NewFont);
      END
END DrawStringA;
...

(* пример использования выдернутый из контекста *)
DrawStringA(f, I(l/f.dot-30), I((t+(h DIV 2))/f.dot), 90, Ports.black, temp, font);