# HG changeset patch # User Steve Losh # Date 1463689790 0 # Node ID f5e42ff3a78c755fe8855933f63fb89cac4fa646 # Parent d9b504caca3bcb9055e681043ae2cd7eb7fcfa3a Swap y-axis diff -r d9b504caca3b -r f5e42ff3a78c src/3d/demo.lisp --- 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)