You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

18 lines
336 B

;;;; coordinates.lisp
;;;; handles coordinates and sizing.
(in-package #:mkvid)
(in-readtable :qtools)
(defvar *width*)
(defvar *height*)
(defun rx (proportion)
(* proportion *width*))
(defun ry (proportion)
(* proportion *height*))
(defun make-size (&key (x 0) (y 0) (rx 0) (ry 0))
(vec (+ x (rx rx))
(+ y (ry ry))))