Permalink
Browse files

Clean

  • Loading branch information...
Shinmera committed Oct 15, 2018
1 parent 6ad2136 commit e4cd9f0aa27d0f8ffe0ea8568c5257145d812857
Showing with 3 additions and 20 deletions.
  1. +2 −1 package.lisp
  2. +1 −19 workbench.lisp
@@ -475,7 +475,8 @@
#:foreign-resource
#:data-pointer
#:destructor
#:gl-resource)
#:gl-resource
#:gl-name)
;; retention.lisp
(:export
#:retained
@@ -13,24 +13,6 @@
:target :texture-cube-map
:min-filter :linear)
(defmethod update :after ((main main) tt dt)
(let ((clipmap (unit :clipmap (scene main)))
(camera (unit :camera (scene main))))
(setf (vx (location clipmap)) (vx (location camera))
(vz (location clipmap)) (vz (location camera)))
;; (setf (vy (location camera)) (+ 10 (current-height clipmap)))
))
(progn
(defmethod setup-scene ((main main) scene)
(setf (clear-color main) (vec 112/255 175/255 224/255))
;; (enter (make-instance 'skybox :texture (asset 'workbench 'skybox)) scene)
(enter (make-instance 'geometry-clipmap :name :clipmap
:map-scale (vec 1024 2048 1024)
:maps '("height" "splat")
:data-directory #p"~/simple-mountain/") scene)
(enter (make-instance 'editor-camera :name :camera
:move-speed 0.1
:location (vec -2048 2048 -2048)) scene)
(enter (make-instance 'render-pass) scene))
(defmethod setup-scene ((main main) scene))
(maybe-reload-scene))

0 comments on commit e4cd9f0

Please sign in to comment.