{$IFDEF ASM_VERSION}
//[procedure TGraphicTool.SetFontOrientation]
procedure TGraphicTool.SetFontOrientation(Value: Integer);
asm
        PUSH     EAX
@@1:    MOV      EAX, EDX
        MOV      ECX, 3600
        CDQ
        IDIV     ECX     // EDX = Value mod 3600
        POP      EAX

        MOV      byte ptr [GlobalGraphics_UseFontOrient], 1
        MOV      [GlobalCanvas_OnTextArea], offset[TextAreaEx]

        MOV      [EAX].fData.Font.Escapement, EDX
        MOV      ECX, EDX
        MOV      DX, go_FontOrientation
        CALL     SetInt
end;
{$ELSE ASM_VERSION} //Pascal
procedure TGraphicTool.SetFontOrientation(Value: Integer);
begin
  GlobalGraphics_UseFontOrient := True;
  GlobalCanvas_OnTextArea := TextAreaEx;
  Value := Value mod 3600; // -3599..+3599
  SetInt( go_FontOrientation, Value );
  SetInt( go_FontEscapement, Value );
end;
{$ENDIF ASM_VERSION}