f5e42ff3a78c
Swap y-axis
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Thu, 19 May 2016 20:29:50 +0000 |
parents | d9b504caca3b |
children | 281946a21897 |
branches/tags | (none) |
files | src/3d/demo.lisp |
Changes
--- a/src/3d/demo.lisp Sun May 15 19:08:06 2016 +0000 +++ b/src/3d/demo.lisp Thu May 19 20:29:50 2016 +0000 @@ -27,6 +27,7 @@ (defun draw-point (screen size) (circle (vec-x screen) (vec-y screen) size)) + ;;;; Structs (defstruct (point (:constructor make-point (world &optional screen))) world screen) @@ -52,7 +53,7 @@ points)) (defsketch demo - ((width *width*) (height *height*) (y-axis :down) (title "Coding Math") + ((width *width*) (height *height*) (y-axis :up) (title "Coding Math") (mouse (cons 0 0)) ;; variables (fl 300.0)