unmaintained/pdf/pdf-tests.factor

   1 USING: io.files kernel math namespaces pdf pdf.libhpdf prettyprint sequences ;
   2 IN: pdf.tests
   3
   4 SYMBOL: font
   5
   6 SYMBOL: width
   7 SYMBOL: height
   8 SYMBOL: twidth
   9
  10 : font-list ( -- seq ) {
  11     "Courier"
  12     "Courier-Bold"
  13     "Courier-Oblique"
  14     "Courier-BoldOblique"
  15     "Helvetica"
  16     "Helvetica-Bold"
  17     "Helvetica-Oblique"
  18     "Helvetica-BoldOblique"
  19     "Times-Roman"
  20     "Times-Bold"
  21     "Times-Italic"
  22     "Times-BoldItalic"
  23     "Symbol"
  24     "ZapfDingbats"
  25 } ;
  26
  27 [
  28     ! HPDF_COMP_ALL set-compression-mode
  29
  30     ! HPDF_PAGE_MODE_USE_OUTLINE set-page-mode
  31
  32     ! Add a new page object
  33     add-page
  34
  35     get-page-height height set
  36
  37     get-page-width width set
  38
  39     ! Print the lines of the page
  40     1 set-page-line-width
  41
  42     50 50 width get 100 - height get 110 - page-rectangle
  43
  44     page-stroke
  45
  46     ! Print the title of the page (with positioning center)
  47     "Helvetica" f get-font font set
  48
  49     font get 24 set-page-font-and-size
  50
  51     "Font Demo" page-text-width twidth set
  52
  53     [
  54         width get twidth get - 2 / height get 50 - "Font Demo" page-text-out
  55
  56     ] with-text
  57
  58     ! Print subtitle
  59     [
  60         font get 16 set-page-font-and-size
  61
  62         60 height get 80 - "<Standard Type1 font samples>" page-text-out
  63
  64     ] with-text
  65
  66     ! Print font list
  67     [
  68         60 height get 105 - page-move-text-pos
  69
  70         SYMBOL: fontname
  71
  72         font-list [
  73
  74             fontname set
  75
  76             fontname get f get-font font set
  77
  78             ! print a label of text
  79             font get 9 set-page-font-and-size
  80
  81             fontname get page-show-text
  82
  83             0 -18 page-move-text-pos
  84
  85             ! print a sample text
  86             font get 20 set-page-font-and-size
  87
  88             "abcdefgABCDEFG12345!#$%&+-@?" page-show-text
  89
  90             0 -20 page-move-text-pos
  91
  92         ] each
  93
  94     ] with-text
  95
  96     "font_test.pdf" temp-file save-to-file
  97
  98 ] with-pdf