/[mcclim]/mcclim/ESA/colors.lisp
ViewVC logotype

Contents of /mcclim/ESA/colors.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Wed Nov 8 01:10:16 2006 UTC (7 years, 5 months ago) by thenriksen
Branch: MAIN
CVS Tags: McCLIM-0-9-5, McCLIM-0-9-4, McCLIM-0-9-6, mcclim-0-9-4, HEAD
Committed ESA.
1 ;;; -*- Mode: Lisp; Package: clim-extensions -*-
2
3 ;;; (c) copyright 2006 by
4 ;;; Tim Moore (moore@bricoworks.com)
5
6 ;;; This library is free software; you can redistribute it and/or
7 ;;; modify it under the terms of the GNU Library General Public
8 ;;; License as published by the Free Software Foundation; either
9 ;;; version 2 of the License, or (at your option) any later version.
10 ;;;
11 ;;; This library is distributed in the hope that it will be useful,
12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;;; Library General Public License for more details.
15 ;;;
16 ;;; You should have received a copy of the GNU Library General Public
17 ;;; License along with this library; if not, write to the
18 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 ;;; Boston, MA 02111-1307 USA.
20
21 ;;; Color definitions from McCLIM that don't exist in Classic CLIM
22
23 (in-package :clim-extensions)
24
25 #-(or mcclim building-mcclim)
26 (progn
27 (defparameter +blue-violet+ (make-rgb-color 0.5412 0.1686 0.8863))
28 (defparameter +gray50+ (make-gray-color 0.4980))
29 (defparameter +gray85+ (make-gray-color 0.8510))
30 (defparameter +dark-blue+ (make-rgb-color 0.0 0.0 0.5451))
31 (defparameter +dark-green+ (make-rgb-color 0.0000 0.3922 0.0000))
32 (defparameter +dark-violet+ (make-rgb-color 0.5804 0.0000 0.8275))
33 (defparameter +maroon+ (make-rgb-color 0.6902 0.1882 0.3765))
34 (defparameter +purple+ (make-rgb-color 0.6275 0.1255 0.9412)))

  ViewVC Help
Powered by ViewVC 1.1.5