Christians Wiki

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== Using Fonts ======

This prints a list of all the loaded fonts. (A slightly modified version is integrated as ''PDF.Document demo04a_loadedFonts'')

<code smalltalk>
page := PDF.Page newInBounds: (0 @ 0 corner: 400 @ 600) colorspace: DeviceRGB new  render: [:renderer |
  renderer textRenderingMode: 0.
  renderer textObjectDo: [
    renderer setFont: #Helvetica size: 18.
    renderer textMatrix: #(1 0 0 1 10 580); showString: 'Font list'.
    Graphics.Fonts.Font loadedFonts keys asSortedCollection do: [:fontSymbol |
      renderer add: (TextPositioningOperator Td operands: #(0 -20)).
      renderer setFont: #Helvetica size: 12.
      renderer showString: fontSymbol asString.
      renderer setFont: fontSymbol size: 12.
      renderer add: (TextPositioningOperator Td operands: #(0 -15)).
      renderer showString: 'The quick brown fox jumps...']]].
page saveAndShowAs: 'loadedFonts.pdf'
</code>
{{demo04a_loadedfonts.pdf}}