TYPE(rgbcol),PARAMETER,PUBLIC :: snow = rgbcol(255,250,250) TYPE(rgbcol),PARAMETER,PUBLIC :: GhostWhite = rgbcol(248,248,255) TYPE(rgbcol),PARAMETER,PUBLIC :: WhiteSmoke = rgbcol(245,245,245) TYPE(rgbcol),PARAMETER,PUBLIC :: gainsboro = rgbcol(220,220,220) TYPE(rgbcol),PARAMETER,PUBLIC :: FloralWhite = rgbcol(255,250,240) TYPE(rgbcol),PARAMETER,PUBLIC :: OldLace = rgbcol(253,245,230) TYPE(rgbcol),PARAMETER,PUBLIC :: linen = rgbcol(250,240,230) TYPE(rgbcol),PARAMETER,PUBLIC :: AntiqueWhite = rgbcol(250,235,215) TYPE(rgbcol),PARAMETER,PUBLIC :: PapayaWhip = rgbcol(255,239,213) TYPE(rgbcol),PARAMETER,PUBLIC :: BlanchedAlmond = rgbcol(255,235,205) TYPE(rgbcol),PARAMETER,PUBLIC :: bisque = rgbcol(255,228,196) TYPE(rgbcol),PARAMETER,PUBLIC :: PeachPuff = rgbcol(255,218,185) TYPE(rgbcol),PARAMETER,PUBLIC :: NavajoWhite = rgbcol(255,222,173) TYPE(rgbcol),PARAMETER,PUBLIC :: moccasin = rgbcol(255,228,181) TYPE(rgbcol),PARAMETER,PUBLIC :: cornsilk = rgbcol(255,248,220) TYPE(rgbcol),PARAMETER,PUBLIC :: ivory = rgbcol(255,255,240) TYPE(rgbcol),PARAMETER,PUBLIC :: LemonChiffon = rgbcol(255,250,205) TYPE(rgbcol),PARAMETER,PUBLIC :: seashell = rgbcol(255,245,238) TYPE(rgbcol),PARAMETER,PUBLIC :: honeydew = rgbcol(240,255,240) TYPE(rgbcol),PARAMETER,PUBLIC :: MintCream = rgbcol(245,255,250) TYPE(rgbcol),PARAMETER,PUBLIC :: azure = rgbcol(240,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: AliceBlue = rgbcol(240,248,255) TYPE(rgbcol),PARAMETER,PUBLIC :: lavender = rgbcol(230,230,250) TYPE(rgbcol),PARAMETER,PUBLIC :: LavenderBlush = rgbcol(255,240,245) TYPE(rgbcol),PARAMETER,PUBLIC :: MistyRose = rgbcol(255,228,225) TYPE(rgbcol),PARAMETER,PUBLIC :: white = rgbcol(255,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: black = rgbcol(0,0,0) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateGray = rgbcol(47,79,79) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateGrey = rgbcol(47,79,79) TYPE(rgbcol),PARAMETER,PUBLIC :: DimGray = rgbcol(105,105,105) TYPE(rgbcol),PARAMETER,PUBLIC :: DimGrey = rgbcol(105,105,105) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateGray = rgbcol(112,128,144) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateGrey = rgbcol(112,128,144) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSlateGray = rgbcol(119,136,153) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSlateGrey = rgbcol(119,136,153) TYPE(rgbcol),PARAMETER,PUBLIC :: gray = rgbcol(190,190,190) TYPE(rgbcol),PARAMETER,PUBLIC :: grey = rgbcol(190,190,190) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGrey = rgbcol(211,211,211) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGray = rgbcol(211,211,211) TYPE(rgbcol),PARAMETER,PUBLIC :: MidnightBlue = rgbcol(25,25,112) TYPE(rgbcol),PARAMETER,PUBLIC :: navy = rgbcol(0,0,128) TYPE(rgbcol),PARAMETER,PUBLIC :: NavyBlue = rgbcol(0,0,128) TYPE(rgbcol),PARAMETER,PUBLIC :: CornflowerBlue = rgbcol(100,149,237) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateBlue = rgbcol(72,61,139) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateBlue = rgbcol(106,90,205) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumSlateBlue = rgbcol(123,104,238) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSlateBlue = rgbcol(132,112,255) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumBlue = rgbcol(0,0,205) TYPE(rgbcol),PARAMETER,PUBLIC :: RoyalBlue = rgbcol(65,105,225) TYPE(rgbcol),PARAMETER,PUBLIC :: blue = rgbcol(0,0,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DodgerBlue = rgbcol(30,144,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepSkyBlue = rgbcol(0,191,255) TYPE(rgbcol),PARAMETER,PUBLIC :: SkyBlue = rgbcol(135,206,235) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSkyBlue = rgbcol(135,206,250) TYPE(rgbcol),PARAMETER,PUBLIC :: SteelBlue = rgbcol(70,130,180) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSteelBlue = rgbcol(176,196,222) TYPE(rgbcol),PARAMETER,PUBLIC :: LightBlue = rgbcol(173,216,230) TYPE(rgbcol),PARAMETER,PUBLIC :: PowderBlue = rgbcol(176,224,230) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleTurquoise = rgbcol(175,238,238) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkTurquoise = rgbcol(0,206,209) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumTurquoise = rgbcol(72,209,204) TYPE(rgbcol),PARAMETER,PUBLIC :: turquoise = rgbcol(64,224,208) TYPE(rgbcol),PARAMETER,PUBLIC :: cyan = rgbcol(0,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: LightCyan = rgbcol(224,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: CadetBlue = rgbcol(95,158,160) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumAquamarine = rgbcol(102,205,170) TYPE(rgbcol),PARAMETER,PUBLIC :: aquamarine = rgbcol(127,255,212) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkGreen = rgbcol(0,100,0) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOliveGreen = rgbcol(85,107,47) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSeaGreen = rgbcol(143,188,143) TYPE(rgbcol),PARAMETER,PUBLIC :: SeaGreen = rgbcol(46,139,87) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumSeaGreen = rgbcol(60,179,113) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSeaGreen = rgbcol(32,178,170) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleGreen = rgbcol(152,251,152) TYPE(rgbcol),PARAMETER,PUBLIC :: SpringGreen = rgbcol(0,255,127) TYPE(rgbcol),PARAMETER,PUBLIC :: LawnGreen = rgbcol(124,252,0) TYPE(rgbcol),PARAMETER,PUBLIC :: green = rgbcol(0,255,0) TYPE(rgbcol),PARAMETER,PUBLIC :: chartreuse = rgbcol(127,255,0) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumSpringGreen = rgbcol(0,250,154) TYPE(rgbcol),PARAMETER,PUBLIC :: GreenYellow = rgbcol(173,255,47) TYPE(rgbcol),PARAMETER,PUBLIC :: LimeGreen = rgbcol(50,205,50) TYPE(rgbcol),PARAMETER,PUBLIC :: YellowGreen = rgbcol(154,205,50) TYPE(rgbcol),PARAMETER,PUBLIC :: ForestGreen = rgbcol(34,139,34) TYPE(rgbcol),PARAMETER,PUBLIC :: OliveDrab = rgbcol(107,142,35) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkKhaki = rgbcol(189,183,107) TYPE(rgbcol),PARAMETER,PUBLIC :: khaki = rgbcol(240,230,140) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleGoldenrod = rgbcol(238,232,170) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGoldenrodYellow = rgbcol(250,250,210) TYPE(rgbcol),PARAMETER,PUBLIC :: LightYellow = rgbcol(255,255,224) TYPE(rgbcol),PARAMETER,PUBLIC :: yellow = rgbcol(255,255,0) TYPE(rgbcol),PARAMETER,PUBLIC :: gold = rgbcol(255,215,0) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGoldenrod = rgbcol(238,221,130) TYPE(rgbcol),PARAMETER,PUBLIC :: goldenrod = rgbcol(218,165,32) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkGoldenrod = rgbcol(184,134,11) TYPE(rgbcol),PARAMETER,PUBLIC :: RosyBrown = rgbcol(188,143,143) TYPE(rgbcol),PARAMETER,PUBLIC :: IndianRed = rgbcol(205,92,92) TYPE(rgbcol),PARAMETER,PUBLIC :: SaddleBrown = rgbcol(139,69,19) TYPE(rgbcol),PARAMETER,PUBLIC :: sienna = rgbcol(160,82,45) TYPE(rgbcol),PARAMETER,PUBLIC :: peru = rgbcol(205,133,63) TYPE(rgbcol),PARAMETER,PUBLIC :: burlywood = rgbcol(222,184,135) TYPE(rgbcol),PARAMETER,PUBLIC :: beige = rgbcol(245,245,220) TYPE(rgbcol),PARAMETER,PUBLIC :: wheat = rgbcol(245,222,179) TYPE(rgbcol),PARAMETER,PUBLIC :: SandyBrown = rgbcol(244,164,96) TYPE(rgbcol),PARAMETER,PUBLIC :: tan = rgbcol(210,180,140) TYPE(rgbcol),PARAMETER,PUBLIC :: chocolate = rgbcol(210,105,30) TYPE(rgbcol),PARAMETER,PUBLIC :: firebrick = rgbcol(178,34,34) TYPE(rgbcol),PARAMETER,PUBLIC :: brown = rgbcol(165,42,42) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSalmon = rgbcol(233,150,122) TYPE(rgbcol),PARAMETER,PUBLIC :: salmon = rgbcol(250,128,114) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSalmon = rgbcol(255,160,122) TYPE(rgbcol),PARAMETER,PUBLIC :: orange = rgbcol(255,165,0) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOrange = rgbcol(255,140,0) TYPE(rgbcol),PARAMETER,PUBLIC :: coral = rgbcol(255,127,80) TYPE(rgbcol),PARAMETER,PUBLIC :: LightCoral = rgbcol(240,128,128) TYPE(rgbcol),PARAMETER,PUBLIC :: tomato = rgbcol(255,99,71) TYPE(rgbcol),PARAMETER,PUBLIC :: OrangeRed = rgbcol(255,69,0) TYPE(rgbcol),PARAMETER,PUBLIC :: red = rgbcol(255,0,0) TYPE(rgbcol),PARAMETER,PUBLIC :: HotPink = rgbcol(255,105,180) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepPink = rgbcol(255,20,147) TYPE(rgbcol),PARAMETER,PUBLIC :: pink = rgbcol(255,192,203) TYPE(rgbcol),PARAMETER,PUBLIC :: LightPink = rgbcol(255,182,193) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleVioletRed = rgbcol(219,112,147) TYPE(rgbcol),PARAMETER,PUBLIC :: maroon = rgbcol(176,48,96) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumVioletRed = rgbcol(199,21,133) TYPE(rgbcol),PARAMETER,PUBLIC :: VioletRed = rgbcol(208,32,144) TYPE(rgbcol),PARAMETER,PUBLIC :: magenta = rgbcol(255,0,255) TYPE(rgbcol),PARAMETER,PUBLIC :: violet = rgbcol(238,130,238) TYPE(rgbcol),PARAMETER,PUBLIC :: plum = rgbcol(221,160,221) TYPE(rgbcol),PARAMETER,PUBLIC :: orchid = rgbcol(218,112,214) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumOrchid = rgbcol(186,85,211) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOrchid = rgbcol(153,50,204) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkViolet = rgbcol(148,0,211) TYPE(rgbcol),PARAMETER,PUBLIC :: BlueViolet = rgbcol(138,43,226) TYPE(rgbcol),PARAMETER,PUBLIC :: purple = rgbcol(160,32,240) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumPurple = rgbcol(147,112,219) TYPE(rgbcol),PARAMETER,PUBLIC :: thistle = rgbcol(216,191,216) TYPE(rgbcol),PARAMETER,PUBLIC :: snow1 = rgbcol(255,250,250) TYPE(rgbcol),PARAMETER,PUBLIC :: snow2 = rgbcol(238,233,233) TYPE(rgbcol),PARAMETER,PUBLIC :: snow3 = rgbcol(205,201,201) TYPE(rgbcol),PARAMETER,PUBLIC :: snow4 = rgbcol(139,137,137) TYPE(rgbcol),PARAMETER,PUBLIC :: seashell1 = rgbcol(255,245,238) TYPE(rgbcol),PARAMETER,PUBLIC :: seashell2 = rgbcol(238,229,222) TYPE(rgbcol),PARAMETER,PUBLIC :: seashell3 = rgbcol(205,197,191) TYPE(rgbcol),PARAMETER,PUBLIC :: seashell4 = rgbcol(139,134,130) TYPE(rgbcol),PARAMETER,PUBLIC :: AntiqueWhite1 = rgbcol(255,239,219) TYPE(rgbcol),PARAMETER,PUBLIC :: AntiqueWhite2 = rgbcol(238,223,204) TYPE(rgbcol),PARAMETER,PUBLIC :: AntiqueWhite3 = rgbcol(205,192,176) TYPE(rgbcol),PARAMETER,PUBLIC :: AntiqueWhite4 = rgbcol(139,131,120) TYPE(rgbcol),PARAMETER,PUBLIC :: bisque1 = rgbcol(255,228,196) TYPE(rgbcol),PARAMETER,PUBLIC :: bisque2 = rgbcol(238,213,183) TYPE(rgbcol),PARAMETER,PUBLIC :: bisque3 = rgbcol(205,183,158) TYPE(rgbcol),PARAMETER,PUBLIC :: bisque4 = rgbcol(139,125,107) TYPE(rgbcol),PARAMETER,PUBLIC :: PeachPuff1 = rgbcol(255,218,185) TYPE(rgbcol),PARAMETER,PUBLIC :: PeachPuff2 = rgbcol(238,203,173) TYPE(rgbcol),PARAMETER,PUBLIC :: PeachPuff3 = rgbcol(205,175,149) TYPE(rgbcol),PARAMETER,PUBLIC :: PeachPuff4 = rgbcol(139,119,101) TYPE(rgbcol),PARAMETER,PUBLIC :: NavajoWhite1 = rgbcol(255,222,173) TYPE(rgbcol),PARAMETER,PUBLIC :: NavajoWhite2 = rgbcol(238,207,161) TYPE(rgbcol),PARAMETER,PUBLIC :: NavajoWhite3 = rgbcol(205,179,139) TYPE(rgbcol),PARAMETER,PUBLIC :: LemonChiffon1 = rgbcol(255,250,205) TYPE(rgbcol),PARAMETER,PUBLIC :: LemonChiffon2 = rgbcol(238,233,191) TYPE(rgbcol),PARAMETER,PUBLIC :: LemonChiffon3 = rgbcol(205,201,165) TYPE(rgbcol),PARAMETER,PUBLIC :: LemonChiffon4 = rgbcol(139,137,112) TYPE(rgbcol),PARAMETER,PUBLIC :: cornsilk1 = rgbcol(255,248,220) TYPE(rgbcol),PARAMETER,PUBLIC :: cornsilk2 = rgbcol(238,232,205) TYPE(rgbcol),PARAMETER,PUBLIC :: cornsilk3 = rgbcol(205,200,177) TYPE(rgbcol),PARAMETER,PUBLIC :: cornsilk4 = rgbcol(139,136,120) TYPE(rgbcol),PARAMETER,PUBLIC :: ivory1 = rgbcol(255,255,240) TYPE(rgbcol),PARAMETER,PUBLIC :: ivory2 = rgbcol(238,238,224) TYPE(rgbcol),PARAMETER,PUBLIC :: ivory3 = rgbcol(205,205,193) TYPE(rgbcol),PARAMETER,PUBLIC :: ivory4 = rgbcol(139,139,131) TYPE(rgbcol),PARAMETER,PUBLIC :: honeydew1 = rgbcol(240,255,240) TYPE(rgbcol),PARAMETER,PUBLIC :: honeydew2 = rgbcol(224,238,224) TYPE(rgbcol),PARAMETER,PUBLIC :: honeydew3 = rgbcol(193,205,193) TYPE(rgbcol),PARAMETER,PUBLIC :: honeydew4 = rgbcol(131,139,131) TYPE(rgbcol),PARAMETER,PUBLIC :: LavenderBlush1 = rgbcol(255,240,245) TYPE(rgbcol),PARAMETER,PUBLIC :: LavenderBlush2 = rgbcol(238,224,229) TYPE(rgbcol),PARAMETER,PUBLIC :: LavenderBlush3 = rgbcol(205,193,197) TYPE(rgbcol),PARAMETER,PUBLIC :: LavenderBlush4 = rgbcol(139,131,134) TYPE(rgbcol),PARAMETER,PUBLIC :: MistyRose1 = rgbcol(255,228,225) TYPE(rgbcol),PARAMETER,PUBLIC :: MistyRose2 = rgbcol(238,213,210) TYPE(rgbcol),PARAMETER,PUBLIC :: MistyRose3 = rgbcol(205,183,181) TYPE(rgbcol),PARAMETER,PUBLIC :: MistyRose4 = rgbcol(139,125,123) TYPE(rgbcol),PARAMETER,PUBLIC :: azure1 = rgbcol(240,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: azure2 = rgbcol(224,238,238) TYPE(rgbcol),PARAMETER,PUBLIC :: azure3 = rgbcol(193,205,205) TYPE(rgbcol),PARAMETER,PUBLIC :: azure4 = rgbcol(131,139,139) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateBlue1 = rgbcol(131,111,255) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateBlue2 = rgbcol(122,103,238) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateBlue3 = rgbcol(105,89,205) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateBlue4 = rgbcol(71,60,139) TYPE(rgbcol),PARAMETER,PUBLIC :: RoyalBlue1 = rgbcol(72,118,255) TYPE(rgbcol),PARAMETER,PUBLIC :: RoyalBlue2 = rgbcol(67,110,238) TYPE(rgbcol),PARAMETER,PUBLIC :: RoyalBlue3 = rgbcol(58,95,205) TYPE(rgbcol),PARAMETER,PUBLIC :: RoyalBlue4 = rgbcol(39,64,139) TYPE(rgbcol),PARAMETER,PUBLIC :: blue1 = rgbcol(0,0,255) TYPE(rgbcol),PARAMETER,PUBLIC :: blue2 = rgbcol(0,0,238) TYPE(rgbcol),PARAMETER,PUBLIC :: blue3 = rgbcol(0,0,205) TYPE(rgbcol),PARAMETER,PUBLIC :: blue4 = rgbcol(0,0,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DodgerBlue1 = rgbcol(30,144,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DodgerBlue2 = rgbcol(28,134,238) TYPE(rgbcol),PARAMETER,PUBLIC :: DodgerBlue3 = rgbcol(24,116,205) TYPE(rgbcol),PARAMETER,PUBLIC :: DodgerBlue4 = rgbcol(16,78,139) TYPE(rgbcol),PARAMETER,PUBLIC :: SteelBlue1 = rgbcol(99,184,255) TYPE(rgbcol),PARAMETER,PUBLIC :: SteelBlue2 = rgbcol(92,172,238) TYPE(rgbcol),PARAMETER,PUBLIC :: SteelBlue3 = rgbcol(79,148,205) TYPE(rgbcol),PARAMETER,PUBLIC :: SteelBlue4 = rgbcol(54,100,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepSkyBlue1 = rgbcol(0,191,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepSkyBlue2 = rgbcol(0,178,238) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepSkyBlue3 = rgbcol(0,154,205) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepSkyBlue4 = rgbcol(0,104,139) TYPE(rgbcol),PARAMETER,PUBLIC :: SkyBlue1 = rgbcol(135,206,255) TYPE(rgbcol),PARAMETER,PUBLIC :: SkyBlue2 = rgbcol(126,192,238) TYPE(rgbcol),PARAMETER,PUBLIC :: SkyBlue3 = rgbcol(108,166,205) TYPE(rgbcol),PARAMETER,PUBLIC :: SkyBlue4 = rgbcol(74,112,139) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSkyBlue1 = rgbcol(176,226,255) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSkyBlue2 = rgbcol(164,211,238) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSkyBlue3 = rgbcol(141,182,205) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSkyBlue4 = rgbcol(96,123,139) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateGray1 = rgbcol(198,226,255) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateGray2 = rgbcol(185,211,238) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateGray3 = rgbcol(159,182,205) TYPE(rgbcol),PARAMETER,PUBLIC :: SlateGray4 = rgbcol(108,123,139) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSteelBlue1 = rgbcol(202,225,255) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSteelBlue2 = rgbcol(188,210,238) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSteelBlue3 = rgbcol(162,181,205) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSteelBlue4 = rgbcol(110,123,139) TYPE(rgbcol),PARAMETER,PUBLIC :: LightBlue1 = rgbcol(191,239,255) TYPE(rgbcol),PARAMETER,PUBLIC :: LightBlue2 = rgbcol(178,223,238) TYPE(rgbcol),PARAMETER,PUBLIC :: LightBlue3 = rgbcol(154,192,205) TYPE(rgbcol),PARAMETER,PUBLIC :: LightBlue4 = rgbcol(104,131,139) TYPE(rgbcol),PARAMETER,PUBLIC :: LightCyan1 = rgbcol(224,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: LightCyan2 = rgbcol(209,238,238) TYPE(rgbcol),PARAMETER,PUBLIC :: LightCyan3 = rgbcol(180,205,205) TYPE(rgbcol),PARAMETER,PUBLIC :: LightCyan4 = rgbcol(122,139,139) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleTurquoise1 = rgbcol(187,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleTurquoise2 = rgbcol(174,238,238) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleTurquoise3 = rgbcol(150,205,205) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleTurquoise4 = rgbcol(102,139,139) TYPE(rgbcol),PARAMETER,PUBLIC :: CadetBlue1 = rgbcol(152,245,255) TYPE(rgbcol),PARAMETER,PUBLIC :: CadetBlue2 = rgbcol(142,229,238) TYPE(rgbcol),PARAMETER,PUBLIC :: CadetBlue3 = rgbcol(122,197,205) TYPE(rgbcol),PARAMETER,PUBLIC :: CadetBlue4 = rgbcol(83,134,139) TYPE(rgbcol),PARAMETER,PUBLIC :: turquoise1 = rgbcol(0,245,255) TYPE(rgbcol),PARAMETER,PUBLIC :: turquoise2 = rgbcol(0,229,238) TYPE(rgbcol),PARAMETER,PUBLIC :: turquoise3 = rgbcol(0,197,205) TYPE(rgbcol),PARAMETER,PUBLIC :: turquoise4 = rgbcol(0,134,139) TYPE(rgbcol),PARAMETER,PUBLIC :: cyan1 = rgbcol(0,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: cyan2 = rgbcol(0,238,238) TYPE(rgbcol),PARAMETER,PUBLIC :: cyan3 = rgbcol(0,205,205) TYPE(rgbcol),PARAMETER,PUBLIC :: cyan4 = rgbcol(0,139,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateGray1 = rgbcol(151,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateGray2 = rgbcol(141,238,238) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateGray3 = rgbcol(121,205,205) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSlateGray4 = rgbcol(82,139,139) TYPE(rgbcol),PARAMETER,PUBLIC :: aquamarine1 = rgbcol(127,255,212) TYPE(rgbcol),PARAMETER,PUBLIC :: aquamarine2 = rgbcol(118,238,198) TYPE(rgbcol),PARAMETER,PUBLIC :: aquamarine3 = rgbcol(102,205,170) TYPE(rgbcol),PARAMETER,PUBLIC :: aquamarine4 = rgbcol(69,139,116) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSeaGreen1 = rgbcol(193,255,193) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSeaGreen2 = rgbcol(180,238,180) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSeaGreen3 = rgbcol(155,205,155) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkSeaGreen4 = rgbcol(105,139,105) TYPE(rgbcol),PARAMETER,PUBLIC :: SeaGreen1 = rgbcol(84,255,159) TYPE(rgbcol),PARAMETER,PUBLIC :: SeaGreen2 = rgbcol(78,238,148) TYPE(rgbcol),PARAMETER,PUBLIC :: SeaGreen3 = rgbcol(67,205,128) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleGreen1 = rgbcol(154,255,154) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleGreen2 = rgbcol(144,238,144) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleGreen3 = rgbcol(124,205,124) TYPE(rgbcol),PARAMETER,PUBLIC :: SpringGreen1 = rgbcol(0,255,127) TYPE(rgbcol),PARAMETER,PUBLIC :: SpringGreen2 = rgbcol(0,238,118) TYPE(rgbcol),PARAMETER,PUBLIC :: SpringGreen3 = rgbcol(0,205,102) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOliveGreen1 = rgbcol(202,255,112) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOliveGreen2 = rgbcol(188,238,104) TYPE(rgbcol),PARAMETER,PUBLIC :: khaki1 = rgbcol(255,246,143) TYPE(rgbcol),PARAMETER,PUBLIC :: khaki2 = rgbcol(238,230,133) TYPE(rgbcol),PARAMETER,PUBLIC :: khaki3 = rgbcol(205,198,115) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGoldenrod1 = rgbcol(255,236,139) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGoldenrod2 = rgbcol(238,220,130) TYPE(rgbcol),PARAMETER,PUBLIC :: LightGoldenrod3 = rgbcol(205,190,112) TYPE(rgbcol),PARAMETER,PUBLIC :: LightYellow1 = rgbcol(255,255,224) TYPE(rgbcol),PARAMETER,PUBLIC :: LightYellow2 = rgbcol(238,238,209) TYPE(rgbcol),PARAMETER,PUBLIC :: LightYellow3 = rgbcol(205,205,180) TYPE(rgbcol),PARAMETER,PUBLIC :: LightYellow4 = rgbcol(139,139,122) TYPE(rgbcol),PARAMETER,PUBLIC :: RosyBrown1 = rgbcol(255,193,193) TYPE(rgbcol),PARAMETER,PUBLIC :: RosyBrown2 = rgbcol(238,180,180) TYPE(rgbcol),PARAMETER,PUBLIC :: RosyBrown3 = rgbcol(205,155,155) TYPE(rgbcol),PARAMETER,PUBLIC :: RosyBrown4 = rgbcol(139,105,105) TYPE(rgbcol),PARAMETER,PUBLIC :: IndianRed1 = rgbcol(255,106,106) TYPE(rgbcol),PARAMETER,PUBLIC :: burlywood1 = rgbcol(255,211,155) TYPE(rgbcol),PARAMETER,PUBLIC :: burlywood2 = rgbcol(238,197,145) TYPE(rgbcol),PARAMETER,PUBLIC :: burlywood3 = rgbcol(205,170,125) TYPE(rgbcol),PARAMETER,PUBLIC :: wheat1 = rgbcol(255,231,186) TYPE(rgbcol),PARAMETER,PUBLIC :: wheat2 = rgbcol(238,216,174) TYPE(rgbcol),PARAMETER,PUBLIC :: wheat3 = rgbcol(205,186,150) TYPE(rgbcol),PARAMETER,PUBLIC :: wheat4 = rgbcol(139,126,102) TYPE(rgbcol),PARAMETER,PUBLIC :: salmon1 = rgbcol(255,140,105) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSalmon1 = rgbcol(255,160,122) TYPE(rgbcol),PARAMETER,PUBLIC :: LightSalmon2 = rgbcol(238,149,114) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepPink1 = rgbcol(255,20,147) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepPink2 = rgbcol(238,18,137) TYPE(rgbcol),PARAMETER,PUBLIC :: DeepPink3 = rgbcol(205,16,118) TYPE(rgbcol),PARAMETER,PUBLIC :: HotPink1 = rgbcol(255,110,180) TYPE(rgbcol),PARAMETER,PUBLIC :: HotPink2 = rgbcol(238,106,167) TYPE(rgbcol),PARAMETER,PUBLIC :: HotPink3 = rgbcol(205,96,144) TYPE(rgbcol),PARAMETER,PUBLIC :: HotPink4 = rgbcol(139,58,98) TYPE(rgbcol),PARAMETER,PUBLIC :: pink1 = rgbcol(255,181,197) TYPE(rgbcol),PARAMETER,PUBLIC :: pink2 = rgbcol(238,169,184) TYPE(rgbcol),PARAMETER,PUBLIC :: pink3 = rgbcol(205,145,158) TYPE(rgbcol),PARAMETER,PUBLIC :: pink4 = rgbcol(139,99,108) TYPE(rgbcol),PARAMETER,PUBLIC :: LightPink1 = rgbcol(255,174,185) TYPE(rgbcol),PARAMETER,PUBLIC :: LightPink2 = rgbcol(238,162,173) TYPE(rgbcol),PARAMETER,PUBLIC :: LightPink3 = rgbcol(205,140,149) TYPE(rgbcol),PARAMETER,PUBLIC :: LightPink4 = rgbcol(139,95,101) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleVioletRed1 = rgbcol(255,130,171) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleVioletRed2 = rgbcol(238,121,159) TYPE(rgbcol),PARAMETER,PUBLIC :: PaleVioletRed3 = rgbcol(205,104,137) TYPE(rgbcol),PARAMETER,PUBLIC :: maroon1 = rgbcol(255,52,179) TYPE(rgbcol),PARAMETER,PUBLIC :: maroon2 = rgbcol(238,48,167) TYPE(rgbcol),PARAMETER,PUBLIC :: maroon3 = rgbcol(205,41,144) TYPE(rgbcol),PARAMETER,PUBLIC :: VioletRed1 = rgbcol(255,62,150) TYPE(rgbcol),PARAMETER,PUBLIC :: VioletRed2 = rgbcol(238,58,140) TYPE(rgbcol),PARAMETER,PUBLIC :: VioletRed3 = rgbcol(205,50,120) TYPE(rgbcol),PARAMETER,PUBLIC :: magenta1 = rgbcol(255,0,255) TYPE(rgbcol),PARAMETER,PUBLIC :: magenta2 = rgbcol(238,0,238) TYPE(rgbcol),PARAMETER,PUBLIC :: magenta3 = rgbcol(205,0,205) TYPE(rgbcol),PARAMETER,PUBLIC :: magenta4 = rgbcol(139,0,139) TYPE(rgbcol),PARAMETER,PUBLIC :: orchid1 = rgbcol(255,131,250) TYPE(rgbcol),PARAMETER,PUBLIC :: orchid2 = rgbcol(238,122,233) TYPE(rgbcol),PARAMETER,PUBLIC :: orchid3 = rgbcol(205,105,201) TYPE(rgbcol),PARAMETER,PUBLIC :: orchid4 = rgbcol(139,71,137) TYPE(rgbcol),PARAMETER,PUBLIC :: plum1 = rgbcol(255,187,255) TYPE(rgbcol),PARAMETER,PUBLIC :: plum2 = rgbcol(238,174,238) TYPE(rgbcol),PARAMETER,PUBLIC :: plum3 = rgbcol(205,150,205) TYPE(rgbcol),PARAMETER,PUBLIC :: plum4 = rgbcol(139,102,139) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumOrchid1 = rgbcol(224,102,255) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumOrchid2 = rgbcol(209,95,238) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumOrchid3 = rgbcol(180,82,205) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumOrchid4 = rgbcol(122,55,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOrchid1 = rgbcol(191,62,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOrchid2 = rgbcol(178,58,238) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOrchid3 = rgbcol(154,50,205) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkOrchid4 = rgbcol(104,34,139) TYPE(rgbcol),PARAMETER,PUBLIC :: purple1 = rgbcol(155,48,255) TYPE(rgbcol),PARAMETER,PUBLIC :: purple2 = rgbcol(145,44,238) TYPE(rgbcol),PARAMETER,PUBLIC :: purple3 = rgbcol(125,38,205) TYPE(rgbcol),PARAMETER,PUBLIC :: purple4 = rgbcol(85,26,139) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumPurple1 = rgbcol(171,130,255) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumPurple2 = rgbcol(159,121,238) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumPurple3 = rgbcol(137,104,205) TYPE(rgbcol),PARAMETER,PUBLIC :: MediumPurple4 = rgbcol(93,71,139) TYPE(rgbcol),PARAMETER,PUBLIC :: thistle1 = rgbcol(255,225,255) TYPE(rgbcol),PARAMETER,PUBLIC :: thistle2 = rgbcol(238,210,238) TYPE(rgbcol),PARAMETER,PUBLIC :: thistle3 = rgbcol(205,181,205) TYPE(rgbcol),PARAMETER,PUBLIC :: thistle4 = rgbcol(139,123,139) TYPE(rgbcol),PARAMETER,PUBLIC :: gray0 = rgbcol(0,0,0) TYPE(rgbcol),PARAMETER,PUBLIC :: grey0 = rgbcol(0,0,0) TYPE(rgbcol),PARAMETER,PUBLIC :: gray1 = rgbcol(3,3,3) TYPE(rgbcol),PARAMETER,PUBLIC :: grey1 = rgbcol(3,3,3) TYPE(rgbcol),PARAMETER,PUBLIC :: gray2 = rgbcol(5,5,5) TYPE(rgbcol),PARAMETER,PUBLIC :: grey2 = rgbcol(5,5,5) TYPE(rgbcol),PARAMETER,PUBLIC :: gray3 = rgbcol(8,8,8) TYPE(rgbcol),PARAMETER,PUBLIC :: grey3 = rgbcol(8,8,8) TYPE(rgbcol),PARAMETER,PUBLIC :: gray4 = rgbcol(10,10,10) TYPE(rgbcol),PARAMETER,PUBLIC :: grey4 = rgbcol(10,10,10) TYPE(rgbcol),PARAMETER,PUBLIC :: gray5 = rgbcol(13,13,13) TYPE(rgbcol),PARAMETER,PUBLIC :: grey5 = rgbcol(13,13,13) TYPE(rgbcol),PARAMETER,PUBLIC :: gray6 = rgbcol(15,15,15) TYPE(rgbcol),PARAMETER,PUBLIC :: grey6 = rgbcol(15,15,15) TYPE(rgbcol),PARAMETER,PUBLIC :: gray7 = rgbcol(18,18,18) TYPE(rgbcol),PARAMETER,PUBLIC :: grey7 = rgbcol(18,18,18) TYPE(rgbcol),PARAMETER,PUBLIC :: gray8 = rgbcol(20,20,20) TYPE(rgbcol),PARAMETER,PUBLIC :: grey8 = rgbcol(20,20,20) TYPE(rgbcol),PARAMETER,PUBLIC :: gray9 = rgbcol(23,23,23) TYPE(rgbcol),PARAMETER,PUBLIC :: grey9 = rgbcol(23,23,23) TYPE(rgbcol),PARAMETER,PUBLIC :: gray10 = rgbcol(26,26,26) TYPE(rgbcol),PARAMETER,PUBLIC :: grey10 = rgbcol(26,26,26) TYPE(rgbcol),PARAMETER,PUBLIC :: gray11 = rgbcol(28,28,28) TYPE(rgbcol),PARAMETER,PUBLIC :: grey11 = rgbcol(28,28,28) TYPE(rgbcol),PARAMETER,PUBLIC :: gray12 = rgbcol(31,31,31) TYPE(rgbcol),PARAMETER,PUBLIC :: grey12 = rgbcol(31,31,31) TYPE(rgbcol),PARAMETER,PUBLIC :: gray13 = rgbcol(33,33,33) TYPE(rgbcol),PARAMETER,PUBLIC :: grey13 = rgbcol(33,33,33) TYPE(rgbcol),PARAMETER,PUBLIC :: gray14 = rgbcol(36,36,36) TYPE(rgbcol),PARAMETER,PUBLIC :: grey14 = rgbcol(36,36,36) TYPE(rgbcol),PARAMETER,PUBLIC :: gray15 = rgbcol(38,38,38) TYPE(rgbcol),PARAMETER,PUBLIC :: grey15 = rgbcol(38,38,38) TYPE(rgbcol),PARAMETER,PUBLIC :: gray16 = rgbcol(41,41,41) TYPE(rgbcol),PARAMETER,PUBLIC :: grey16 = rgbcol(41,41,41) TYPE(rgbcol),PARAMETER,PUBLIC :: gray17 = rgbcol(43,43,43) TYPE(rgbcol),PARAMETER,PUBLIC :: grey17 = rgbcol(43,43,43) TYPE(rgbcol),PARAMETER,PUBLIC :: gray18 = rgbcol(46,46,46) TYPE(rgbcol),PARAMETER,PUBLIC :: grey18 = rgbcol(46,46,46) TYPE(rgbcol),PARAMETER,PUBLIC :: gray19 = rgbcol(48,48,48) TYPE(rgbcol),PARAMETER,PUBLIC :: grey19 = rgbcol(48,48,48) TYPE(rgbcol),PARAMETER,PUBLIC :: gray20 = rgbcol(51,51,51) TYPE(rgbcol),PARAMETER,PUBLIC :: grey20 = rgbcol(51,51,51) TYPE(rgbcol),PARAMETER,PUBLIC :: gray21 = rgbcol(54,54,54) TYPE(rgbcol),PARAMETER,PUBLIC :: grey21 = rgbcol(54,54,54) TYPE(rgbcol),PARAMETER,PUBLIC :: gray22 = rgbcol(56,56,56) TYPE(rgbcol),PARAMETER,PUBLIC :: grey22 = rgbcol(56,56,56) TYPE(rgbcol),PARAMETER,PUBLIC :: gray23 = rgbcol(59,59,59) TYPE(rgbcol),PARAMETER,PUBLIC :: grey23 = rgbcol(59,59,59) TYPE(rgbcol),PARAMETER,PUBLIC :: gray24 = rgbcol(61,61,61) TYPE(rgbcol),PARAMETER,PUBLIC :: grey24 = rgbcol(61,61,61) TYPE(rgbcol),PARAMETER,PUBLIC :: gray25 = rgbcol(64,64,64) TYPE(rgbcol),PARAMETER,PUBLIC :: grey25 = rgbcol(64,64,64) TYPE(rgbcol),PARAMETER,PUBLIC :: gray26 = rgbcol(66,66,66) TYPE(rgbcol),PARAMETER,PUBLIC :: grey26 = rgbcol(66,66,66) TYPE(rgbcol),PARAMETER,PUBLIC :: gray27 = rgbcol(69,69,69) TYPE(rgbcol),PARAMETER,PUBLIC :: grey27 = rgbcol(69,69,69) TYPE(rgbcol),PARAMETER,PUBLIC :: gray28 = rgbcol(71,71,71) TYPE(rgbcol),PARAMETER,PUBLIC :: grey28 = rgbcol(71,71,71) TYPE(rgbcol),PARAMETER,PUBLIC :: gray29 = rgbcol(74,74,74) TYPE(rgbcol),PARAMETER,PUBLIC :: grey29 = rgbcol(74,74,74) TYPE(rgbcol),PARAMETER,PUBLIC :: gray30 = rgbcol(77,77,77) TYPE(rgbcol),PARAMETER,PUBLIC :: grey30 = rgbcol(77,77,77) TYPE(rgbcol),PARAMETER,PUBLIC :: gray31 = rgbcol(79,79,79) TYPE(rgbcol),PARAMETER,PUBLIC :: grey31 = rgbcol(79,79,79) TYPE(rgbcol),PARAMETER,PUBLIC :: gray32 = rgbcol(82,82,82) TYPE(rgbcol),PARAMETER,PUBLIC :: grey32 = rgbcol(82,82,82) TYPE(rgbcol),PARAMETER,PUBLIC :: gray33 = rgbcol(84,84,84) TYPE(rgbcol),PARAMETER,PUBLIC :: grey33 = rgbcol(84,84,84) TYPE(rgbcol),PARAMETER,PUBLIC :: gray34 = rgbcol(87,87,87) TYPE(rgbcol),PARAMETER,PUBLIC :: grey34 = rgbcol(87,87,87) TYPE(rgbcol),PARAMETER,PUBLIC :: gray35 = rgbcol(89,89,89) TYPE(rgbcol),PARAMETER,PUBLIC :: grey35 = rgbcol(89,89,89) TYPE(rgbcol),PARAMETER,PUBLIC :: gray36 = rgbcol(92,92,92) TYPE(rgbcol),PARAMETER,PUBLIC :: grey36 = rgbcol(92,92,92) TYPE(rgbcol),PARAMETER,PUBLIC :: gray37 = rgbcol(94,94,94) TYPE(rgbcol),PARAMETER,PUBLIC :: grey37 = rgbcol(94,94,94) TYPE(rgbcol),PARAMETER,PUBLIC :: gray38 = rgbcol(97,97,97) TYPE(rgbcol),PARAMETER,PUBLIC :: grey38 = rgbcol(97,97,97) TYPE(rgbcol),PARAMETER,PUBLIC :: gray39 = rgbcol(99,99,99) TYPE(rgbcol),PARAMETER,PUBLIC :: grey39 = rgbcol(99,99,99) TYPE(rgbcol),PARAMETER,PUBLIC :: gray40 = rgbcol(102,102,102) TYPE(rgbcol),PARAMETER,PUBLIC :: grey40 = rgbcol(102,102,102) TYPE(rgbcol),PARAMETER,PUBLIC :: gray41 = rgbcol(105,105,105) TYPE(rgbcol),PARAMETER,PUBLIC :: grey41 = rgbcol(105,105,105) TYPE(rgbcol),PARAMETER,PUBLIC :: gray42 = rgbcol(107,107,107) TYPE(rgbcol),PARAMETER,PUBLIC :: grey42 = rgbcol(107,107,107) TYPE(rgbcol),PARAMETER,PUBLIC :: gray43 = rgbcol(110,110,110) TYPE(rgbcol),PARAMETER,PUBLIC :: grey43 = rgbcol(110,110,110) TYPE(rgbcol),PARAMETER,PUBLIC :: gray44 = rgbcol(112,112,112) TYPE(rgbcol),PARAMETER,PUBLIC :: grey44 = rgbcol(112,112,112) TYPE(rgbcol),PARAMETER,PUBLIC :: gray45 = rgbcol(115,115,115) TYPE(rgbcol),PARAMETER,PUBLIC :: grey45 = rgbcol(115,115,115) TYPE(rgbcol),PARAMETER,PUBLIC :: gray46 = rgbcol(117,117,117) TYPE(rgbcol),PARAMETER,PUBLIC :: grey46 = rgbcol(117,117,117) TYPE(rgbcol),PARAMETER,PUBLIC :: gray47 = rgbcol(120,120,120) TYPE(rgbcol),PARAMETER,PUBLIC :: grey47 = rgbcol(120,120,120) TYPE(rgbcol),PARAMETER,PUBLIC :: gray48 = rgbcol(122,122,122) TYPE(rgbcol),PARAMETER,PUBLIC :: grey48 = rgbcol(122,122,122) TYPE(rgbcol),PARAMETER,PUBLIC :: gray49 = rgbcol(125,125,125) TYPE(rgbcol),PARAMETER,PUBLIC :: grey49 = rgbcol(125,125,125) TYPE(rgbcol),PARAMETER,PUBLIC :: gray50 = rgbcol(127,127,127) TYPE(rgbcol),PARAMETER,PUBLIC :: grey50 = rgbcol(127,127,127) TYPE(rgbcol),PARAMETER,PUBLIC :: gray51 = rgbcol(130,130,130) TYPE(rgbcol),PARAMETER,PUBLIC :: grey51 = rgbcol(130,130,130) TYPE(rgbcol),PARAMETER,PUBLIC :: gray52 = rgbcol(133,133,133) TYPE(rgbcol),PARAMETER,PUBLIC :: grey52 = rgbcol(133,133,133) TYPE(rgbcol),PARAMETER,PUBLIC :: gray53 = rgbcol(135,135,135) TYPE(rgbcol),PARAMETER,PUBLIC :: grey53 = rgbcol(135,135,135) TYPE(rgbcol),PARAMETER,PUBLIC :: gray54 = rgbcol(138,138,138) TYPE(rgbcol),PARAMETER,PUBLIC :: grey54 = rgbcol(138,138,138) TYPE(rgbcol),PARAMETER,PUBLIC :: gray55 = rgbcol(140,140,140) TYPE(rgbcol),PARAMETER,PUBLIC :: grey55 = rgbcol(140,140,140) TYPE(rgbcol),PARAMETER,PUBLIC :: gray56 = rgbcol(143,143,143) TYPE(rgbcol),PARAMETER,PUBLIC :: grey56 = rgbcol(143,143,143) TYPE(rgbcol),PARAMETER,PUBLIC :: gray57 = rgbcol(145,145,145) TYPE(rgbcol),PARAMETER,PUBLIC :: grey57 = rgbcol(145,145,145) TYPE(rgbcol),PARAMETER,PUBLIC :: gray58 = rgbcol(148,148,148) TYPE(rgbcol),PARAMETER,PUBLIC :: grey58 = rgbcol(148,148,148) TYPE(rgbcol),PARAMETER,PUBLIC :: gray59 = rgbcol(150,150,150) TYPE(rgbcol),PARAMETER,PUBLIC :: grey59 = rgbcol(150,150,150) TYPE(rgbcol),PARAMETER,PUBLIC :: gray60 = rgbcol(153,153,153) TYPE(rgbcol),PARAMETER,PUBLIC :: grey60 = rgbcol(153,153,153) TYPE(rgbcol),PARAMETER,PUBLIC :: gray61 = rgbcol(156,156,156) TYPE(rgbcol),PARAMETER,PUBLIC :: grey61 = rgbcol(156,156,156) TYPE(rgbcol),PARAMETER,PUBLIC :: gray62 = rgbcol(158,158,158) TYPE(rgbcol),PARAMETER,PUBLIC :: grey62 = rgbcol(158,158,158) TYPE(rgbcol),PARAMETER,PUBLIC :: gray63 = rgbcol(161,161,161) TYPE(rgbcol),PARAMETER,PUBLIC :: grey63 = rgbcol(161,161,161) TYPE(rgbcol),PARAMETER,PUBLIC :: gray64 = rgbcol(163,163,163) TYPE(rgbcol),PARAMETER,PUBLIC :: grey64 = rgbcol(163,163,163) TYPE(rgbcol),PARAMETER,PUBLIC :: gray65 = rgbcol(166,166,166) TYPE(rgbcol),PARAMETER,PUBLIC :: grey65 = rgbcol(166,166,166) TYPE(rgbcol),PARAMETER,PUBLIC :: gray66 = rgbcol(168,168,168) TYPE(rgbcol),PARAMETER,PUBLIC :: grey66 = rgbcol(168,168,168) TYPE(rgbcol),PARAMETER,PUBLIC :: gray67 = rgbcol(171,171,171) TYPE(rgbcol),PARAMETER,PUBLIC :: grey67 = rgbcol(171,171,171) TYPE(rgbcol),PARAMETER,PUBLIC :: gray68 = rgbcol(173,173,173) TYPE(rgbcol),PARAMETER,PUBLIC :: grey68 = rgbcol(173,173,173) TYPE(rgbcol),PARAMETER,PUBLIC :: gray69 = rgbcol(176,176,176) TYPE(rgbcol),PARAMETER,PUBLIC :: grey69 = rgbcol(176,176,176) TYPE(rgbcol),PARAMETER,PUBLIC :: gray70 = rgbcol(179,179,179) TYPE(rgbcol),PARAMETER,PUBLIC :: grey70 = rgbcol(179,179,179) TYPE(rgbcol),PARAMETER,PUBLIC :: gray71 = rgbcol(181,181,181) TYPE(rgbcol),PARAMETER,PUBLIC :: grey71 = rgbcol(181,181,181) TYPE(rgbcol),PARAMETER,PUBLIC :: gray72 = rgbcol(184,184,184) TYPE(rgbcol),PARAMETER,PUBLIC :: grey72 = rgbcol(184,184,184) TYPE(rgbcol),PARAMETER,PUBLIC :: gray73 = rgbcol(186,186,186) TYPE(rgbcol),PARAMETER,PUBLIC :: grey73 = rgbcol(186,186,186) TYPE(rgbcol),PARAMETER,PUBLIC :: gray74 = rgbcol(189,189,189) TYPE(rgbcol),PARAMETER,PUBLIC :: grey74 = rgbcol(189,189,189) TYPE(rgbcol),PARAMETER,PUBLIC :: gray75 = rgbcol(191,191,191) TYPE(rgbcol),PARAMETER,PUBLIC :: grey75 = rgbcol(191,191,191) TYPE(rgbcol),PARAMETER,PUBLIC :: gray76 = rgbcol(194,194,194) TYPE(rgbcol),PARAMETER,PUBLIC :: grey76 = rgbcol(194,194,194) TYPE(rgbcol),PARAMETER,PUBLIC :: gray77 = rgbcol(196,196,196) TYPE(rgbcol),PARAMETER,PUBLIC :: grey77 = rgbcol(196,196,196) TYPE(rgbcol),PARAMETER,PUBLIC :: gray78 = rgbcol(199,199,199) TYPE(rgbcol),PARAMETER,PUBLIC :: grey78 = rgbcol(199,199,199) TYPE(rgbcol),PARAMETER,PUBLIC :: gray79 = rgbcol(201,201,201) TYPE(rgbcol),PARAMETER,PUBLIC :: grey79 = rgbcol(201,201,201) TYPE(rgbcol),PARAMETER,PUBLIC :: gray80 = rgbcol(204,204,204) TYPE(rgbcol),PARAMETER,PUBLIC :: grey80 = rgbcol(204,204,204) TYPE(rgbcol),PARAMETER,PUBLIC :: gray81 = rgbcol(207,207,207) TYPE(rgbcol),PARAMETER,PUBLIC :: grey81 = rgbcol(207,207,207) TYPE(rgbcol),PARAMETER,PUBLIC :: gray82 = rgbcol(209,209,209) TYPE(rgbcol),PARAMETER,PUBLIC :: grey82 = rgbcol(209,209,209) TYPE(rgbcol),PARAMETER,PUBLIC :: gray83 = rgbcol(212,212,212) TYPE(rgbcol),PARAMETER,PUBLIC :: grey83 = rgbcol(212,212,212) TYPE(rgbcol),PARAMETER,PUBLIC :: gray84 = rgbcol(214,214,214) TYPE(rgbcol),PARAMETER,PUBLIC :: grey84 = rgbcol(214,214,214) TYPE(rgbcol),PARAMETER,PUBLIC :: gray85 = rgbcol(217,217,217) TYPE(rgbcol),PARAMETER,PUBLIC :: grey85 = rgbcol(217,217,217) TYPE(rgbcol),PARAMETER,PUBLIC :: gray86 = rgbcol(219,219,219) TYPE(rgbcol),PARAMETER,PUBLIC :: grey86 = rgbcol(219,219,219) TYPE(rgbcol),PARAMETER,PUBLIC :: gray87 = rgbcol(222,222,222) TYPE(rgbcol),PARAMETER,PUBLIC :: grey87 = rgbcol(222,222,222) TYPE(rgbcol),PARAMETER,PUBLIC :: gray88 = rgbcol(224,224,224) TYPE(rgbcol),PARAMETER,PUBLIC :: grey88 = rgbcol(224,224,224) TYPE(rgbcol),PARAMETER,PUBLIC :: gray89 = rgbcol(227,227,227) TYPE(rgbcol),PARAMETER,PUBLIC :: grey89 = rgbcol(227,227,227) TYPE(rgbcol),PARAMETER,PUBLIC :: gray90 = rgbcol(229,229,229) TYPE(rgbcol),PARAMETER,PUBLIC :: grey90 = rgbcol(229,229,229) TYPE(rgbcol),PARAMETER,PUBLIC :: gray91 = rgbcol(232,232,232) TYPE(rgbcol),PARAMETER,PUBLIC :: grey91 = rgbcol(232,232,232) TYPE(rgbcol),PARAMETER,PUBLIC :: gray92 = rgbcol(235,235,235) TYPE(rgbcol),PARAMETER,PUBLIC :: grey92 = rgbcol(235,235,235) TYPE(rgbcol),PARAMETER,PUBLIC :: gray93 = rgbcol(237,237,237) TYPE(rgbcol),PARAMETER,PUBLIC :: grey93 = rgbcol(237,237,237) TYPE(rgbcol),PARAMETER,PUBLIC :: gray94 = rgbcol(240,240,240) TYPE(rgbcol),PARAMETER,PUBLIC :: grey94 = rgbcol(240,240,240) TYPE(rgbcol),PARAMETER,PUBLIC :: gray95 = rgbcol(242,242,242) TYPE(rgbcol),PARAMETER,PUBLIC :: grey95 = rgbcol(242,242,242) TYPE(rgbcol),PARAMETER,PUBLIC :: gray96 = rgbcol(245,245,245) TYPE(rgbcol),PARAMETER,PUBLIC :: grey96 = rgbcol(245,245,245) TYPE(rgbcol),PARAMETER,PUBLIC :: gray97 = rgbcol(247,247,247) TYPE(rgbcol),PARAMETER,PUBLIC :: grey97 = rgbcol(247,247,247) TYPE(rgbcol),PARAMETER,PUBLIC :: gray98 = rgbcol(250,250,250) TYPE(rgbcol),PARAMETER,PUBLIC :: grey98 = rgbcol(250,250,250) TYPE(rgbcol),PARAMETER,PUBLIC :: gray99 = rgbcol(252,252,252) TYPE(rgbcol),PARAMETER,PUBLIC :: grey99 = rgbcol(252,252,252) TYPE(rgbcol),PARAMETER,PUBLIC :: gray100 = rgbcol(255,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: grey100 = rgbcol(255,255,255) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkGrey = rgbcol(169,169,169) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkGray = rgbcol(169,169,169) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkBlue = rgbcol(0,0,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkCyan = rgbcol(0,139,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkMagenta = rgbcol(139,0,139) TYPE(rgbcol),PARAMETER,PUBLIC :: DarkRed = rgbcol(139,0,0)