Re-export WITH-GRAPHICS-STATE in vectometry.
[vecto.git] / color.lisp
blob8dae4f00777ec4e8c7a83713153d5025c21ad9de
1 ;;; Copyright (c) 2007 Zachary Beane, All Rights Reserved
2 ;;;
3 ;;; Redistribution and use in source and binary forms, with or without
4 ;;; modification, are permitted provided that the following conditions
5 ;;; are met:
6 ;;;
7 ;;; * Redistributions of source code must retain the above copyright
8 ;;; notice, this list of conditions and the following disclaimer.
9 ;;;
10 ;;; * Redistributions in binary form must reproduce the above
11 ;;; copyright notice, this list of conditions and the following
12 ;;; disclaimer in the documentation and/or other materials
13 ;;; provided with the distribution.
14 ;;;
15 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
16 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
17 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
19 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
21 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
22 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
23 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
24 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
25 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 ;;;
27 ;;; $Id: color.lisp,v 1.3 2007/09/20 17:42:03 xach Exp $
29 (in-package #:vecto)
31 (defclass color () ())
33 (defclass rgba-color (color)
34 ((red
35 :initarg :red
36 :accessor red)
37 (green
38 :initarg :green
39 :accessor green)
40 (blue
41 :initarg :blue
42 :accessor blue)
43 (alpha
44 :initarg :alpha
45 :accessor alpha))
46 (:default-initargs
47 :red 0.0 :green 0.0 :blue 0.0 :alpha 1.0))
49 (defmethod copy ((color rgba-color))
50 (make-instance 'rgba-color
51 :red (red color)
52 :green (green color)
53 :blue (blue color)
54 :alpha (alpha color)))