%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%   5  .......  ttiny 
%%   7  .......  sscriptsize 
%%   8  .......  ffootnotesize 
%%   9  .......  ssmall 
%%  10  .......  nnormalsize 
%%  12  .......  llarge 
%%  14  (14.40)  LLarge 
%%  18  (17.28)  LLARGE 
%%  20  (20.74)  hhuge 
%%  24  (24.88)  HHuge
%%  30  (29.86)
%%  36  (35.83)
%%  43
%%  52  (51.60)
%%  62  (61.92)
%%  74  (74.30)
%%  90  (89.16)
%% 107
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#(define-markup-command (ttiny layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 5 #:medium arg)))

#(define-markup-command (sscriptsize layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 7 #:medium arg)))

#(define-markup-command (ffootnotesize layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 8 #:medium arg)))

#(define-markup-command (ssmall layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 9 #:medium arg)))

#(define-markup-command (nnormalsize layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 10 #:medium arg)))

#(define-markup-command (llarge layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 12 #:medium arg)))

#(define-markup-command (LLarge layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 14.4 #:medium arg)))

#(define-markup-command (LLARGE layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 17.28 #:medium arg)))

#(define-markup-command (hhuge layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 20.74 #:medium arg)))

#(define-markup-command (HHuge layout props arg) (markup?)
	(interpret-markup layout props 
	(markup #:abs-fontsize 24.88 #:medium arg)))