;; The contents of this demo file are made available under the CC0 1.0
;; Universal Public Domain Dedication. See LICENSE-CC0.txt or visit
;; http://creativecommons.org/publicdomain/zero/1.0/

;;; This is a very simple demo program showing basic SDL_ttf
;;; functionality. See ttf-demo.scm for a more interesting demo.

(cond-expand
  (chicken-4
   (use (prefix sdl2 sdl2:)
        (prefix sdl2-ttf ttf:)))
  (chicken-5
   (import (prefix sdl2 sdl2:)
           (prefix sdl2-ttf ttf:))))

(sdl2:set-main-ready!)
(sdl2:init!)
(ttf:init!)

(define font (ttf:open-font "ComicNeue-Regular.otf" 40))
(define text "Hello, World!")
(define-values (w h) (ttf:size-utf8 font text))
(define window (sdl2:create-window! text 'centered 'centered w h))

(let ((text-surf (ttf:render-utf8-shaded
                  font text
                  (sdl2:make-color 0   0   0)
                  (sdl2:make-color 255 255 255))))
  (sdl2:blit-surface! text-surf #f
                      (sdl2:window-surface window) #f))

(sdl2:update-window-surface! window)
(sdl2:delay! 5000)
(sdl2:quit!)