Paul Sexton avatar Paul Sexton committed 298152d

* Somehow, the byte representation of colours changed from #x00RRGGBB to #x00BBGGRR in a recent
version of libtcod. Fixed cl-tcod's encoding of colours.
* The colour definitions created from rgb.txt are now wrapped in a function, `make-rgb.txt-colours',
so they can now be re-created (if the colour database gets corrupted, etc.)

Comments (0)

Files changed (3)

 
 (defpackage :parse-rgb
   (:use :cl)
-  (:export #:parse-rgb-file))
+  (:export #:parse-rgb-file
+           #:make-rgb.txt-colours))
 
 (in-package :parse-rgb)
 
 	(format colornames ";;;; This file was generated automatically ~
 by parse-rgb.lisp~%~
 ;;;; Please do not edit directly.~%~
- (in-package :tcod)~%")
+ (in-package :tcod)~%
+ (defun make-rgb.txt-colours ()~%")
 	(labels ((string-to-float (string)
 		   (let ((i (read-from-string string)))
 		     (assert (and (typep i 'integer) (<= i 255)))
 		      (setf (aref registers 3) (substitute #\- #\space
 							   (aref registers 3))))
 		  (format colornames
-			  "(make-colour :~A ~A ~A ~A)~%"
+			  "  (make-colour :~A ~A ~A ~A)~%"
 			  (string-downcase (aref registers 3))
 			  (string-to-float (aref registers 0))
 			  (string-to-float (aref registers 1))
 			  (string-to-float (aref registers 2))))
 		  (t
-		   (format *error-output* "ignoring line ~A~%" line)))))))))))
+		   (format *error-output* "ignoring line ~A~%" line))))))
+          (format colornames "  )~%")
+          )))))

tcod-colours.lisp

 ;;;; This file was generated automatically by parse-rgb.lisp
 ;;;; Please do not edit directly.
 (in-package :tcod)
-(make-colour :snow 255 250 250)
-(make-colour :ghost-white 248 248 255)
-(make-colour :ghostwhite 248 248 255)
-(make-colour :white-smoke 245 245 245)
-(make-colour :whitesmoke 245 245 245)
-(make-colour :gainsboro 220 220 220)
-(make-colour :floral-white 255 250 240)
-(make-colour :floralwhite 255 250 240)
-(make-colour :old-lace 253 245 230)
-(make-colour :oldlace 253 245 230)
-(make-colour :linen 250 240 230)
-(make-colour :antique-white 250 235 215)
-(make-colour :antiquewhite 250 235 215)
-(make-colour :papaya-whip 255 239 213)
-(make-colour :papayawhip 255 239 213)
-(make-colour :blanched-almond 255 235 205)
-(make-colour :blanchedalmond 255 235 205)
-(make-colour :bisque 255 228 196)
-(make-colour :peach-puff 255 218 185)
-(make-colour :peachpuff 255 218 185)
-(make-colour :navajo-white 255 222 173)
-(make-colour :navajowhite 255 222 173)
-(make-colour :moccasin 255 228 181)
-(make-colour :cornsilk 255 248 220)
-(make-colour :ivory 255 255 240)
-(make-colour :lemon-chiffon 255 250 205)
-(make-colour :lemonchiffon 255 250 205)
-(make-colour :seashell 255 245 238)
-(make-colour :honeydew 240 255 240)
-(make-colour :mint-cream 245 255 250)
-(make-colour :mintcream 245 255 250)
-(make-colour :azure 240 255 255)
-(make-colour :alice-blue 240 248 255)
-(make-colour :aliceblue 240 248 255)
-(make-colour :lavender 230 230 250)
-(make-colour :lavender-blush 255 240 245)
-(make-colour :lavenderblush 255 240 245)
-(make-colour :misty-rose 255 228 225)
-(make-colour :mistyrose 255 228 225)
-(make-colour :white 255 255 255)
-(make-colour :black 0 0 0)
-(make-colour :dark-slate-gray 47 79 79)
-(make-colour :darkslategray 47 79 79)
-(make-colour :dark-slate-grey 47 79 79)
-(make-colour :darkslategrey 47 79 79)
-(make-colour :dim-gray 105 105 105)
-(make-colour :dimgray 105 105 105)
-(make-colour :dim-grey 105 105 105)
-(make-colour :dimgrey 105 105 105)
-(make-colour :slate-gray 112 128 144)
-(make-colour :slategray 112 128 144)
-(make-colour :slate-grey 112 128 144)
-(make-colour :slategrey 112 128 144)
-(make-colour :light-slate-gray 119 136 153)
-(make-colour :lightslategray 119 136 153)
-(make-colour :light-slate-grey 119 136 153)
-(make-colour :lightslategrey 119 136 153)
-(make-colour :gray 190 190 190)
-(make-colour :grey 190 190 190)
-(make-colour :light-grey 211 211 211)
-(make-colour :lightgrey 211 211 211)
-(make-colour :light-gray 211 211 211)
-(make-colour :lightgray 211 211 211)
-(make-colour :midnight-blue 25 25 112)
-(make-colour :midnightblue 25 25 112)
-(make-colour :navy 0 0 128)
-(make-colour :navy-blue 0 0 128)
-(make-colour :navyblue 0 0 128)
-(make-colour :cornflower-blue 100 149 237)
-(make-colour :cornflowerblue 100 149 237)
-(make-colour :dark-slate-blue 72 61 139)
-(make-colour :darkslateblue 72 61 139)
-(make-colour :slate-blue 106 90 205)
-(make-colour :slateblue 106 90 205)
-(make-colour :medium-slate-blue 123 104 238)
-(make-colour :mediumslateblue 123 104 238)
-(make-colour :light-slate-blue 132 112 255)
-(make-colour :lightslateblue 132 112 255)
-(make-colour :medium-blue 0 0 205)
-(make-colour :mediumblue 0 0 205)
-(make-colour :royal-blue 65 105 225)
-(make-colour :royalblue 65 105 225)
-(make-colour :blue 0 0 255)
-(make-colour :dodger-blue 30 144 255)
-(make-colour :dodgerblue 30 144 255)
-(make-colour :deep-sky-blue 0 191 255)
-(make-colour :deepskyblue 0 191 255)
-(make-colour :sky-blue 135 206 235)
-(make-colour :skyblue 135 206 235)
-(make-colour :light-sky-blue 135 206 250)
-(make-colour :lightskyblue 135 206 250)
-(make-colour :steel-blue 70 130 180)
-(make-colour :steelblue 70 130 180)
-(make-colour :light-steel-blue 176 196 222)
-(make-colour :lightsteelblue 176 196 222)
-(make-colour :light-blue 173 216 230)
-(make-colour :lightblue 173 216 230)
-(make-colour :powder-blue 176 224 230)
-(make-colour :powderblue 176 224 230)
-(make-colour :pale-turquoise 175 238 238)
-(make-colour :paleturquoise 175 238 238)
-(make-colour :dark-turquoise 0 206 209)
-(make-colour :darkturquoise 0 206 209)
-(make-colour :medium-turquoise 72 209 204)
-(make-colour :mediumturquoise 72 209 204)
-(make-colour :turquoise 64 224 208)
-(make-colour :cyan 0 255 255)
-(make-colour :light-cyan 224 255 255)
-(make-colour :lightcyan 224 255 255)
-(make-colour :cadet-blue 95 158 160)
-(make-colour :cadetblue 95 158 160)
-(make-colour :medium-aquamarine 102 205 170)
-(make-colour :mediumaquamarine 102 205 170)
-(make-colour :aquamarine 127 255 212)
-(make-colour :dark-green 0 100 0)
-(make-colour :darkgreen 0 100 0)
-(make-colour :dark-olive-green 85 107 47)
-(make-colour :darkolivegreen 85 107 47)
-(make-colour :dark-sea-green 143 188 143)
-(make-colour :darkseagreen 143 188 143)
-(make-colour :sea-green 46 139 87)
-(make-colour :seagreen 46 139 87)
-(make-colour :medium-sea-green 60 179 113)
-(make-colour :mediumseagreen 60 179 113)
-(make-colour :light-sea-green 32 178 170)
-(make-colour :lightseagreen 32 178 170)
-(make-colour :pale-green 152 251 152)
-(make-colour :palegreen 152 251 152)
-(make-colour :spring-green 0 255 127)
-(make-colour :springgreen 0 255 127)
-(make-colour :lawn-green 124 252 0)
-(make-colour :lawngreen 124 252 0)
-(make-colour :green 0 255 0)
-(make-colour :chartreuse 127 255 0)
-(make-colour :medium-spring-green 0 250 154)
-(make-colour :mediumspringgreen 0 250 154)
-(make-colour :green-yellow 173 255 47)
-(make-colour :greenyellow 173 255 47)
-(make-colour :lime-green 50 205 50)
-(make-colour :limegreen 50 205 50)
-(make-colour :yellow-green 154 205 50)
-(make-colour :yellowgreen 154 205 50)
-(make-colour :forest-green 34 139 34)
-(make-colour :forestgreen 34 139 34)
-(make-colour :olive-drab 107 142 35)
-(make-colour :olivedrab 107 142 35)
-(make-colour :dark-khaki 189 183 107)
-(make-colour :darkkhaki 189 183 107)
-(make-colour :khaki 240 230 140)
-(make-colour :pale-goldenrod 238 232 170)
-(make-colour :palegoldenrod 238 232 170)
-(make-colour :light-goldenrod-yellow 250 250 210)
-(make-colour :lightgoldenrodyellow 250 250 210)
-(make-colour :light-yellow 255 255 224)
-(make-colour :lightyellow 255 255 224)
-(make-colour :yellow 255 255 0)
-(make-colour :gold 255 215 0)
-(make-colour :light-goldenrod 238 221 130)
-(make-colour :lightgoldenrod 238 221 130)
-(make-colour :goldenrod 218 165 32)
-(make-colour :dark-goldenrod 184 134 11)
-(make-colour :darkgoldenrod 184 134 11)
-(make-colour :rosy-brown 188 143 143)
-(make-colour :rosybrown 188 143 143)
-(make-colour :indian-red 205 92 92)
-(make-colour :indianred 205 92 92)
-(make-colour :saddle-brown 139 69 19)
-(make-colour :saddlebrown 139 69 19)
-(make-colour :sienna 160 82 45)
-(make-colour :peru 205 133 63)
-(make-colour :burlywood 222 184 135)
-(make-colour :beige 245 245 220)
-(make-colour :wheat 245 222 179)
-(make-colour :sandy-brown 244 164 96)
-(make-colour :sandybrown 244 164 96)
-(make-colour :tan 210 180 140)
-(make-colour :chocolate 210 105 30)
-(make-colour :firebrick 178 34 34)
-(make-colour :brown 165 42 42)
-(make-colour :dark-salmon 233 150 122)
-(make-colour :darksalmon 233 150 122)
-(make-colour :salmon 250 128 114)
-(make-colour :light-salmon 255 160 122)
-(make-colour :lightsalmon 255 160 122)
-(make-colour :orange 255 165 0)
-(make-colour :dark-orange 255 140 0)
-(make-colour :darkorange 255 140 0)
-(make-colour :coral 255 127 80)
-(make-colour :light-coral 240 128 128)
-(make-colour :lightcoral 240 128 128)
-(make-colour :tomato 255 99 71)
-(make-colour :orange-red 255 69 0)
-(make-colour :orangered 255 69 0)
-(make-colour :red 255 0 0)
-(make-colour :hot-pink 255 105 180)
-(make-colour :hotpink 255 105 180)
-(make-colour :deep-pink 255 20 147)
-(make-colour :deeppink 255 20 147)
-(make-colour :pink 255 192 203)
-(make-colour :light-pink 255 182 193)
-(make-colour :lightpink 255 182 193)
-(make-colour :pale-violet-red 219 112 147)
-(make-colour :palevioletred 219 112 147)
-(make-colour :maroon 176 48 96)
-(make-colour :medium-violet-red 199 21 133)
-(make-colour :mediumvioletred 199 21 133)
-(make-colour :violet-red 208 32 144)
-(make-colour :violetred 208 32 144)
-(make-colour :magenta 255 0 255)
-(make-colour :violet 238 130 238)
-(make-colour :plum 221 160 221)
-(make-colour :orchid 218 112 214)
-(make-colour :medium-orchid 186 85 211)
-(make-colour :mediumorchid 186 85 211)
-(make-colour :dark-orchid 153 50 204)
-(make-colour :darkorchid 153 50 204)
-(make-colour :dark-violet 148 0 211)
-(make-colour :darkviolet 148 0 211)
-(make-colour :blue-violet 138 43 226)
-(make-colour :blueviolet 138 43 226)
-(make-colour :purple 160 32 240)
-(make-colour :medium-purple 147 112 219)
-(make-colour :mediumpurple 147 112 219)
-(make-colour :thistle 216 191 216)
-(make-colour :snow1 255 250 250)
-(make-colour :snow2 238 233 233)
-(make-colour :snow3 205 201 201)
-(make-colour :snow4 139 137 137)
-(make-colour :seashell1 255 245 238)
-(make-colour :seashell2 238 229 222)
-(make-colour :seashell3 205 197 191)
-(make-colour :seashell4 139 134 130)
-(make-colour :antiquewhite1 255 239 219)
-(make-colour :antiquewhite2 238 223 204)
-(make-colour :antiquewhite3 205 192 176)
-(make-colour :antiquewhite4 139 131 120)
-(make-colour :bisque1 255 228 196)
-(make-colour :bisque2 238 213 183)
-(make-colour :bisque3 205 183 158)
-(make-colour :bisque4 139 125 107)
-(make-colour :peachpuff1 255 218 185)
-(make-colour :peachpuff2 238 203 173)
-(make-colour :peachpuff3 205 175 149)
-(make-colour :peachpuff4 139 119 101)
-(make-colour :navajowhite1 255 222 173)
-(make-colour :navajowhite2 238 207 161)
-(make-colour :navajowhite3 205 179 139)
-(make-colour :navajowhite4 139 121 94)
-(make-colour :lemonchiffon1 255 250 205)
-(make-colour :lemonchiffon2 238 233 191)
-(make-colour :lemonchiffon3 205 201 165)
-(make-colour :lemonchiffon4 139 137 112)
-(make-colour :cornsilk1 255 248 220)
-(make-colour :cornsilk2 238 232 205)
-(make-colour :cornsilk3 205 200 177)
-(make-colour :cornsilk4 139 136 120)
-(make-colour :ivory1 255 255 240)
-(make-colour :ivory2 238 238 224)
-(make-colour :ivory3 205 205 193)
-(make-colour :ivory4 139 139 131)
-(make-colour :honeydew1 240 255 240)
-(make-colour :honeydew2 224 238 224)
-(make-colour :honeydew3 193 205 193)
-(make-colour :honeydew4 131 139 131)
-(make-colour :lavenderblush1 255 240 245)
-(make-colour :lavenderblush2 238 224 229)
-(make-colour :lavenderblush3 205 193 197)
-(make-colour :lavenderblush4 139 131 134)
-(make-colour :mistyrose1 255 228 225)
-(make-colour :mistyrose2 238 213 210)
-(make-colour :mistyrose3 205 183 181)
-(make-colour :mistyrose4 139 125 123)
-(make-colour :azure1 240 255 255)
-(make-colour :azure2 224 238 238)
-(make-colour :azure3 193 205 205)
-(make-colour :azure4 131 139 139)
-(make-colour :slateblue1 131 111 255)
-(make-colour :slateblue2 122 103 238)
-(make-colour :slateblue3 105 89 205)
-(make-colour :slateblue4 71 60 139)
-(make-colour :royalblue1 72 118 255)
-(make-colour :royalblue2 67 110 238)
-(make-colour :royalblue3 58 95 205)
-(make-colour :royalblue4 39 64 139)
-(make-colour :blue1 0 0 255)
-(make-colour :blue2 0 0 238)
-(make-colour :blue3 0 0 205)
-(make-colour :blue4 0 0 139)
-(make-colour :dodgerblue1 30 144 255)
-(make-colour :dodgerblue2 28 134 238)
-(make-colour :dodgerblue3 24 116 205)
-(make-colour :dodgerblue4 16 78 139)
-(make-colour :steelblue1 99 184 255)
-(make-colour :steelblue2 92 172 238)
-(make-colour :steelblue3 79 148 205)
-(make-colour :steelblue4 54 100 139)
-(make-colour :deepskyblue1 0 191 255)
-(make-colour :deepskyblue2 0 178 238)
-(make-colour :deepskyblue3 0 154 205)
-(make-colour :deepskyblue4 0 104 139)
-(make-colour :skyblue1 135 206 255)
-(make-colour :skyblue2 126 192 238)
-(make-colour :skyblue3 108 166 205)
-(make-colour :skyblue4 74 112 139)
-(make-colour :lightskyblue1 176 226 255)
-(make-colour :lightskyblue2 164 211 238)
-(make-colour :lightskyblue3 141 182 205)
-(make-colour :lightskyblue4 96 123 139)
-(make-colour :slategray1 198 226 255)
-(make-colour :slategray2 185 211 238)
-(make-colour :slategray3 159 182 205)
-(make-colour :slategray4 108 123 139)
-(make-colour :lightsteelblue1 202 225 255)
-(make-colour :lightsteelblue2 188 210 238)
-(make-colour :lightsteelblue3 162 181 205)
-(make-colour :lightsteelblue4 110 123 139)
-(make-colour :lightblue1 191 239 255)
-(make-colour :lightblue2 178 223 238)
-(make-colour :lightblue3 154 192 205)
-(make-colour :lightblue4 104 131 139)
-(make-colour :lightcyan1 224 255 255)
-(make-colour :lightcyan2 209 238 238)
-(make-colour :lightcyan3 180 205 205)
-(make-colour :lightcyan4 122 139 139)
-(make-colour :paleturquoise1 187 255 255)
-(make-colour :paleturquoise2 174 238 238)
-(make-colour :paleturquoise3 150 205 205)
-(make-colour :paleturquoise4 102 139 139)
-(make-colour :cadetblue1 152 245 255)
-(make-colour :cadetblue2 142 229 238)
-(make-colour :cadetblue3 122 197 205)
-(make-colour :cadetblue4 83 134 139)
-(make-colour :turquoise1 0 245 255)
-(make-colour :turquoise2 0 229 238)
-(make-colour :turquoise3 0 197 205)
-(make-colour :turquoise4 0 134 139)
-(make-colour :cyan1 0 255 255)
-(make-colour :cyan2 0 238 238)
-(make-colour :cyan3 0 205 205)
-(make-colour :cyan4 0 139 139)
-(make-colour :darkslategray1 151 255 255)
-(make-colour :darkslategray2 141 238 238)
-(make-colour :darkslategray3 121 205 205)
-(make-colour :darkslategray4 82 139 139)
-(make-colour :aquamarine1 127 255 212)
-(make-colour :aquamarine2 118 238 198)
-(make-colour :aquamarine3 102 205 170)
-(make-colour :aquamarine4 69 139 116)
-(make-colour :darkseagreen1 193 255 193)
-(make-colour :darkseagreen2 180 238 180)
-(make-colour :darkseagreen3 155 205 155)
-(make-colour :darkseagreen4 105 139 105)
-(make-colour :seagreen1 84 255 159)
-(make-colour :seagreen2 78 238 148)
-(make-colour :seagreen3 67 205 128)
-(make-colour :seagreen4 46 139 87)
-(make-colour :palegreen1 154 255 154)
-(make-colour :palegreen2 144 238 144)
-(make-colour :palegreen3 124 205 124)
-(make-colour :palegreen4 84 139 84)
-(make-colour :springgreen1 0 255 127)
-(make-colour :springgreen2 0 238 118)
-(make-colour :springgreen3 0 205 102)
-(make-colour :springgreen4 0 139 69)
-(make-colour :green1 0 255 0)
-(make-colour :green2 0 238 0)
-(make-colour :green3 0 205 0)
-(make-colour :green4 0 139 0)
-(make-colour :chartreuse1 127 255 0)
-(make-colour :chartreuse2 118 238 0)
-(make-colour :chartreuse3 102 205 0)
-(make-colour :chartreuse4 69 139 0)
-(make-colour :olivedrab1 192 255 62)
-(make-colour :olivedrab2 179 238 58)
-(make-colour :olivedrab3 154 205 50)
-(make-colour :olivedrab4 105 139 34)
-(make-colour :darkolivegreen1 202 255 112)
-(make-colour :darkolivegreen2 188 238 104)
-(make-colour :darkolivegreen3 162 205 90)
-(make-colour :darkolivegreen4 110 139 61)
-(make-colour :khaki1 255 246 143)
-(make-colour :khaki2 238 230 133)
-(make-colour :khaki3 205 198 115)
-(make-colour :khaki4 139 134 78)
-(make-colour :lightgoldenrod1 255 236 139)
-(make-colour :lightgoldenrod2 238 220 130)
-(make-colour :lightgoldenrod3 205 190 112)
-(make-colour :lightgoldenrod4 139 129 76)
-(make-colour :lightyellow1 255 255 224)
-(make-colour :lightyellow2 238 238 209)
-(make-colour :lightyellow3 205 205 180)
-(make-colour :lightyellow4 139 139 122)
-(make-colour :yellow1 255 255 0)
-(make-colour :yellow2 238 238 0)
-(make-colour :yellow3 205 205 0)
-(make-colour :yellow4 139 139 0)
-(make-colour :gold1 255 215 0)
-(make-colour :gold2 238 201 0)
-(make-colour :gold3 205 173 0)
-(make-colour :gold4 139 117 0)
-(make-colour :goldenrod1 255 193 37)
-(make-colour :goldenrod2 238 180 34)
-(make-colour :goldenrod3 205 155 29)
-(make-colour :goldenrod4 139 105 20)
-(make-colour :darkgoldenrod1 255 185 15)
-(make-colour :darkgoldenrod2 238 173 14)
-(make-colour :darkgoldenrod3 205 149 12)
-(make-colour :darkgoldenrod4 139 101 8)
-(make-colour :rosybrown1 255 193 193)
-(make-colour :rosybrown2 238 180 180)
-(make-colour :rosybrown3 205 155 155)
-(make-colour :rosybrown4 139 105 105)
-(make-colour :indianred1 255 106 106)
-(make-colour :indianred2 238 99 99)
-(make-colour :indianred3 205 85 85)
-(make-colour :indianred4 139 58 58)
-(make-colour :sienna1 255 130 71)
-(make-colour :sienna2 238 121 66)
-(make-colour :sienna3 205 104 57)
-(make-colour :sienna4 139 71 38)
-(make-colour :burlywood1 255 211 155)
-(make-colour :burlywood2 238 197 145)
-(make-colour :burlywood3 205 170 125)
-(make-colour :burlywood4 139 115 85)
-(make-colour :wheat1 255 231 186)
-(make-colour :wheat2 238 216 174)
-(make-colour :wheat3 205 186 150)
-(make-colour :wheat4 139 126 102)
-(make-colour :tan1 255 165 79)
-(make-colour :tan2 238 154 73)
-(make-colour :tan3 205 133 63)
-(make-colour :tan4 139 90 43)
-(make-colour :chocolate1 255 127 36)
-(make-colour :chocolate2 238 118 33)
-(make-colour :chocolate3 205 102 29)
-(make-colour :chocolate4 139 69 19)
-(make-colour :firebrick1 255 48 48)
-(make-colour :firebrick2 238 44 44)
-(make-colour :firebrick3 205 38 38)
-(make-colour :firebrick4 139 26 26)
-(make-colour :brown1 255 64 64)
-(make-colour :brown2 238 59 59)
-(make-colour :brown3 205 51 51)
-(make-colour :brown4 139 35 35)
-(make-colour :salmon1 255 140 105)
-(make-colour :salmon2 238 130 98)
-(make-colour :salmon3 205 112 84)
-(make-colour :salmon4 139 76 57)
-(make-colour :lightsalmon1 255 160 122)
-(make-colour :lightsalmon2 238 149 114)
-(make-colour :lightsalmon3 205 129 98)
-(make-colour :lightsalmon4 139 87 66)
-(make-colour :orange1 255 165 0)
-(make-colour :orange2 238 154 0)
-(make-colour :orange3 205 133 0)
-(make-colour :orange4 139 90 0)
-(make-colour :darkorange1 255 127 0)
-(make-colour :darkorange2 238 118 0)
-(make-colour :darkorange3 205 102 0)
-(make-colour :darkorange4 139 69 0)
-(make-colour :coral1 255 114 86)
-(make-colour :coral2 238 106 80)
-(make-colour :coral3 205 91 69)
-(make-colour :coral4 139 62 47)
-(make-colour :tomato1 255 99 71)
-(make-colour :tomato2 238 92 66)
-(make-colour :tomato3 205 79 57)
-(make-colour :tomato4 139 54 38)
-(make-colour :orangered1 255 69 0)
-(make-colour :orangered2 238 64 0)
-(make-colour :orangered3 205 55 0)
-(make-colour :orangered4 139 37 0)
-(make-colour :red1 255 0 0)
-(make-colour :red2 238 0 0)
-(make-colour :red3 205 0 0)
-(make-colour :red4 139 0 0)
-(make-colour :debianred 215 7 81)
-(make-colour :deeppink1 255 20 147)
-(make-colour :deeppink2 238 18 137)
-(make-colour :deeppink3 205 16 118)
-(make-colour :deeppink4 139 10 80)
-(make-colour :hotpink1 255 110 180)
-(make-colour :hotpink2 238 106 167)
-(make-colour :hotpink3 205 96 144)
-(make-colour :hotpink4 139 58 98)
-(make-colour :pink1 255 181 197)
-(make-colour :pink2 238 169 184)
-(make-colour :pink3 205 145 158)
-(make-colour :pink4 139 99 108)
-(make-colour :lightpink1 255 174 185)
-(make-colour :lightpink2 238 162 173)
-(make-colour :lightpink3 205 140 149)
-(make-colour :lightpink4 139 95 101)
-(make-colour :palevioletred1 255 130 171)
-(make-colour :palevioletred2 238 121 159)
-(make-colour :palevioletred3 205 104 137)
-(make-colour :palevioletred4 139 71 93)
-(make-colour :maroon1 255 52 179)
-(make-colour :maroon2 238 48 167)
-(make-colour :maroon3 205 41 144)
-(make-colour :maroon4 139 28 98)
-(make-colour :violetred1 255 62 150)
-(make-colour :violetred2 238 58 140)
-(make-colour :violetred3 205 50 120)
-(make-colour :violetred4 139 34 82)
-(make-colour :magenta1 255 0 255)
-(make-colour :magenta2 238 0 238)
-(make-colour :magenta3 205 0 205)
-(make-colour :magenta4 139 0 139)
-(make-colour :orchid1 255 131 250)
-(make-colour :orchid2 238 122 233)
-(make-colour :orchid3 205 105 201)
-(make-colour :orchid4 139 71 137)
-(make-colour :plum1 255 187 255)
-(make-colour :plum2 238 174 238)
-(make-colour :plum3 205 150 205)
-(make-colour :plum4 139 102 139)
-(make-colour :mediumorchid1 224 102 255)
-(make-colour :mediumorchid2 209 95 238)
-(make-colour :mediumorchid3 180 82 205)
-(make-colour :mediumorchid4 122 55 139)
-(make-colour :darkorchid1 191 62 255)
-(make-colour :darkorchid2 178 58 238)
-(make-colour :darkorchid3 154 50 205)
-(make-colour :darkorchid4 104 34 139)
-(make-colour :purple1 155 48 255)
-(make-colour :purple2 145 44 238)
-(make-colour :purple3 125 38 205)
-(make-colour :purple4 85 26 139)
-(make-colour :mediumpurple1 171 130 255)
-(make-colour :mediumpurple2 159 121 238)
-(make-colour :mediumpurple3 137 104 205)
-(make-colour :mediumpurple4 93 71 139)
-(make-colour :thistle1 255 225 255)
-(make-colour :thistle2 238 210 238)
-(make-colour :thistle3 205 181 205)
-(make-colour :thistle4 139 123 139)
-(make-colour :gray0 0 0 0)
-(make-colour :grey0 0 0 0)
-(make-colour :gray1 3 3 3)
-(make-colour :grey1 3 3 3)
-(make-colour :gray2 5 5 5)
-(make-colour :grey2 5 5 5)
-(make-colour :gray3 8 8 8)
-(make-colour :grey3 8 8 8)
-(make-colour :gray4 10 10 10)
-(make-colour :grey4 10 10 10)
-(make-colour :gray5 13 13 13)
-(make-colour :grey5 13 13 13)
-(make-colour :gray6 15 15 15)
-(make-colour :grey6 15 15 15)
-(make-colour :gray7 18 18 18)
-(make-colour :grey7 18 18 18)
-(make-colour :gray8 20 20 20)
-(make-colour :grey8 20 20 20)
-(make-colour :gray9 23 23 23)
-(make-colour :grey9 23 23 23)
-(make-colour :gray10 26 26 26)
-(make-colour :grey10 26 26 26)
-(make-colour :gray11 28 28 28)
-(make-colour :grey11 28 28 28)
-(make-colour :gray12 31 31 31)
-(make-colour :grey12 31 31 31)
-(make-colour :gray13 33 33 33)
-(make-colour :grey13 33 33 33)
-(make-colour :gray14 36 36 36)
-(make-colour :grey14 36 36 36)
-(make-colour :gray15 38 38 38)
-(make-colour :grey15 38 38 38)
-(make-colour :gray16 41 41 41)
-(make-colour :grey16 41 41 41)
-(make-colour :gray17 43 43 43)
-(make-colour :grey17 43 43 43)
-(make-colour :gray18 46 46 46)
-(make-colour :grey18 46 46 46)
-(make-colour :gray19 48 48 48)
-(make-colour :grey19 48 48 48)
-(make-colour :gray20 51 51 51)
-(make-colour :grey20 51 51 51)
-(make-colour :gray21 54 54 54)
-(make-colour :grey21 54 54 54)
-(make-colour :gray22 56 56 56)
-(make-colour :grey22 56 56 56)
-(make-colour :gray23 59 59 59)
-(make-colour :grey23 59 59 59)
-(make-colour :gray24 61 61 61)
-(make-colour :grey24 61 61 61)
-(make-colour :gray25 64 64 64)
-(make-colour :grey25 64 64 64)
-(make-colour :gray26 66 66 66)
-(make-colour :grey26 66 66 66)
-(make-colour :gray27 69 69 69)
-(make-colour :grey27 69 69 69)
-(make-colour :gray28 71 71 71)
-(make-colour :grey28 71 71 71)
-(make-colour :gray29 74 74 74)
-(make-colour :grey29 74 74 74)
-(make-colour :gray30 77 77 77)
-(make-colour :grey30 77 77 77)
-(make-colour :gray31 79 79 79)
-(make-colour :grey31 79 79 79)
-(make-colour :gray32 82 82 82)
-(make-colour :grey32 82 82 82)
-(make-colour :gray33 84 84 84)
-(make-colour :grey33 84 84 84)
-(make-colour :gray34 87 87 87)
-(make-colour :grey34 87 87 87)
-(make-colour :gray35 89 89 89)
-(make-colour :grey35 89 89 89)
-(make-colour :gray36 92 92 92)
-(make-colour :grey36 92 92 92)
-(make-colour :gray37 94 94 94)
-(make-colour :grey37 94 94 94)
-(make-colour :gray38 97 97 97)
-(make-colour :grey38 97 97 97)
-(make-colour :gray39 99 99 99)
-(make-colour :grey39 99 99 99)
-(make-colour :gray40 102 102 102)
-(make-colour :grey40 102 102 102)
-(make-colour :gray41 105 105 105)
-(make-colour :grey41 105 105 105)
-(make-colour :gray42 107 107 107)
-(make-colour :grey42 107 107 107)
-(make-colour :gray43 110 110 110)
-(make-colour :grey43 110 110 110)
-(make-colour :gray44 112 112 112)
-(make-colour :grey44 112 112 112)
-(make-colour :gray45 115 115 115)
-(make-colour :grey45 115 115 115)
-(make-colour :gray46 117 117 117)
-(make-colour :grey46 117 117 117)
-(make-colour :gray47 120 120 120)
-(make-colour :grey47 120 120 120)
-(make-colour :gray48 122 122 122)
-(make-colour :grey48 122 122 122)
-(make-colour :gray49 125 125 125)
-(make-colour :grey49 125 125 125)
-(make-colour :gray50 127 127 127)
-(make-colour :grey50 127 127 127)
-(make-colour :gray51 130 130 130)
-(make-colour :grey51 130 130 130)
-(make-colour :gray52 133 133 133)
-(make-colour :grey52 133 133 133)
-(make-colour :gray53 135 135 135)
-(make-colour :grey53 135 135 135)
-(make-colour :gray54 138 138 138)
-(make-colour :grey54 138 138 138)
-(make-colour :gray55 140 140 140)
-(make-colour :grey55 140 140 140)
-(make-colour :gray56 143 143 143)
-(make-colour :grey56 143 143 143)
-(make-colour :gray57 145 145 145)
-(make-colour :grey57 145 145 145)
-(make-colour :gray58 148 148 148)
-(make-colour :grey58 148 148 148)
-(make-colour :gray59 150 150 150)
-(make-colour :grey59 150 150 150)
-(make-colour :gray60 153 153 153)
-(make-colour :grey60 153 153 153)
-(make-colour :gray61 156 156 156)
-(make-colour :grey61 156 156 156)
-(make-colour :gray62 158 158 158)
-(make-colour :grey62 158 158 158)
-(make-colour :gray63 161 161 161)
-(make-colour :grey63 161 161 161)
-(make-colour :gray64 163 163 163)
-(make-colour :grey64 163 163 163)
-(make-colour :gray65 166 166 166)
-(make-colour :grey65 166 166 166)
-(make-colour :gray66 168 168 168)
-(make-colour :grey66 168 168 168)
-(make-colour :gray67 171 171 171)
-(make-colour :grey67 171 171 171)
-(make-colour :gray68 173 173 173)
-(make-colour :grey68 173 173 173)
-(make-colour :gray69 176 176 176)
-(make-colour :grey69 176 176 176)
-(make-colour :gray70 179 179 179)
-(make-colour :grey70 179 179 179)
-(make-colour :gray71 181 181 181)
-(make-colour :grey71 181 181 181)
-(make-colour :gray72 184 184 184)
-(make-colour :grey72 184 184 184)
-(make-colour :gray73 186 186 186)
-(make-colour :grey73 186 186 186)
-(make-colour :gray74 189 189 189)
-(make-colour :grey74 189 189 189)
-(make-colour :gray75 191 191 191)
-(make-colour :grey75 191 191 191)
-(make-colour :gray76 194 194 194)
-(make-colour :grey76 194 194 194)
-(make-colour :gray77 196 196 196)
-(make-colour :grey77 196 196 196)
-(make-colour :gray78 199 199 199)
-(make-colour :grey78 199 199 199)
-(make-colour :gray79 201 201 201)
-(make-colour :grey79 201 201 201)
-(make-colour :gray80 204 204 204)
-(make-colour :grey80 204 204 204)
-(make-colour :gray81 207 207 207)
-(make-colour :grey81 207 207 207)
-(make-colour :gray82 209 209 209)
-(make-colour :grey82 209 209 209)
-(make-colour :gray83 212 212 212)
-(make-colour :grey83 212 212 212)
-(make-colour :gray84 214 214 214)
-(make-colour :grey84 214 214 214)
-(make-colour :gray85 217 217 217)
-(make-colour :grey85 217 217 217)
-(make-colour :gray86 219 219 219)
-(make-colour :grey86 219 219 219)
-(make-colour :gray87 222 222 222)
-(make-colour :grey87 222 222 222)
-(make-colour :gray88 224 224 224)
-(make-colour :grey88 224 224 224)
-(make-colour :gray89 227 227 227)
-(make-colour :grey89 227 227 227)
-(make-colour :gray90 229 229 229)
-(make-colour :grey90 229 229 229)
-(make-colour :gray91 232 232 232)
-(make-colour :grey91 232 232 232)
-(make-colour :gray92 235 235 235)
-(make-colour :grey92 235 235 235)
-(make-colour :gray93 237 237 237)
-(make-colour :grey93 237 237 237)
-(make-colour :gray94 240 240 240)
-(make-colour :grey94 240 240 240)
-(make-colour :gray95 242 242 242)
-(make-colour :grey95 242 242 242)
-(make-colour :gray96 245 245 245)
-(make-colour :grey96 245 245 245)
-(make-colour :gray97 247 247 247)
-(make-colour :grey97 247 247 247)
-(make-colour :gray98 250 250 250)
-(make-colour :grey98 250 250 250)
-(make-colour :gray99 252 252 252)
-(make-colour :grey99 252 252 252)
-(make-colour :gray100 255 255 255)
-(make-colour :grey100 255 255 255)
-(make-colour :dark-grey 169 169 169)
-(make-colour :darkgrey 169 169 169)
-(make-colour :dark-gray 169 169 169)
-(make-colour :darkgray 169 169 169)
-(make-colour :dark-blue 0 0 139)
-(make-colour :darkblue 0 0 139)
-(make-colour :dark-cyan 0 139 139)
-(make-colour :darkcyan 0 139 139)
-(make-colour :dark-magenta 139 0 139)
-(make-colour :darkmagenta 139 0 139)
-(make-colour :dark-red 139 0 0)
-(make-colour :darkred 139 0 0)
-(make-colour :light-green 144 238 144)
-(make-colour :lightgreen 144 238 144)
+
+ (defun make-rgb.txt-colours ()
+  (make-colour :snow 255 250 250)
+  (make-colour :ghost-white 248 248 255)
+  (make-colour :ghostwhite 248 248 255)
+  (make-colour :white-smoke 245 245 245)
+  (make-colour :whitesmoke 245 245 245)
+  (make-colour :gainsboro 220 220 220)
+  (make-colour :floral-white 255 250 240)
+  (make-colour :floralwhite 255 250 240)
+  (make-colour :old-lace 253 245 230)
+  (make-colour :oldlace 253 245 230)
+  (make-colour :linen 250 240 230)
+  (make-colour :antique-white 250 235 215)
+  (make-colour :antiquewhite 250 235 215)
+  (make-colour :papaya-whip 255 239 213)
+  (make-colour :papayawhip 255 239 213)
+  (make-colour :blanched-almond 255 235 205)
+  (make-colour :blanchedalmond 255 235 205)
+  (make-colour :bisque 255 228 196)
+  (make-colour :peach-puff 255 218 185)
+  (make-colour :peachpuff 255 218 185)
+  (make-colour :navajo-white 255 222 173)
+  (make-colour :navajowhite 255 222 173)
+  (make-colour :moccasin 255 228 181)
+  (make-colour :cornsilk 255 248 220)
+  (make-colour :ivory 255 255 240)
+  (make-colour :lemon-chiffon 255 250 205)
+  (make-colour :lemonchiffon 255 250 205)
+  (make-colour :seashell 255 245 238)
+  (make-colour :honeydew 240 255 240)
+  (make-colour :mint-cream 245 255 250)
+  (make-colour :mintcream 245 255 250)
+  (make-colour :azure 240 255 255)
+  (make-colour :alice-blue 240 248 255)
+  (make-colour :aliceblue 240 248 255)
+  (make-colour :lavender 230 230 250)
+  (make-colour :lavender-blush 255 240 245)
+  (make-colour :lavenderblush 255 240 245)
+  (make-colour :misty-rose 255 228 225)
+  (make-colour :mistyrose 255 228 225)
+  (make-colour :white 255 255 255)
+  (make-colour :black 0 0 0)
+  (make-colour :dark-slate-gray 47 79 79)
+  (make-colour :darkslategray 47 79 79)
+  (make-colour :dark-slate-grey 47 79 79)
+  (make-colour :darkslategrey 47 79 79)
+  (make-colour :dim-gray 105 105 105)
+  (make-colour :dimgray 105 105 105)
+  (make-colour :dim-grey 105 105 105)
+  (make-colour :dimgrey 105 105 105)
+  (make-colour :slate-gray 112 128 144)
+  (make-colour :slategray 112 128 144)
+  (make-colour :slate-grey 112 128 144)
+  (make-colour :slategrey 112 128 144)
+  (make-colour :light-slate-gray 119 136 153)
+  (make-colour :lightslategray 119 136 153)
+  (make-colour :light-slate-grey 119 136 153)
+  (make-colour :lightslategrey 119 136 153)
+  (make-colour :gray 190 190 190)
+  (make-colour :grey 190 190 190)
+  (make-colour :light-grey 211 211 211)
+  (make-colour :lightgrey 211 211 211)
+  (make-colour :light-gray 211 211 211)
+  (make-colour :lightgray 211 211 211)
+  (make-colour :midnight-blue 25 25 112)
+  (make-colour :midnightblue 25 25 112)
+  (make-colour :navy 0 0 128)
+  (make-colour :navy-blue 0 0 128)
+  (make-colour :navyblue 0 0 128)
+  (make-colour :cornflower-blue 100 149 237)
+  (make-colour :cornflowerblue 100 149 237)
+  (make-colour :dark-slate-blue 72 61 139)
+  (make-colour :darkslateblue 72 61 139)
+  (make-colour :slate-blue 106 90 205)
+  (make-colour :slateblue 106 90 205)
+  (make-colour :medium-slate-blue 123 104 238)
+  (make-colour :mediumslateblue 123 104 238)
+  (make-colour :light-slate-blue 132 112 255)
+  (make-colour :lightslateblue 132 112 255)
+  (make-colour :medium-blue 0 0 205)
+  (make-colour :mediumblue 0 0 205)
+  (make-colour :royal-blue 65 105 225)
+  (make-colour :royalblue 65 105 225)
+  (make-colour :blue 0 0 255)
+  (make-colour :dodger-blue 30 144 255)
+  (make-colour :dodgerblue 30 144 255)
+  (make-colour :deep-sky-blue 0 191 255)
+  (make-colour :deepskyblue 0 191 255)
+  (make-colour :sky-blue 135 206 235)
+  (make-colour :skyblue 135 206 235)
+  (make-colour :light-sky-blue 135 206 250)
+  (make-colour :lightskyblue 135 206 250)
+  (make-colour :steel-blue 70 130 180)
+  (make-colour :steelblue 70 130 180)
+  (make-colour :light-steel-blue 176 196 222)
+  (make-colour :lightsteelblue 176 196 222)
+  (make-colour :light-blue 173 216 230)
+  (make-colour :lightblue 173 216 230)
+  (make-colour :powder-blue 176 224 230)
+  (make-colour :powderblue 176 224 230)
+  (make-colour :pale-turquoise 175 238 238)
+  (make-colour :paleturquoise 175 238 238)
+  (make-colour :dark-turquoise 0 206 209)
+  (make-colour :darkturquoise 0 206 209)
+  (make-colour :medium-turquoise 72 209 204)
+  (make-colour :mediumturquoise 72 209 204)
+  (make-colour :turquoise 64 224 208)
+  (make-colour :cyan 0 255 255)
+  (make-colour :light-cyan 224 255 255)
+  (make-colour :lightcyan 224 255 255)
+  (make-colour :cadet-blue 95 158 160)
+  (make-colour :cadetblue 95 158 160)
+  (make-colour :medium-aquamarine 102 205 170)
+  (make-colour :mediumaquamarine 102 205 170)
+  (make-colour :aquamarine 127 255 212)
+  (make-colour :dark-green 0 100 0)
+  (make-colour :darkgreen 0 100 0)
+  (make-colour :dark-olive-green 85 107 47)
+  (make-colour :darkolivegreen 85 107 47)
+  (make-colour :dark-sea-green 143 188 143)
+  (make-colour :darkseagreen 143 188 143)
+  (make-colour :sea-green 46 139 87)
+  (make-colour :seagreen 46 139 87)
+  (make-colour :medium-sea-green 60 179 113)
+  (make-colour :mediumseagreen 60 179 113)
+  (make-colour :light-sea-green 32 178 170)
+  (make-colour :lightseagreen 32 178 170)
+  (make-colour :pale-green 152 251 152)
+  (make-colour :palegreen 152 251 152)
+  (make-colour :spring-green 0 255 127)
+  (make-colour :springgreen 0 255 127)
+  (make-colour :lawn-green 124 252 0)
+  (make-colour :lawngreen 124 252 0)
+  (make-colour :green 0 255 0)
+  (make-colour :chartreuse 127 255 0)
+  (make-colour :medium-spring-green 0 250 154)
+  (make-colour :mediumspringgreen 0 250 154)
+  (make-colour :green-yellow 173 255 47)
+  (make-colour :greenyellow 173 255 47)
+  (make-colour :lime-green 50 205 50)
+  (make-colour :limegreen 50 205 50)
+  (make-colour :yellow-green 154 205 50)
+  (make-colour :yellowgreen 154 205 50)
+  (make-colour :forest-green 34 139 34)
+  (make-colour :forestgreen 34 139 34)
+  (make-colour :olive-drab 107 142 35)
+  (make-colour :olivedrab 107 142 35)
+  (make-colour :dark-khaki 189 183 107)
+  (make-colour :darkkhaki 189 183 107)
+  (make-colour :khaki 240 230 140)
+  (make-colour :pale-goldenrod 238 232 170)
+  (make-colour :palegoldenrod 238 232 170)
+  (make-colour :light-goldenrod-yellow 250 250 210)
+  (make-colour :lightgoldenrodyellow 250 250 210)
+  (make-colour :light-yellow 255 255 224)
+  (make-colour :lightyellow 255 255 224)
+  (make-colour :yellow 255 255 0)
+  (make-colour :gold 255 215 0)
+  (make-colour :light-goldenrod 238 221 130)
+  (make-colour :lightgoldenrod 238 221 130)
+  (make-colour :goldenrod 218 165 32)
+  (make-colour :dark-goldenrod 184 134 11)
+  (make-colour :darkgoldenrod 184 134 11)
+  (make-colour :rosy-brown 188 143 143)
+  (make-colour :rosybrown 188 143 143)
+  (make-colour :indian-red 205 92 92)
+  (make-colour :indianred 205 92 92)
+  (make-colour :saddle-brown 139 69 19)
+  (make-colour :saddlebrown 139 69 19)
+  (make-colour :sienna 160 82 45)
+  (make-colour :peru 205 133 63)
+  (make-colour :burlywood 222 184 135)
+  (make-colour :beige 245 245 220)
+  (make-colour :wheat 245 222 179)
+  (make-colour :sandy-brown 244 164 96)
+  (make-colour :sandybrown 244 164 96)
+  (make-colour :tan 210 180 140)
+  (make-colour :chocolate 210 105 30)
+  (make-colour :firebrick 178 34 34)
+  (make-colour :brown 165 42 42)
+  (make-colour :dark-salmon 233 150 122)
+  (make-colour :darksalmon 233 150 122)
+  (make-colour :salmon 250 128 114)
+  (make-colour :light-salmon 255 160 122)
+  (make-colour :lightsalmon 255 160 122)
+  (make-colour :orange 255 165 0)
+  (make-colour :dark-orange 255 140 0)
+  (make-colour :darkorange 255 140 0)
+  (make-colour :coral 255 127 80)
+  (make-colour :light-coral 240 128 128)
+  (make-colour :lightcoral 240 128 128)
+  (make-colour :tomato 255 99 71)
+  (make-colour :orange-red 255 69 0)
+  (make-colour :orangered 255 69 0)
+  (make-colour :red 255 0 0)
+  (make-colour :hot-pink 255 105 180)
+  (make-colour :hotpink 255 105 180)
+  (make-colour :deep-pink 255 20 147)
+  (make-colour :deeppink 255 20 147)
+  (make-colour :pink 255 192 203)
+  (make-colour :light-pink 255 182 193)
+  (make-colour :lightpink 255 182 193)
+  (make-colour :pale-violet-red 219 112 147)
+  (make-colour :palevioletred 219 112 147)
+  (make-colour :maroon 176 48 96)
+  (make-colour :medium-violet-red 199 21 133)
+  (make-colour :mediumvioletred 199 21 133)
+  (make-colour :violet-red 208 32 144)
+  (make-colour :violetred 208 32 144)
+  (make-colour :magenta 255 0 255)
+  (make-colour :violet 238 130 238)
+  (make-colour :plum 221 160 221)
+  (make-colour :orchid 218 112 214)
+  (make-colour :medium-orchid 186 85 211)
+  (make-colour :mediumorchid 186 85 211)
+  (make-colour :dark-orchid 153 50 204)
+  (make-colour :darkorchid 153 50 204)
+  (make-colour :dark-violet 148 0 211)
+  (make-colour :darkviolet 148 0 211)
+  (make-colour :blue-violet 138 43 226)
+  (make-colour :blueviolet 138 43 226)
+  (make-colour :purple 160 32 240)
+  (make-colour :medium-purple 147 112 219)
+  (make-colour :mediumpurple 147 112 219)
+  (make-colour :thistle 216 191 216)
+  (make-colour :snow1 255 250 250)
+  (make-colour :snow2 238 233 233)
+  (make-colour :snow3 205 201 201)
+  (make-colour :snow4 139 137 137)
+  (make-colour :seashell1 255 245 238)
+  (make-colour :seashell2 238 229 222)
+  (make-colour :seashell3 205 197 191)
+  (make-colour :seashell4 139 134 130)
+  (make-colour :antiquewhite1 255 239 219)
+  (make-colour :antiquewhite2 238 223 204)
+  (make-colour :antiquewhite3 205 192 176)
+  (make-colour :antiquewhite4 139 131 120)
+  (make-colour :bisque1 255 228 196)
+  (make-colour :bisque2 238 213 183)
+  (make-colour :bisque3 205 183 158)
+  (make-colour :bisque4 139 125 107)
+  (make-colour :peachpuff1 255 218 185)
+  (make-colour :peachpuff2 238 203 173)
+  (make-colour :peachpuff3 205 175 149)
+  (make-colour :peachpuff4 139 119 101)
+  (make-colour :navajowhite1 255 222 173)
+  (make-colour :navajowhite2 238 207 161)
+  (make-colour :navajowhite3 205 179 139)
+  (make-colour :navajowhite4 139 121 94)
+  (make-colour :lemonchiffon1 255 250 205)
+  (make-colour :lemonchiffon2 238 233 191)
+  (make-colour :lemonchiffon3 205 201 165)
+  (make-colour :lemonchiffon4 139 137 112)
+  (make-colour :cornsilk1 255 248 220)
+  (make-colour :cornsilk2 238 232 205)
+  (make-colour :cornsilk3 205 200 177)
+  (make-colour :cornsilk4 139 136 120)
+  (make-colour :ivory1 255 255 240)
+  (make-colour :ivory2 238 238 224)
+  (make-colour :ivory3 205 205 193)
+  (make-colour :ivory4 139 139 131)
+  (make-colour :honeydew1 240 255 240)
+  (make-colour :honeydew2 224 238 224)
+  (make-colour :honeydew3 193 205 193)
+  (make-colour :honeydew4 131 139 131)
+  (make-colour :lavenderblush1 255 240 245)
+  (make-colour :lavenderblush2 238 224 229)
+  (make-colour :lavenderblush3 205 193 197)
+  (make-colour :lavenderblush4 139 131 134)
+  (make-colour :mistyrose1 255 228 225)
+  (make-colour :mistyrose2 238 213 210)
+  (make-colour :mistyrose3 205 183 181)
+  (make-colour :mistyrose4 139 125 123)
+  (make-colour :azure1 240 255 255)
+  (make-colour :azure2 224 238 238)
+  (make-colour :azure3 193 205 205)
+  (make-colour :azure4 131 139 139)
+  (make-colour :slateblue1 131 111 255)
+  (make-colour :slateblue2 122 103 238)
+  (make-colour :slateblue3 105 89 205)
+  (make-colour :slateblue4 71 60 139)
+  (make-colour :royalblue1 72 118 255)
+  (make-colour :royalblue2 67 110 238)
+  (make-colour :royalblue3 58 95 205)
+  (make-colour :royalblue4 39 64 139)
+  (make-colour :blue1 0 0 255)
+  (make-colour :blue2 0 0 238)
+  (make-colour :blue3 0 0 205)
+  (make-colour :blue4 0 0 139)
+  (make-colour :dodgerblue1 30 144 255)
+  (make-colour :dodgerblue2 28 134 238)
+  (make-colour :dodgerblue3 24 116 205)
+  (make-colour :dodgerblue4 16 78 139)
+  (make-colour :steelblue1 99 184 255)
+  (make-colour :steelblue2 92 172 238)
+  (make-colour :steelblue3 79 148 205)
+  (make-colour :steelblue4 54 100 139)
+  (make-colour :deepskyblue1 0 191 255)
+  (make-colour :deepskyblue2 0 178 238)
+  (make-colour :deepskyblue3 0 154 205)
+  (make-colour :deepskyblue4 0 104 139)
+  (make-colour :skyblue1 135 206 255)
+  (make-colour :skyblue2 126 192 238)
+  (make-colour :skyblue3 108 166 205)
+  (make-colour :skyblue4 74 112 139)
+  (make-colour :lightskyblue1 176 226 255)
+  (make-colour :lightskyblue2 164 211 238)
+  (make-colour :lightskyblue3 141 182 205)
+  (make-colour :lightskyblue4 96 123 139)
+  (make-colour :slategray1 198 226 255)
+  (make-colour :slategray2 185 211 238)
+  (make-colour :slategray3 159 182 205)
+  (make-colour :slategray4 108 123 139)
+  (make-colour :lightsteelblue1 202 225 255)
+  (make-colour :lightsteelblue2 188 210 238)
+  (make-colour :lightsteelblue3 162 181 205)
+  (make-colour :lightsteelblue4 110 123 139)
+  (make-colour :lightblue1 191 239 255)
+  (make-colour :lightblue2 178 223 238)
+  (make-colour :lightblue3 154 192 205)
+  (make-colour :lightblue4 104 131 139)
+  (make-colour :lightcyan1 224 255 255)
+  (make-colour :lightcyan2 209 238 238)
+  (make-colour :lightcyan3 180 205 205)
+  (make-colour :lightcyan4 122 139 139)
+  (make-colour :paleturquoise1 187 255 255)
+  (make-colour :paleturquoise2 174 238 238)
+  (make-colour :paleturquoise3 150 205 205)
+  (make-colour :paleturquoise4 102 139 139)
+  (make-colour :cadetblue1 152 245 255)
+  (make-colour :cadetblue2 142 229 238)
+  (make-colour :cadetblue3 122 197 205)
+  (make-colour :cadetblue4 83 134 139)
+  (make-colour :turquoise1 0 245 255)
+  (make-colour :turquoise2 0 229 238)
+  (make-colour :turquoise3 0 197 205)
+  (make-colour :turquoise4 0 134 139)
+  (make-colour :cyan1 0 255 255)
+  (make-colour :cyan2 0 238 238)
+  (make-colour :cyan3 0 205 205)
+  (make-colour :cyan4 0 139 139)
+  (make-colour :darkslategray1 151 255 255)
+  (make-colour :darkslategray2 141 238 238)
+  (make-colour :darkslategray3 121 205 205)
+  (make-colour :darkslategray4 82 139 139)
+  (make-colour :aquamarine1 127 255 212)
+  (make-colour :aquamarine2 118 238 198)
+  (make-colour :aquamarine3 102 205 170)
+  (make-colour :aquamarine4 69 139 116)
+  (make-colour :darkseagreen1 193 255 193)
+  (make-colour :darkseagreen2 180 238 180)
+  (make-colour :darkseagreen3 155 205 155)
+  (make-colour :darkseagreen4 105 139 105)
+  (make-colour :seagreen1 84 255 159)
+  (make-colour :seagreen2 78 238 148)
+  (make-colour :seagreen3 67 205 128)
+  (make-colour :seagreen4 46 139 87)
+  (make-colour :palegreen1 154 255 154)
+  (make-colour :palegreen2 144 238 144)
+  (make-colour :palegreen3 124 205 124)
+  (make-colour :palegreen4 84 139 84)
+  (make-colour :springgreen1 0 255 127)
+  (make-colour :springgreen2 0 238 118)
+  (make-colour :springgreen3 0 205 102)
+  (make-colour :springgreen4 0 139 69)
+  (make-colour :green1 0 255 0)
+  (make-colour :green2 0 238 0)
+  (make-colour :green3 0 205 0)
+  (make-colour :green4 0 139 0)
+  (make-colour :chartreuse1 127 255 0)
+  (make-colour :chartreuse2 118 238 0)
+  (make-colour :chartreuse3 102 205 0)
+  (make-colour :chartreuse4 69 139 0)
+  (make-colour :olivedrab1 192 255 62)
+  (make-colour :olivedrab2 179 238 58)
+  (make-colour :olivedrab3 154 205 50)
+  (make-colour :olivedrab4 105 139 34)
+  (make-colour :darkolivegreen1 202 255 112)
+  (make-colour :darkolivegreen2 188 238 104)
+  (make-colour :darkolivegreen3 162 205 90)
+  (make-colour :darkolivegreen4 110 139 61)
+  (make-colour :khaki1 255 246 143)
+  (make-colour :khaki2 238 230 133)
+  (make-colour :khaki3 205 198 115)
+  (make-colour :khaki4 139 134 78)
+  (make-colour :lightgoldenrod1 255 236 139)
+  (make-colour :lightgoldenrod2 238 220 130)
+  (make-colour :lightgoldenrod3 205 190 112)
+  (make-colour :lightgoldenrod4 139 129 76)
+  (make-colour :lightyellow1 255 255 224)
+  (make-colour :lightyellow2 238 238 209)
+  (make-colour :lightyellow3 205 205 180)
+  (make-colour :lightyellow4 139 139 122)
+  (make-colour :yellow1 255 255 0)
+  (make-colour :yellow2 238 238 0)
+  (make-colour :yellow3 205 205 0)
+  (make-colour :yellow4 139 139 0)
+  (make-colour :gold1 255 215 0)
+  (make-colour :gold2 238 201 0)
+  (make-colour :gold3 205 173 0)
+  (make-colour :gold4 139 117 0)
+  (make-colour :goldenrod1 255 193 37)
+  (make-colour :goldenrod2 238 180 34)
+  (make-colour :goldenrod3 205 155 29)
+  (make-colour :goldenrod4 139 105 20)
+  (make-colour :darkgoldenrod1 255 185 15)
+  (make-colour :darkgoldenrod2 238 173 14)
+  (make-colour :darkgoldenrod3 205 149 12)
+  (make-colour :darkgoldenrod4 139 101 8)
+  (make-colour :rosybrown1 255 193 193)
+  (make-colour :rosybrown2 238 180 180)
+  (make-colour :rosybrown3 205 155 155)
+  (make-colour :rosybrown4 139 105 105)
+  (make-colour :indianred1 255 106 106)
+  (make-colour :indianred2 238 99 99)
+  (make-colour :indianred3 205 85 85)
+  (make-colour :indianred4 139 58 58)
+  (make-colour :sienna1 255 130 71)
+  (make-colour :sienna2 238 121 66)
+  (make-colour :sienna3 205 104 57)
+  (make-colour :sienna4 139 71 38)
+  (make-colour :burlywood1 255 211 155)
+  (make-colour :burlywood2 238 197 145)
+  (make-colour :burlywood3 205 170 125)
+  (make-colour :burlywood4 139 115 85)
+  (make-colour :wheat1 255 231 186)
+  (make-colour :wheat2 238 216 174)
+  (make-colour :wheat3 205 186 150)
+  (make-colour :wheat4 139 126 102)
+  (make-colour :tan1 255 165 79)
+  (make-colour :tan2 238 154 73)
+  (make-colour :tan3 205 133 63)
+  (make-colour :tan4 139 90 43)
+  (make-colour :chocolate1 255 127 36)
+  (make-colour :chocolate2 238 118 33)
+  (make-colour :chocolate3 205 102 29)
+  (make-colour :chocolate4 139 69 19)
+  (make-colour :firebrick1 255 48 48)
+  (make-colour :firebrick2 238 44 44)
+  (make-colour :firebrick3 205 38 38)
+  (make-colour :firebrick4 139 26 26)
+  (make-colour :brown1 255 64 64)
+  (make-colour :brown2 238 59 59)
+  (make-colour :brown3 205 51 51)
+  (make-colour :brown4 139 35 35)
+  (make-colour :salmon1 255 140 105)
+  (make-colour :salmon2 238 130 98)
+  (make-colour :salmon3 205 112 84)
+  (make-colour :salmon4 139 76 57)
+  (make-colour :lightsalmon1 255 160 122)
+  (make-colour :lightsalmon2 238 149 114)
+  (make-colour :lightsalmon3 205 129 98)
+  (make-colour :lightsalmon4 139 87 66)
+  (make-colour :orange1 255 165 0)
+  (make-colour :orange2 238 154 0)
+  (make-colour :orange3 205 133 0)
+  (make-colour :orange4 139 90 0)
+  (make-colour :darkorange1 255 127 0)
+  (make-colour :darkorange2 238 118 0)
+  (make-colour :darkorange3 205 102 0)
+  (make-colour :darkorange4 139 69 0)
+  (make-colour :coral1 255 114 86)
+  (make-colour :coral2 238 106 80)
+  (make-colour :coral3 205 91 69)
+  (make-colour :coral4 139 62 47)
+  (make-colour :tomato1 255 99 71)
+  (make-colour :tomato2 238 92 66)
+  (make-colour :tomato3 205 79 57)
+  (make-colour :tomato4 139 54 38)
+  (make-colour :orangered1 255 69 0)
+  (make-colour :orangered2 238 64 0)
+  (make-colour :orangered3 205 55 0)
+  (make-colour :orangered4 139 37 0)
+  (make-colour :red1 255 0 0)
+  (make-colour :red2 238 0 0)
+  (make-colour :red3 205 0 0)
+  (make-colour :red4 139 0 0)
+  (make-colour :debianred 215 7 81)
+  (make-colour :deeppink1 255 20 147)
+  (make-colour :deeppink2 238 18 137)
+  (make-colour :deeppink3 205 16 118)
+  (make-colour :deeppink4 139 10 80)
+  (make-colour :hotpink1 255 110 180)
+  (make-colour :hotpink2 238 106 167)
+  (make-colour :hotpink3 205 96 144)
+  (make-colour :hotpink4 139 58 98)
+  (make-colour :pink1 255 181 197)
+  (make-colour :pink2 238 169 184)
+  (make-colour :pink3 205 145 158)
+  (make-colour :pink4 139 99 108)
+  (make-colour :lightpink1 255 174 185)
+  (make-colour :lightpink2 238 162 173)
+  (make-colour :lightpink3 205 140 149)
+  (make-colour :lightpink4 139 95 101)
+  (make-colour :palevioletred1 255 130 171)
+  (make-colour :palevioletred2 238 121 159)
+  (make-colour :palevioletred3 205 104 137)
+  (make-colour :palevioletred4 139 71 93)
+  (make-colour :maroon1 255 52 179)
+  (make-colour :maroon2 238 48 167)
+  (make-colour :maroon3 205 41 144)
+  (make-colour :maroon4 139 28 98)
+  (make-colour :violetred1 255 62 150)
+  (make-colour :violetred2 238 58 140)
+  (make-colour :violetred3 205 50 120)
+  (make-colour :violetred4 139 34 82)
+  (make-colour :magenta1 255 0 255)
+  (make-colour :magenta2 238 0 238)
+  (make-colour :magenta3 205 0 205)
+  (make-colour :magenta4 139 0 139)
+  (make-colour :orchid1 255 131 250)
+  (make-colour :orchid2 238 122 233)
+  (make-colour :orchid3 205 105 201)
+  (make-colour :orchid4 139 71 137)
+  (make-colour :plum1 255 187 255)
+  (make-colour :plum2 238 174 238)
+  (make-colour :plum3 205 150 205)
+  (make-colour :plum4 139 102 139)
+  (make-colour :mediumorchid1 224 102 255)
+  (make-colour :mediumorchid2 209 95 238)
+  (make-colour :mediumorchid3 180 82 205)
+  (make-colour :mediumorchid4 122 55 139)
+  (make-colour :darkorchid1 191 62 255)
+  (make-colour :darkorchid2 178 58 238)
+  (make-colour :darkorchid3 154 50 205)
+  (make-colour :darkorchid4 104 34 139)
+  (make-colour :purple1 155 48 255)
+  (make-colour :purple2 145 44 238)
+  (make-colour :purple3 125 38 205)
+  (make-colour :purple4 85 26 139)
+  (make-colour :mediumpurple1 171 130 255)
+  (make-colour :mediumpurple2 159 121 238)
+  (make-colour :mediumpurple3 137 104 205)
+  (make-colour :mediumpurple4 93 71 139)
+  (make-colour :thistle1 255 225 255)
+  (make-colour :thistle2 238 210 238)
+  (make-colour :thistle3 205 181 205)
+  (make-colour :thistle4 139 123 139)
+  (make-colour :gray0 0 0 0)
+  (make-colour :grey0 0 0 0)
+  (make-colour :gray1 3 3 3)
+  (make-colour :grey1 3 3 3)
+  (make-colour :gray2 5 5 5)
+  (make-colour :grey2 5 5 5)
+  (make-colour :gray3 8 8 8)
+  (make-colour :grey3 8 8 8)
+  (make-colour :gray4 10 10 10)
+  (make-colour :grey4 10 10 10)
+  (make-colour :gray5 13 13 13)
+  (make-colour :grey5 13 13 13)
+  (make-colour :gray6 15 15 15)
+  (make-colour :grey6 15 15 15)
+  (make-colour :gray7 18 18 18)
+  (make-colour :grey7 18 18 18)
+  (make-colour :gray8 20 20 20)
+  (make-colour :grey8 20 20 20)
+  (make-colour :gray9 23 23 23)
+  (make-colour :grey9 23 23 23)
+  (make-colour :gray10 26 26 26)
+  (make-colour :grey10 26 26 26)
+  (make-colour :gray11 28 28 28)
+  (make-colour :grey11 28 28 28)
+  (make-colour :gray12 31 31 31)
+  (make-colour :grey12 31 31 31)
+  (make-colour :gray13 33 33 33)
+  (make-colour :grey13 33 33 33)
+  (make-colour :gray14 36 36 36)
+  (make-colour :grey14 36 36 36)
+  (make-colour :gray15 38 38 38)
+  (make-colour :grey15 38 38 38)
+  (make-colour :gray16 41 41 41)
+  (make-colour :grey16 41 41 41)
+  (make-colour :gray17 43 43 43)
+  (make-colour :grey17 43 43 43)
+  (make-colour :gray18 46 46 46)
+  (make-colour :grey18 46 46 46)
+  (make-colour :gray19 48 48 48)
+  (make-colour :grey19 48 48 48)
+  (make-colour :gray20 51 51 51)
+  (make-colour :grey20 51 51 51)
+  (make-colour :gray21 54 54 54)
+  (make-colour :grey21 54 54 54)
+  (make-colour :gray22 56 56 56)
+  (make-colour :grey22 56 56 56)
+  (make-colour :gray23 59 59 59)
+  (make-colour :grey23 59 59 59)
+  (make-colour :gray24 61 61 61)
+  (make-colour :grey24 61 61 61)
+  (make-colour :gray25 64 64 64)
+  (make-colour :grey25 64 64 64)
+  (make-colour :gray26 66 66 66)
+  (make-colour :grey26 66 66 66)
+  (make-colour :gray27 69 69 69)
+  (make-colour :grey27 69 69 69)
+  (make-colour :gray28 71 71 71)
+  (make-colour :grey28 71 71 71)
+  (make-colour :gray29 74 74 74)
+  (make-colour :grey29 74 74 74)
+  (make-colour :gray30 77 77 77)
+  (make-colour :grey30 77 77 77)
+  (make-colour :gray31 79 79 79)
+  (make-colour :grey31 79 79 79)
+  (make-colour :gray32 82 82 82)
+  (make-colour :grey32 82 82 82)
+  (make-colour :gray33 84 84 84)
+  (make-colour :grey33 84 84 84)
+  (make-colour :gray34 87 87 87)
+  (make-colour :grey34 87 87 87)
+  (make-colour :gray35 89 89 89)
+  (make-colour :grey35 89 89 89)
+  (make-colour :gray36 92 92 92)
+  (make-colour :grey36 92 92 92)
+  (make-colour :gray37 94 94 94)
+  (make-colour :grey37 94 94 94)
+  (make-colour :gray38 97 97 97)
+  (make-colour :grey38 97 97 97)
+  (make-colour :gray39 99 99 99)
+  (make-colour :grey39 99 99 99)
+  (make-colour :gray40 102 102 102)
+  (make-colour :grey40 102 102 102)
+  (make-colour :gray41 105 105 105)
+  (make-colour :grey41 105 105 105)
+  (make-colour :gray42 107 107 107)
+  (make-colour :grey42 107 107 107)
+  (make-colour :gray43 110 110 110)
+  (make-colour :grey43 110 110 110)
+  (make-colour :gray44 112 112 112)
+  (make-colour :grey44 112 112 112)
+  (make-colour :gray45 115 115 115)
+  (make-colour :grey45 115 115 115)
+  (make-colour :gray46 117 117 117)
+  (make-colour :grey46 117 117 117)
+  (make-colour :gray47 120 120 120)
+  (make-colour :grey47 120 120 120)
+  (make-colour :gray48 122 122 122)
+  (make-colour :grey48 122 122 122)
+  (make-colour :gray49 125 125 125)
+  (make-colour :grey49 125 125 125)
+  (make-colour :gray50 127 127 127)
+  (make-colour :grey50 127 127 127)
+  (make-colour :gray51 130 130 130)
+  (make-colour :grey51 130 130 130)
+  (make-colour :gray52 133 133 133)
+  (make-colour :grey52 133 133 133)
+  (make-colour :gray53 135 135 135)
+  (make-colour :grey53 135 135 135)
+  (make-colour :gray54 138 138 138)
+  (make-colour :grey54 138 138 138)
+  (make-colour :gray55 140 140 140)
+  (make-colour :grey55 140 140 140)
+  (make-colour :gray56 143 143 143)
+  (make-colour :grey56 143 143 143)
+  (make-colour :gray57 145 145 145)
+  (make-colour :grey57 145 145 145)
+  (make-colour :gray58 148 148 148)
+  (make-colour :grey58 148 148 148)
+  (make-colour :gray59 150 150 150)
+  (make-colour :grey59 150 150 150)
+  (make-colour :gray60 153 153 153)
+  (make-colour :grey60 153 153 153)
+  (make-colour :gray61 156 156 156)
+  (make-colour :grey61 156 156 156)
+  (make-colour :gray62 158 158 158)
+  (make-colour :grey62 158 158 158)
+  (make-colour :gray63 161 161 161)
+  (make-colour :grey63 161 161 161)
+  (make-colour :gray64 163 163 163)
+  (make-colour :grey64 163 163 163)
+  (make-colour :gray65 166 166 166)
+  (make-colour :grey65 166 166 166)
+  (make-colour :gray66 168 168 168)
+  (make-colour :grey66 168 168 168)
+  (make-colour :gray67 171 171 171)
+  (make-colour :grey67 171 171 171)
+  (make-colour :gray68 173 173 173)
+  (make-colour :grey68 173 173 173)
+  (make-colour :gray69 176 176 176)
+  (make-colour :grey69 176 176 176)
+  (make-colour :gray70 179 179 179)
+  (make-colour :grey70 179 179 179)
+  (make-colour :gray71 181 181 181)
+  (make-colour :grey71 181 181 181)
+  (make-colour :gray72 184 184 184)
+  (make-colour :grey72 184 184 184)
+  (make-colour :gray73 186 186 186)
+  (make-colour :grey73 186 186 186)
+  (make-colour :gray74 189 189 189)
+  (make-colour :grey74 189 189 189)
+  (make-colour :gray75 191 191 191)
+  (make-colour :grey75 191 191 191)
+  (make-colour :gray76 194 194 194)
+  (make-colour :grey76 194 194 194)
+  (make-colour :gray77 196 196 196)
+  (make-colour :grey77 196 196 196)
+  (make-colour :gray78 199 199 199)
+  (make-colour :grey78 199 199 199)
+  (make-colour :gray79 201 201 201)
+  (make-colour :grey79 201 201 201)
+  (make-colour :gray80 204 204 204)
+  (make-colour :grey80 204 204 204)
+  (make-colour :gray81 207 207 207)
+  (make-colour :grey81 207 207 207)
+  (make-colour :gray82 209 209 209)
+  (make-colour :grey82 209 209 209)
+  (make-colour :gray83 212 212 212)
+  (make-colour :grey83 212 212 212)
+  (make-colour :gray84 214 214 214)
+  (make-colour :grey84 214 214 214)
+  (make-colour :gray85 217 217 217)
+  (make-colour :grey85 217 217 217)
+  (make-colour :gray86 219 219 219)
+  (make-colour :grey86 219 219 219)
+  (make-colour :gray87 222 222 222)
+  (make-colour :grey87 222 222 222)
+  (make-colour :gray88 224 224 224)
+  (make-colour :grey88 224 224 224)
+  (make-colour :gray89 227 227 227)
+  (make-colour :grey89 227 227 227)
+  (make-colour :gray90 229 229 229)
+  (make-colour :grey90 229 229 229)
+  (make-colour :gray91 232 232 232)
+  (make-colour :grey91 232 232 232)
+  (make-colour :gray92 235 235 235)
+  (make-colour :grey92 235 235 235)
+  (make-colour :gray93 237 237 237)
+  (make-colour :grey93 237 237 237)
+  (make-colour :gray94 240 240 240)
+  (make-colour :grey94 240 240 240)
+  (make-colour :gray95 242 242 242)
+  (make-colour :grey95 242 242 242)
+  (make-colour :gray96 245 245 245)
+  (make-colour :grey96 245 245 245)
+  (make-colour :gray97 247 247 247)
+  (make-colour :grey97 247 247 247)
+  (make-colour :gray98 250 250 250)
+  (make-colour :grey98 250 250 250)
+  (make-colour :gray99 252 252 252)
+  (make-colour :grey99 252 252 252)
+  (make-colour :gray100 255 255 255)
+  (make-colour :grey100 255 255 255)
+  (make-colour :dark-grey 169 169 169)
+  (make-colour :darkgrey 169 169 169)
+  (make-colour :dark-gray 169 169 169)
+  (make-colour :darkgray 169 169 169)
+  (make-colour :dark-blue 0 0 139)
+  (make-colour :darkblue 0 0 139)
+  (make-colour :dark-cyan 0 139 139)
+  (make-colour :darkcyan 0 139 139)
+  (make-colour :dark-magenta 139 0 139)
+  (make-colour :darkmagenta 139 0 139)
+  (make-colour :dark-red 139 0 0)
+  (make-colour :darkred 139 0 0)
+  (make-colour :light-green 144 238 144)
+  (make-colour :lightgreen 144 238 144)
+  )
 		(setf *libtcod-loaded* t)))
 
 
-;;;; <<Utilities>> ============================================================
-
-
-(defun* (get-bit -> boolean) ((n integer) (pos uint8))
-  "Return the bit at position POS within the integer N (represented as
-a bitfield). POS = 1 refers to the 1's (rightmost) bit."
-  (/= 0 (logand n (expt 2 (1- pos)))))
-
-
-
-(defvar *root* (null-pointer) "The root console.")
-(defparameter +NULL+ (null-pointer) "The null pointer.")
-(defconstant +NOISE-DEFAULT-HURST+ 0.5
-  "Default Hurst exponent for noise functions.")
-(defconstant +NOISE-DEFAULT-LACUNARITY+ 2.0
-  "Default lacunarity for noise functions.")
-
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defun simple-type? (sym)
-    "* Arguments
-- SYM :: A symbol.
-* Return Value
-Boolean.
-* Description
-Returns =T= if =SYM= names a non-class type, such as can be
-defined by [[deftype]]."
-    (handler-case (typep t sym)
-      (error () (return-from simple-type? nil)))
-    t))
+;;;; <<Macros>> ===============================================================
 
 
 ;;; The following are some wrapper macros to ease the creation
 
 
 
+
 ;;;; <<Types>> ================================================================
 
 
   (shift nil :type boolean))
 
 
-(defun* (make-simple-key -> key) ((ch character))
-  (make-key :vk :char :c ch))
-
-
-(defun* (same-keys? -> boolean) ((key1 key) (key2 key))
-  (and (key-p key1) (key-p key2)
-       (eql (key-vk key1) (key-vk key2))
-       (eql (key-c key1) (key-c key2))
-       (eql (key-shift key1) (key-shift key2))
-       (eql (or (key-lalt key1) (key-ralt key1))
-	    (or (key-lalt key2) (key-ralt key2)))
-       (eql (or (key-lctrl key1) (key-rctrl key1))
-	    (or (key-lctrl key2) (key-rctrl key2)))))
-
 
 
 (define-c-enum drawing-character
 (define-c-type dijkstra-path :pointer)
 
 
+;;;; <<Utilities>> ============================================================
+
+
+(defun* (get-bit -> boolean) ((n integer) (pos uint8))
+  "Return the bit at position POS within the integer N (represented as
+a bitfield). POS = 1 refers to the 1's (rightmost) bit."
+  (/= 0 (logand n (expt 2 (1- pos)))))
+
+
+
+(defvar *root* (null-pointer) "The root console.")
+(defparameter +NULL+ (null-pointer) "The null pointer.")
+(defconstant +NOISE-DEFAULT-HURST+ 0.5
+  "Default Hurst exponent for noise functions.")
+(defconstant +NOISE-DEFAULT-LACUNARITY+ 2.0
+  "Default lacunarity for noise functions.")
+
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defun simple-type? (sym)
+    "* Arguments
+- SYM :: A symbol.
+* Return Value
+Boolean.
+* Description
+Returns =T= if =SYM= names a non-class type, such as can be
+defined by [[deftype]]."
+    (handler-case (typep t sym)
+      (error () (return-from simple-type? nil)))
+    t))
+
+
+
+(defun* (make-simple-key -> key) ((ch character))
+  (make-key :vk :char :c ch))
+
+
+(defun* (same-keys? -> boolean) ((key1 key) (key2 key))
+  (and (key-p key1) (key-p key2)
+       (eql (key-vk key1) (key-vk key2))
+       (eql (key-c key1) (key-c key2))
+       (eql (key-shift key1) (key-shift key2))
+       (eql (or (key-lalt key1) (key-ralt key1))
+	    (or (key-lalt key2) (key-ralt key2)))
+       (eql (or (key-lctrl key1) (key-rctrl key1))
+	    (or (key-lctrl key2) (key-rctrl key2)))))
+
+
+
 ;;;; <<Colours>> ==============================================================
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun* (compose-colour -> uint32) ((r uint8) (g uint8) (b uint8))
     "Given three integer values R, G and B, representing the red, green and
-blue components of a colour, return a 3 byte integer whose value is #xRRGGBB."
-    (+ (ash r 16) (ash g 8) b))
+blue components of a colour, return a 3 byte integer whose value is #xBBGGRR."
+    (+ (ash b 16) (ash g 8) r))
   (declaim (inline compose-color))
   (defun compose-color (r g b) (compose-colour r g b)))
 
 
 (defun* (decompose-colour -> (values uint8 uint8 uint8)) ((num colournum))
-  "Given a colournum #xRRGGBB, return R, G and B integer values
+  "Given a colournum #xBBGGRR, return R, G and B integer values
 as 3 separate return values."
   (values
+	 (logand num #x0000ff)
+	 (ash (logand num #x00ff00) -8)
 	 (ash (logand num #xff0000) -16)
-	 (ash (logand num #x00ff00) -8)
-	 (logand num #x0000ff)))
+         ))
 (declaim (inline decompose-color))
 (defun decompose-color (num) (decompose-colour num))
 
   (setf *colour-table* (make-hash-table :test #'eql))
   (dolist (term *initial-colours*)
     (destructuring-bind (name r g b) term
-      (make-colour name r g b))))
+      (make-colour name r g b)))
+  (make-rgb.txt-colours))
 (defun start-colors () (start-colours))
 
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.