# 12feb16abu
# (c) Software Lab. Alexander Burger

(load "@lib/http.l" "@lib/xhtml.l" "@lib/svg.l")

(pdf *A4-DX *A4-DY "x.pdf"
   (page
      (<faces>
         (quote
            ("Tangerine"
               "fonts/Tangerine/Tangerine_Regular.ttf"
               "fonts/Tangerine/Tangerine_Bold.ttf" ) ) )
      (rect 10 10 (- *A4-DX 20) (- *A4-DY 20))
      (brief T 8 "Absender"
         (ps)
         (ps "Bahnhofstr. 24a")
         (ps "D-86462 Langweid") )
      (window 60 280 240 60
         (let Fmt (80 12 80)
            (table Fmt "Aaa aaa" ":" "Xyz")
            (table Fmt "Bbb bbb" ":" (ps T 123456))
            (table Fmt "Ccc" ":" (ps (datStr (date)))) ) )
      (font (60 . "Tangerine")
         (<text> 200 780 "Tangerine") ) )
   (page
      (font 18
         (<text> 10 40 "Default")
         (bold (<text> 100 40 "Bold"))
         (font "monospace"
            (<text> 10 80 "Monospace 日本語") ) )
      (font 36
         (<text> 10 120 "ABC def")
         (bold (<text> 180 120 "Bold")) )
      (polygon "green" 200 300  240 300  300 340  400 340) )
   (page
      (window 300 80 200 100
         (rect 0 0 *DX *DY)
         (ps "Links")
         (ps 0 "Zentriert")
         (ps T "Rechts")
         (line 0 60 200 60 NIL "0.2") )
      (rect 10 140 40 30 "yellow")
      (circle 40 240 30 "red")
      (image "img/PilDemoQR.png" "image/png" 120 140 140) ) )

# vi:et:ts=3:sw=3