Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (20 sloc) 733 Bytes
#|
This file is a part of trial
(c) 2016 Shirakumo http://tymoon.eu (shinmera@tymoon.eu)
Author: Nicolas Hafner <shinmera@tymoon.eu>
|#
(in-package #:org.shirakumo.fraf.trial)
(defmethod paint (thing target))
(defmethod paint-with (target thing)
(paint thing target))
(defmethod finalize ((set flare-indexed-set:indexed-set))
(flare-indexed-set:map-set #'finalize set))
(defmethod finalize ((container container))
(finalize (objects container)))
(defmethod call-with-translation (func target (vec vec3))
(with-pushed-matrix ()
(translate vec)
(funcall func)))
(defmethod register-object-for-pass (pass (container container))
(for:for ((object over container))
(register-object-for-pass pass object)))