PBMiner Sources TopWiz/colors/PB105/f

Sources
TopWiz
colors
PB105
f_getwebcolor.srf
File: f_getwebcolor.srf
Size: 8894
Date: Sun, 03 Feb 2019 04:28:38 +0100
$PBExportHeader$f_getwebcolor.srf
global type f_getwebcolor from function_object
end type

forward prototypes
global function long f_getwebcolor (string as_name)
end prototypes

global function long f_getwebcolor (string as_name);// Return the number for a named Web color

Long ll_color

Choose Case Upper(as_name)
   // Web Color Pinks
   Case "PINK"
      ll_color = RGB(255,192,203)
   Case "LIGHT PINK", "LIGHTPINK"
      ll_color = RGB(255,182,193)
   Case "HOT PINK", "HOTPINK"
      ll_color = RGB(255,105,180)
   Case "DEEP PINK", "DEEPPINK"
      ll_color = RGB(255,20,147)
   Case "PALE VIOLET RED", "PALEVIOLETRED"
      ll_color = RGB(219,112,147)
   Case "MEDIUM VIOLET RED", "MEDIUMVIOLETRED"
      ll_color = RGB(199,21,13)
   // Web Colors Red
   Case "LIGHT SALMON", "LIGHTSALMON"
      ll_color = RGB(255,160,122)
   Case "SALMON"
      ll_color = RGB(250,128,114)
   Case "DARK SALMON", "DARKSALMON"
      ll_color = RGB(233,150,122)
   Case "LIGHT CORAL", "LIGHTCORAL"
      ll_color = RGB(240,128,128)
   Case "INDIAN RED", "INDIANRED"
      ll_color = RGB(205,92,92)
   Case "CRIMSON"
      ll_color = RGB(220,20,60)
   Case "FIRE BRICK", "FIREBRICK"
      ll_color = RGB(178,34,34)
   Case "DARK RED", "DARKRED"
      ll_color = RGB(139,0,0)
   Case "RED"
      ll_color = RGB(255,0,0)
   // Web Color Oranges
   Case "ORANGE RED", "ORANGERED"
      ll_color = RGB(255,69,0)
   Case "TOMATO"
      ll_color = RGB(255,99,71)
   Case "CORAL"
      ll_color = RGB(255,127,80)
   Case "DARK ORANGE", "DARKORANGE"
      ll_color = RGB(255,140,0)
   Case "ORANGE"
      ll_color = RGB(255,165,0)
   // Web Color Yellows
   Case "YELLOW"
      ll_color = RGB(255,255,0)
   Case "LIGHT YELLOW", "LIGHTYELLOW"
      ll_color = RGB(255,255,224)
   Case "LEMON CHIFFON", "LEMONCHIFFON"
      ll_color = RGB(255,250,205)
   Case "LIGHT GOLDENROD YELLOW", "LIGHTGOLDENRODYELLOW"
      ll_color = RGB(250,250,210)
   Case "PAPAYA WHIP", "PAPAYAWHIP"
      ll_color = RGB(255,239,213)
   Case "MOCCASIN"
      ll_color = RGB(255,228,181)
   Case "PEACH PUFF", "PEACHPUFF"
      ll_color = RGB(255,218,185)
   Case "PALE GOLDENROD", "PALEGOLDENROD"
      ll_color = RGB(238,232,170)
   Case "KHAKI"
      ll_color = RGB(240,230,140)
   Case "DARK KHAKI", "DARKKHAKI"
      ll_color = RGB(189,183,107)
   Case "GOLD"
      ll_color = RGB(255,215,0)
   // Web Color Browns
   Case "CORN SILK", "CORNSILK"
      ll_color = RGB(255,248,220)
   Case "BLANCHED ALMOND", "BLANCHEDALMOND"
      ll_color = RGB(255,235,205)
   Case "BISQUE"
      ll_color = RGB(255,228,196)
   Case "NAVAJO WHITE", "NAVAJOWHITE"
      ll_color = RGB(255,222,173)
   Case "WHEAT"
      ll_color = RGB(245,222,179)
   Case "BURLYWOOD"
      ll_color = RGB(222,184,135)
   Case "TAN"
      ll_color = RGB(210,180,140)
   Case "ROSY BROWN", "ROSYBROWN"
      ll_color = RGB(188,143,143)
   Case "SANDY BROWN", "SANDYBROWN"
      ll_color = RGB(244,164,96)
   Case "GOLDENROD"
      ll_color = RGB(218,165,32)
   Case "DARK GOLDENROD", "DARKGOLDENROD"
      ll_color = RGB(184,134,11)
   Case "PERU"
      ll_color = RGB(205,133,63)
   Case "CHOCOLATE"
      ll_color = RGB(210,105,30)
   Case "SADDLE BROWN", "SADDLEBROWN"
      ll_color = RGB(139,69,19)
   Case "SIENNA"
      ll_color = RGB(160,82,45)
   Case "BROWN"
      ll_color = RGB(165,42,42)
   Case "MAROON"
      ll_color = RGB(128,0,0)
   // Web Color Greens
   Case "DARK OLIVE GREEN", "DARKOLIVEGREEN"
      ll_color = RGB(85,107,47)
   Case "OLIVE"
      ll_color = RGB(128,128,0)
   Case "OLIVE DRAB", "OLIVEDRAB"
      ll_color = RGB(107,142,35)
   Case "YELLOW GREEN", "YELLOWGREEN"
      ll_color = RGB(154,205,50)
   Case "LIME GREEN", "LIMEGREEN"
      ll_color = RGB(50,205,50)
   Case "LIME"
      ll_color = RGB(0,255,0)
   Case "LAWN GREEN", "LAWNGREEN"
      ll_color = RGB(124,252,0)
   Case "CHARTREUSE"
      ll_color = RGB(127,255,0)
   Case "GREEN YELLOW", "GREENYELLOW"
      ll_color = RGB(173,255,47)
   Case "SPRING GREEN", "SPRINGGREEN"
      ll_color = RGB(0,255,127)
   Case "MEDIUM SPRING GREEN", "MEDIUMSPRINGGREEN"
      ll_color = RGB(0,250,154)
   Case "LIGHT GREEN", "LIGHTGREEN"
      ll_color = RGB(144,238,144)
   Case "PALE GREEN", "PALEGREEN"
      ll_color = RGB(152,251,152)
   Case "DARK SEA GREEN", "DARKSEAGREEN"
      ll_color = RGB(143,188,143)
   Case "MEDIUM SEA GREEN"
      ll_color = RGB(60,179,113)
   Case "SEA GREEN", "SEAGREEN"
      ll_color = RGB(46,139,87)
   Case "FOREST GREEN", "FORESTGREEN"
      ll_color = RGB(34,139,34)
   Case "GREEN"
      ll_color = RGB(0,128,0)
   Case "DARK GREEN", "DARKGREEN"
      ll_color = RGB(0,100,0)
   // Web Color Cyans
   Case "MEDIUM AQUAMARINE", "MEDIUMAQUAMARINE"
      ll_color = RGB(102,205,170)
   Case "AQUA"
      ll_color = RGB(0,255,255)
   Case "CYAN"
      ll_color = RGB(0,255,255)
   Case "LIGHT CYAN", "LIGHTCYAN"
      ll_color = RGB(224,255,255)
   Case "PALE TURQUOISE", "PALETURQUOISE"
      ll_color = RGB(175,238,238)
   Case "AQUAMARINE"
      ll_color = RGB(127,255,212)
   Case "TURQUOISE"
      ll_color = RGB(64,224,208)
   Case "MEDIUM TURQUOISE", "MEDIUMTURQUOISE"
      ll_color = RGB(72,209,204)
   Case "DARK TURQUOISE", "DARKTURQUOISE"
      ll_color = RGB(0,206,209)
   Case "LIGHT SEA GREEN", "LIGHTSEAGREEN"
      ll_color = RGB(32,178,170)
   Case "CADET BLUE", "CADETBLUE"
      ll_color = RGB(95,158,160)
   Case "DARK CYAN", "DARKCYAN"
      ll_color = RGB(0,139,139)
   Case "TEAL"
      ll_color = RGB(0,128,128)
   // Web Color Blues
   Case "LIGHT STEEL BLUE", "LIGHTSTEELBLUE"
      ll_color = RGB(176,196,222)
   Case "POWDER BLUE", "POWDERBLUE"
      ll_color = RGB(176,224,230)
   Case "LIGHT BLUE", "LIGHTBLUE"
      ll_color = RGB(173,216,230)
   Case "SKY BLUE", "SKYBLUE"
      ll_color = RGB(135,206,235)
   Case "LIGHT SKY BLUE", "LIGHTSKYBLUE"
      ll_color = RGB(135,206,250)
   Case "DEEP SKY BLUE", "DEEPSKYBLUE"
      ll_color = RGB(0,191,255)
   Case "DODGER BLUE", "DODGERBLUE"
      ll_color = RGB(30,144,255)
   Case "CORNFLOWER BLUE", "CORNFLOWERBLUE"
      ll_color = RGB(100,149,237)
   Case "STEEL BLUE", "STEELBLUE"
      ll_color = RGB(70,130,180)
   Case "ROYAL BLUE", "ROYALBLUE"
      ll_color = RGB(65,105,225)
   Case "BLUE"
      ll_color = RGB(0,0,255)
   Case "MEDIUM BLUE", "MEDIUMBLUE"
      ll_color = RGB(0,0,205)
   Case "DARK BLUE", "DARKBLUE"
      ll_color = RGB(0,0,139)
   Case "NAVY"
      ll_color = RGB(0,0,128)
   Case "MIDNIGHT BLUE", "MIDNIGHTBLUE"
      ll_color = RGB(25,25,112)
   // Web Color Purples
   Case "LAVENDER"
      ll_color = RGB(230,230,250)
   Case "THISTLE"
      ll_color = RGB(216,191,216)
   Case "PLUM"
      ll_color = RGB(221,160,221)
   Case "VIOLET"
      ll_color = RGB(238,130,238)
   Case "ORCHID"
      ll_color = RGB(218,112,214)
   Case "FUCHSIA"
      ll_color = RGB(255,0,255)
   Case "MAGENTA"
      ll_color = RGB(255,0,255)
   Case "MEDIUM ORCHID", "MEDIUMORCHID"
      ll_color = RGB(186,85,211)
   Case "MEDIUM PURPLE", "MEDIUMPURPLE"
      ll_color = RGB(147,112,219)
   Case "BLUE VIOLET", "BLUEVIOLET"
      ll_color = RGB(138,43,226)
   Case "DARK VIOLET", "DARKVIOLET"
      ll_color = RGB(148,0,211)
   Case "DARK ORCHID", "DARKORCHID"
      ll_color = RGB(153,50,204)
   Case "DARK MAGENTA", "DARKMAGENTA"
      ll_color = RGB(139,0,139)
   Case "PURPLE"
      ll_color = RGB(128,0,128)
   Case "INDIGO"
      ll_color = RGB(75,0,130)
   Case "DARK SLATE BLUE", "DARKSLATEBLUE"
      ll_color = RGB(72,61,139)
   Case "SLATE BLUE", "SLATEBLUE"
      ll_color = RGB(106,90,205)
   Case "MEDIUM SLATE BLUE", "MEDIUMSLATEBLUE"
      ll_color = RGB(123,104,238)
   // Web Color Whites
   Case "WHITE"
      ll_color = RGB(255,255,255)
   Case "SNOW"
      ll_color = RGB(255,250,250)
   Case "HONEYDEW"
      ll_color = RGB(240,255,240)
   Case "MINT CREAM", "MINTCREAM"
      ll_color = RGB(245,255,250)
   Case "AZURE"
      ll_color = RGB(240,255,255)
   Case "ALICE BLUE", "ALICEBLUE"
      ll_color = RGB(240,248,255)
   Case "GHOST WHITE", "GHOSTWHITE"
      ll_color = RGB(248,248,255)
   Case "WHITE SMOKE", "WHITESMOKE"
      ll_color = RGB(245,245,245)
   Case "SEASHELL"
      ll_color = RGB(255,245,238)
   Case "BEIGE"
      ll_color = RGB(245,245,220)
   Case "OLD LACE", "OLDLACE"
      ll_color = RGB(253,245,230)
   Case "FLORAL WHITE", "FLORALWHITE"
      ll_color = RGB(255,250,240)
   Case "IVORY"
      ll_color = RGB(255,255,240)
   Case "ANTIQUE WHITE", "ANTIQUEWHITE"
      ll_color = RGB(250,235,215)
   Case "LINEN"
      ll_color = RGB(250,240,230)
   Case "LAVENDER BLUSH", "LAVENDERBLUSH"
      ll_color = RGB(255,240,245)
   Case "MISTY ROSE", "MISTYROSE"
      ll_color = RGB(255,228,225)
   // Web Color Grays/blacks
   Case "GAINSBORO"
      ll_color = RGB(220,220,220)
   Case "LIGHT GRAY", "LIGHTGRAY"
      ll_color = RGB(211,211,211)
   Case "SILVER"
      ll_color = RGB(192,192,192)
   Case "DARK GRAY", "DARKGRAY"
      ll_color = RGB(169,169,169)
   Case "GRAY"
      ll_color = RGB(128,128,128)
   Case "DIM GRAY", "DIMGRAY"
      ll_color = RGB(105,105,105)
   Case "LIGHT SLATE GRAY", "LIGHTSLATEGRAY"
      ll_color = RGB(119,136,153)
   Case "SLATE GRAY", "SLATEGRAY"
      ll_color = RGB(112,128,144)
   Case "DARK SLATE GRAY", "DARKSLATEGRAY"
      ll_color = RGB(47,79,79)
   Case "BLACK"
      ll_color = RGB(0,0,0)
   // Default White
   Case Else
      ll_color = RGB(255, 255, 255)
End Choose

Return ll_color

end function
function_object f_getwebcolor(srf)
- f_getwebcolor (string as_name) returns long