/[defdoc]/DefDoc/src/elements/color.lisp
ViewVC logotype

Contents of /DefDoc/src/elements/color.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Sun Dec 7 23:27:10 2003 UTC (10 years, 4 months ago) by rjain
Branch: MAIN, defdoc
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines
initial import

1 (in-package :defdoc)
2
3 (defclass named-color-spec ()
4 ((name :type string
5 :initarg :name
6 :accessor name)))
7
8 (defclass rgb-color-spec ()
9 ((red :type (real 0 1)
10 :initarg :red
11 :accessor red)
12 (green :type (real 0 1)
13 :initarg :green
14 :accessor green)
15 (blue :type (real 0 1)
16 :initarg :blue
17 :accessor blue)))
18
19 (defclass cmyk-color-spec ()
20 ((cyan :type (real 0 1)
21 :initarg :cyan
22 :accessor cyan)
23 (magenta :type (real 0 1)
24 :initarg :magenta
25 :accessor magenta)
26 (yellow :type (real 0 1)
27 :initarg :yellow
28 :accessor yellow)
29 (black :type (real 0 1)
30 :initarg :black
31 :accessor black)))
32
33 (defclass gray-color-spec ()
34 ((value :type (real 0 1)
35 :initarg :value
36 :accessor value)))

  ViewVC Help
Powered by ViewVC 1.1.5