(load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l" "@lib/canvas.l")

(allow showTextMetric )
(allow "!mk.svg")


(de showTextMetric (Letter W)
   (setq *TextW W)
   (out "/tmp/pil.txt" (println "Text " Letter " has width " W " pixels") )
 )


(de mk.svg (Page)
   (httpHead "image/svg+xml" 0)
   (ht:Out *Chunked
      # GENERATE SVG
      (prin "<g transform=\"translate(126,72)\">")
      (prin "<rect x=\"0\" y=\"0\" width=\"300\" height=\"258\" fill=\"none\" stroke=\"gray\" stroke-width=\"0.25\"/>")
      (prin "</g>")
 ) )

(de drawTile (Letter, X, Y, R, W, H, LP, HP)
      # calls link to add to list
      (csFont "32pt sans-serif")
      (csBeginPath)

      #draw square tile
      (csMoveTo (+ X R) Y)
      (csLineTo (+ X W (* -1 R)) Y)
      (csQuadraticCurveTo (+ X W) Y (+ X W) (+ Y R))
      (csLineTo (+ X W) (+ Y H (* -1 R)) )
      (csQuadraticCurveTo (+ X W) (+ Y H) (+ X W (* -1 R)) (+ Y H))
      (csLineTo (+ X R) (+ Y H))
      (csQuadraticCurveTo X (+ Y H) X (+ Y H (* -1 R)))
      (csLineTo X (+ Y R))
      (csQuadraticCurveTo X Y (+ X R) Y)

      (csClosePath)
      (csStrokeStyle "blue")
      (csStroke)
      (csFillStyle "#FDA893")
      (csFill)
      (csFillStyle "green")
      (csFillText Letter (+ X (/ (- W LP) 2)) (+ Y (/ (- H HP) 2)))
 )

(de drawImage ()
      (csDrawImage (sesId (pack "!mk.svg?" (ht:Fmt This *Cnt)))
         50 # X
         50 # Y
         (make
            (drawTile "A" 200 200 10 100 100 7 10) ) )  )

(de drawCanvas (Id Dly F X Y X2 Y2)
   (inc *Cnt)
   (make (drawImage) (csPost))  )

(de canvasTest ()
   (action
      (html 0 "Canvas Test1" "@lib.css" '((onload . "drawCanvas('$testID', -1)"))
         (form NIL
            (<canvas> "$testID" 600 600) ) ) ) )

(de work ()
   (app)
   (setq *Cnt 0)
   (redirect (baseHRef) *SesId "!canvasTest") )

(server 8080 "!work")