# list one font multiple size
Options {
  PaperSize 3     # A3
  Limits {
     #Shown
     Landscape
  }
}

set $alphaNum "ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789"
set $minuscule "abcdefghijklmnopqrst ! $%&*()_-+={}[]:;@<>,.?/|"

FontTable {
  1 "Homerton.Medium"
  2 "Homerton.Medium.Oblique"
  3 "Homerton.Bold"
  4 "Trinity.Medium"
  5 "Trinity.Medium.Italic"
  6 "Trinity.Bold"
  7 "Corpus.Medium"
  8 "Corpus.Medium.Oblique"
  9 "Corpus.Bold"
}



Set $x  20	#paper limit left
Set $y 550	#paper limit upper
Set $sizeX 16	#font x size
Set $sizeY 16	#font y size


set $currfont "Homerton.Medium"
Text {
  Style 1
  StartAt $x $y
  Size $sizeX $sizeY
  Text $currfont
}
( $y := $y - 20 )

for $size from 10 to 42 step 4 do {
  Text {
    Style font $currfont
    StartAt $x $y
    Size $size $size
    Text append 3 Num2Str $size " - "  $alphaNum
  }
  ( $size := $size + 4 )
  ( $y := $y - $size )
  ( $y := $y - 10 )
}

