(defpackage #:ww.example/3
  (:use :cl))

(in-package #:ww.example/3)


(defclass font-display (ww::application) ())

(defmethod ww::boot ((app font-display))
  (let ((hello
          (make-instance
           'ww::text
           :content "Hell! Oh World..."
           :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2)))))

    (setf (ww::unit-width hello)
          (* 5 (ww::unit-width hello))

          (ww::unit-height hello)
          (* 5 (ww::unit-height hello))

          (ww::unit-x hello) 100

          (ww::unit-y hello) 100)

    (ww::add-unit app hello)))


(defun start ()
  (ww::start (make-instance 'font-display
                            :title "Wheelwork Example: Font display"
                            :asset-root "~/projects/wheelwork/examples/")))