(defpackage #:workbench
  (:use #:cl+trial)
  (:shadow #:launch)
  (:local-nicknames
   (#:harmony #:org.shirakumo.fraf.harmony.user)
   (#:mixed #:org.shirakumo.fraf.mixed))
  (:export #:workbench #:launch))
(in-package #:workbench)

(defclass workbench (main) ()
  (:default-initargs :clear-color (vec 0.25 0.3 0.35 0)))

(defun launch ()
  (trial:launch 'workbench))

(define-pool workbench)

(define-asset (workbench grid) mesh
  (make-line-grid 10 100 100))

(progn
  (defmethod setup-scene ((workbench workbench) scene)
    (enter (make-instance 'trial:vertex-entity :vertex-array (// 'workbench 'grid)) scene)
    (enter (make-instance 'trial:fps-counter) scene)
    (enter (make-instance 'trial:editor-camera) scene)
    (enter (make-instance 'render-pass) scene))
  (maybe-reload-scene))