PBMiner Sources TopWiz/colors/PB105/f

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

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

global function long f_getcrayolacolor (string as_name);// Return the number for a named Crayola Crayon color

Long ll_color

Choose Case Upper(as_name)
   Case "ALMOND"
      ll_color = RGB(239,219,197)
   Case "ANTIQUE BRASS"
      ll_color = RGB(205,149,117)
   Case "APRICOT"
      ll_color = RGB(253,217,181)
   Case "AQUAMARINE"
      ll_color = RGB(120,219,226)
   Case "ASPARAGUS"
      ll_color = RGB(135,169,107)
   Case "ATOMIC TANGERINE"
      ll_color = RGB(255,164,116)
   Case "BANANA MANIA"
      ll_color = RGB(250,231,181)
   Case "BEAVER"
      ll_color = RGB(159,129,112)
   Case "BITTERSWEET"
      ll_color = RGB(253,124,110)
   Case "BLACK"
      ll_color = RGB(35,35,35)
   Case "BLUE"
      ll_color = RGB(31,117,254)
   Case "BLUE BELL"
      ll_color = RGB(173,173,214)
   Case "BLUE GREEN"
      ll_color = RGB(25,158,189)
   Case "BLUE VIOLET"
      ll_color = RGB(115,102,189)
   Case "BLUSH"
      ll_color = RGB(222,93,131)
   Case "BRICK RED"
      ll_color = RGB(203,65,84)
   Case "BROWN"
      ll_color = RGB(180,103,77)
   Case "BURNT ORANGE"
      ll_color =  RGB(255,127,73)
   Case "BURNT SIENNA"
      ll_color = RGB(234,126,93)
   Case "CADET BLUE"
      ll_color = RGB(176,183,198)
   Case "CANARY"
      ll_color = RGB(255,255,159)
   Case "CARIBBEAN GREEN"
      ll_color = RGB(28,211,162)
   Case "CARNATION PINK"
      ll_color = RGB(255,170,204)
   Case "CERISE"
      ll_color = RGB(221,68,146)
   Case "CERULEAN"
      ll_color = RGB(29,172,214)
   Case "CHESNUT"
      ll_color = RGB(188,93,88)
   Case "COPPER"
      ll_color = RGB(221,148,117)
   Case "CORNFLOWER"
      ll_color = RGB(154,206,235)
   Case "COTTON CANDY"
      ll_color = RGB(255,188,217)
   Case "DANDELION"
      ll_color = RGB(253,219,109)
   Case "DENIM"
      ll_color = RGB(43,108,196)
   Case "DESERT SAND"
      ll_color = RGB(239,205,184)
   Case "EGGPLANT"
      ll_color = RGB(110,81,96)
   Case "ELECTRIC LIME"
      ll_color = RGB(29,249,20)
   Case "FERN"
      ll_color = RGB(113,188,120)
   Case "FOREST GREEN"
      ll_color = RGB(109,174,129)
   Case "FUCHSIA"
      ll_color = RGB(195,100,197)
   Case "FUZZY WUZZY BROWN"
      ll_color = RGB(204,102,102)
   Case "GOLD"
      ll_color = RGB(231,198,151)
   Case "GOLDENROD"
      ll_color = RGB(255,217,117)
   Case "GRANNY SMITH APPLE"
      ll_color = RGB(168,228,160)
   Case "GRAY"
      ll_color = RGB(149,145,140)
   Case "GREEN"
      ll_color = RGB(28,172,120)
   Case "GREEN YELLOW"
      ll_color = RGB(240,232,145)
   Case "HOT MAGENTA"
      ll_color = RGB(255,29,206)
   Case "INCH WORM"
      ll_color = RGB(178,236,93)
   Case "INDIGO"
      ll_color = RGB(93,118,203)
   Case "JAZZBERRY JAM"
      ll_color = RGB(202,55,103)
   Case "JUNGLE GREEN"
      ll_color = RGB(59,176,143)
   Case "LASER LEMON"
      ll_color = RGB(253,252,116)
   Case "LAVENDER"
      ll_color = RGB(252,180,213)
   Case "MACARONI AND CHEESE"
      ll_color = RGB(255,189,136)
   Case "MAGENTA"
      ll_color = RGB(246,100,175)
   Case "MAHOGANY"
      ll_color = RGB(205,74,74)
   Case "MANATEE"
      ll_color = RGB(151,154,170)
   Case "MANGO TANGO"
      ll_color = RGB(255,130,67)
   Case "MAROON"
      ll_color = RGB(200,56,90)
   Case "MAUVELOUS"
      ll_color = RGB(239,152,170)
   Case "MELON"
      ll_color = RGB(253,188,180)
   Case "MIDNIGHT BLUE"
      ll_color = RGB(26,72,118)
   Case "MOUNTAIN MEADOW"
      ll_color = RGB(48,186,143)
   Case "NAVY BLUE"
      ll_color = RGB(25,116,210)
   Case "NEON CARROT"
      ll_color = RGB(255,163,67)
   Case "OLIVE GREEN"
      ll_color = RGB(186,184,108)
   Case "ORANGE"
      ll_color = RGB(255,117,56)
   Case "ORCHID"
      ll_color = RGB(230,168,215)
   Case "OUTER SPACE"
      ll_color = RGB(65,74,76)
   Case "OUTRAGEOUS ORANGE"
      ll_color = RGB(255,110,74)
   Case "PACIFIC BLUE"
      ll_color = RGB(28,169,201)
   Case "PEACH"
      ll_color = RGB(255,207,171)
   Case "PERIWINKLE"
      ll_color = RGB(197,208,230)
   Case "PIGGY PINK"
      ll_color = RGB(253,215,228)
   Case "PINE GREEN"
      ll_color = RGB(21,128,120)
   Case "PINK FLAMINGO"
      ll_color = RGB(252,116,253)
   Case "PINK SHERBET"
      ll_color = RGB(247,128,161)
   Case "PLUM"
      ll_color = RGB(142,69,133)
   Case "PURPLE HEART"
      ll_color = RGB(116,66,200)
   Case "PURPLE MOUNTAINS' MAGESTY"
      ll_color = RGB(157,129,186)
   Case "PURPLE PIZZA"
      ll_color = RGB(255,29,206)
   Case "RADICAL RED"
      ll_color = RGB(255,73,107)
   Case "RAW SIENNA"
      ll_color = RGB(214,138,89)
   Case "RAZZLE DAZZLE ROSE"
      ll_color = RGB(255,72,208)
   Case "RAZZMATAZZ"
      ll_color = RGB(227,37,107)
   Case "RED"
      ll_color = RGB(238,32,77)
   Case "RED ORANGE"
      ll_color = RGB(255,83,73)
   Case "RED VIOLET"
      ll_color = RGB(192,68,143)
   Case "ROBIN EGG BLUE"
      ll_color = RGB(31,206,203)
   Case "ROYAL PURPLE"
      ll_color = RGB(120,81,169)
   Case "SALMON"
      ll_color = RGB(255,155,170)
   Case "SCARLET"
      ll_color = RGB(242,40,71)
   Case "SCREAMIN GREEN"
      ll_color = RGB(118,255,122)
   Case "SEA GREEN"
      ll_color = RGB(159,226,191)
   Case "SEPIA"
      ll_color = RGB(165,105,79)
   Case "SHADOW"
      ll_color = RGB(138,121,93)
   Case "SHAMROCK"
      ll_color = RGB(69,206,162)
   Case "SHOCKING PINK"
      ll_color = RGB(251,126,253)
   Case "SILVER"
      ll_color = RGB(205,197,194)
   Case "SKY BLUE"
      ll_color = RGB(128,218,235)
   Case "SPRING GREEN"
      ll_color = RGB(236,234,190)
   Case "SUNGLOW"
      ll_color = RGB(255,207,72)
   Case "SUNSET ORANGE"
      ll_color = RGB(253,94,83)
   Case "TAN"
      ll_color = RGB(250,167,108)
   Case "TICKLE ME PINK"
      ll_color = RGB(252,137,172)
   Case "TIMBERWOLF"
      ll_color = RGB(219,215,210)
   Case "TROPICAL RAIN FOREST"
      ll_color = RGB(23,128,109)
   Case "TUMBLEWEED"
      ll_color = RGB(222,170,136)
   Case "TURQUOISE BLUE"
      ll_color = RGB(119,221,231)
   Case "UNMELLOW YELLOW"
      ll_color = RGB(253,252,116)
   Case "VIOLET", "PURPLE"
      ll_color = RGB(146,110,174)
   Case "VIOLET RED"
      ll_color = RGB(247,83,148)
   Case "VIVID TANGERINE"
      ll_color = RGB(255,160,137)
   Case "VIVID VIOLET"
      ll_color = RGB(143,80,157)
   Case "WHITE"
      ll_color = RGB(237,237,237)
   Case "WILD BLUE WONDER"
      ll_color = RGB(162,173,208)
   Case "WILD STRAWBERRY"
      ll_color = RGB(255,67,164)
   Case "WILD WATERMELON"
      ll_color = RGB(252,108,133)
   Case "WISTERIA"
      ll_color = RGB(205,164,222)
   Case "YELLOW"
      ll_color = RGB(252,232,131)
   Case "YELLOW GREEN"
      ll_color = RGB(197,227,132)
   Case "YELLOW ORANGE"
      ll_color = RGB(255,182,83)
   // Default to Black
   Case Else
      ll_color = RGB(35,35,35)   
End Choose

Return ll_color

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