# 05dec15abu
# (c) Software Lab. Alexander Burger

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

(out "/tmp/PentiLogo.svg"
   (<svg> 288 288 "px"
      (<tag> "defs" NIL
         (<tag> "linearGradient"
            (quote
               (id . "grad")
               (x1 . "0%")
               (y1 . "0%")
               (x2 . "100%")
               (y2 . "100%") )
            (prin "<stop offset=\"0%\" style=\"stop-color:white\"/>")
            (prin "<stop offset=\"100%\" style=\"stop-color:#FA2\"/>") ) )
      (rect 0 0 288 288 "url(#grad)")
      (<style> '("stroke-dasharray" . "6,6")
         (width 3
            (circle 150 220 60)
            (circle 81 120 24)
            (circle 100 75 24)
            (circle 140 48 24)
            (circle 210 40 30)
            (circle
               (/ (+ (/ (+ 150 220) 2) 100) 2)
               (/ (+ (/ (+ 210 40) 2) 75) 2)
               24 ) ) ) ) )

(call "rsvg-convert" "-f" "png" "-o" "/tmp/PentiLogo.png" "/tmp/PentiLogo.svg")
(call "curl" "-T" "/tmp/PentiLogo.png" "ftp://www.software-lab.de:m3pacs2w@www.software-lab.de")
## (call "display" "/tmp/PentiLogo.png")
(bye)

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