Skip to content
Permalink
Browse files

What the fuck was this shit?

  • Loading branch information...
Shinmera committed Jun 23, 2019
1 parent 785e210 commit 2b204668e94151d5682960d12aafcf718a6df0d8
Showing with 3 additions and 3 deletions.
  1. +3 −3 geometry-shapes.lisp
@@ -19,11 +19,11 @@
(let (l r u b)
(ecase align
(:center (setf l (- (/ w 2)) r (+ (/ w 2))
u (- (/ h 2)) b (+ (/ h 2))))
b (- (/ h 2)) u (+ (/ h 2))))
(:topleft (setf l 0 r w
u 0 b h))
b (- h) u 0))
(:bottomleft (setf l 0 r w
u (- h) b 0)))
b 0 u h)))
(incf l x) (incf r x) (incf u y) (incf b y)
(with-vertex-filling ((or mesh (make-instance 'vertex-mesh :vertex-type 'textured-vertex)) :pack pack)
(vertex :position (vec r u z) :uv (vec 1.0 1.0))

0 comments on commit 2b20466

Please sign in to comment.
You can’t perform that action at this time.