1 USING: io.files kernel math namespaces pdf pdf.libhpdf prettyprint sequences ;
9 : font-list ( -- seq ) {
17 "Helvetica-BoldOblique"
27 ! HPDF_COMP_ALL set-compression-mode
29 ! HPDF_PAGE_MODE_USE_OUTLINE set-page-mode
31 ! Add a new page object
34 get-page-height height set
36 get-page-width width set
38 ! Print the lines of the page
41 50 50 width get 100 - height get 110 - page-rectangle
45 ! Print the title of the page (with positioning center)
46 "Helvetica" f get-font font set
48 font get 24 set-page-font-and-size
50 "Font Demo" page-text-width twidth set
53 width get twidth get - 2 / height get 50 - "Font Demo" page-text-out
59 font get 16 set-page-font-and-size
61 60 height get 80 - "<Standard Type1 font samples>" page-text-out
67 60 height get 105 - page-move-text-pos
75 fontname get f get-font font set
77 ! print a label of text
78 font get 9 set-page-font-and-size
80 fontname get page-show-text
82 0 -18 page-move-text-pos
85 font get 20 set-page-font-and-size
87 "abcdefgABCDEFG12345!#$%&+-@?" page-show-text
89 0 -20 page-move-text-pos
95 "font_test.pdf" temp-file save-to-file