-- | ReichsAusschuss für Lieferbedingungen (1927)
module Data.CG.Minus.Colour.RAL where

import Data.List {- base -}

import qualified Data.Colour as C {- colour -}
import qualified Data.Colour.CIE as C {- colour -}
import qualified Data.Colour.CIE.Illuminant as I {- colour -}
import qualified Data.Colour.SRGB as SRGB {- colour -}

ral_colour_data :: Fractional n => [(Int,n,n,n,String)]
ral_colour_data =
    [(1000,76.02,-0.37,27.64,"Green beige")
    ,(1001,74.99,5.1,24.64,"Beige")
    ,(1002,73.45,6.83,33.8,"Sand yellow")
    ,(1003,75.99,18.8,72.93,"Signal yellow")
    ,(1004,71.42,15.28,69.28,"Golden yellow")
    ,(1005,65.65,12.3,61.9,"Honey yellow")
    ,(1006,68.2,21.13,65.98,"Maize yellow")
    ,(1007,68.38,25.44,67.13,"Daffodil yellow")
    ,(1011,59.92,11.35,29.17,"Brown beige")
    ,(1012,75.04,4.64,61.31,"Lemon yellow")
    ,(1013,88.13,0.19,9.67,"Oyster white")
    ,(1014,81.22,2.47,22.88,"Ivory")
    ,(1015,86.4,2.06,15.48,"Light ivory")
    ,(1016,88.37,-9.78,71.3,"Sulfur yellow")
    ,(1017,76.32,19.37,51.02,"Saffron yellow")
    ,(1018,84.83,3.05,69.19,"Zinc yellow")
    ,(1019,62.62,4.31,12.94,"Grey beige")
    ,(1020,61.98,0.39,23.18,"Olive yellow")
    ,(1021,78.88,10.03,82.04,"Rape yellow")
    ,(1023,79.07,10.46,80.5,"Traffic yellow")
    ,(1024,64.2,7.95,36.66,"Ochre yellow")
    ,(1026,95.36,-21.56,120.18,"Luminous yellow")
    ,(1027,58.15,5.83,47.68,"Curry")
    ,(1028,74.97,29.64,79.69,"Melon yellow")
    ,(1032,72.32,12.16,66.97,"Broom yellow")
    ,(1033,73.2,26.5,63.47,"Dahlia yellow")
    ,(1034,72.73,21.4,45.09,"Pastel yellow")
    ,(1035,54.79,0.35,11.86,"Pearl beige")
    ,(1036,48.95,4.77,26.69,"Pearl gold")
    ,(1037,70.28,26.19,64.79,"Sun yellow")
    ,(2000,60.35,34.64,54.65,"Yellow orange")
    ,(2001,49.41,39.79,35.29,"Red orange")
    ,(2002,47.74,47.87,33.73,"Vermillion")
    ,(2003,66.02,41.22,52.36,"Pastel orange")
    ,(2004,56.89,50.34,49.81,"Pure orange")
    ,(2005,62.26,87.83,94.26,"Luminous orange")
    ,(2007,76.86,47.87,97.63,"Luminous bright orange")
    ,(2008,61.99,44.64,51.72,"Bright red orange")
    ,(2009,55.83,47.79,48.83,"Traffic orange")
    ,(2010,55.39,40.1,42.42,"Signal orange")
    ,(2011,61.76,38.16,52.39,"Deep orange")
    ,(2012,57.75,40.28,30.66,"Salmon orange")
    ,(2013,40.73,32.14,34.92,"Pearl orange")
    ,(3000,42.4,43.24,25,"Flame red")
    ,(3001,40.19,41.21,21.6,"Signal red")
    ,(3002,39.82,41.84,22.04,"Carmine red")
    ,(3003,35.59,35.87,15.75,"Ruby red")
    ,(3004,33.05,25.61,9.02,"Purple red")
    ,(3005,30.96,18.46,5.76,"Wine red")
    ,(3007,28.34,8.14,2.22,"Black red")
    ,(3009,35.05,19.93,11.53,"Oxide red")
    ,(3011,34.52,28.66,13.44,"Brown red")
    ,(3012,63.81,20.79,20.45,"Beige red")
    ,(3013,40.7,36.67,21.37,"Tomato red")
    ,(3014,60.17,32.49,12.58,"Antique pink")
    ,(3015,72.73,20.48,3.96,"Light pink")
    ,(3016,44.7,37.92,23.96,"Coral red")
    ,(3017,54.24,44.26,16.87,"Rose")
    ,(3018,50.77,49.15,19.86,"Strawberry red")
    ,(3020,44.66,52.03,32.26,"Traffic red")
    ,(3022,58.1,36.44,27.34,"Salmon pink")
    ,(3024,51.32,82.52,71.62,"Luminous red")
    ,(3026,54.38,86.26,76.07,"Luminous bright red")
    ,(3027,43.07,46.96,15.81,"Raspberry red")
    ,(3028,48.8,54.42,33.08,"Pure red")
    ,(3031,43.87,41.37,18.33,"Orient red")
    ,(3032,26.88,41.34,19.4,"Pearl ruby red")
    ,(3033,44.29,45.11,28.62,"Pearl pink")
    ,(4001,49.1,17.35,-12.85,"Red lilac")
    ,(4002,41.91,30.05,5.67,"Red violet")
    ,(4003,56.81,40.89,-5.53,"Heather violet")
    ,(4004,32.22,24.83,0.06,"Claret violet")
    ,(4005,50.92,15.38,-23.06,"Blue lilac")
    ,(4006,42.38,39.48,-14.94,"Traffic purple")
    ,(4007,30.05,13.16,-5.1,"Purple violet")
    ,(4008,44.82,29.08,-18.58,"Signal violet")
    ,(4009,60.59,10.38,-2.88,"Pastel violet")
    ,(4010,50.39,48.95,-4.24,"Telemagenta")
    ,(4011,47.92,18.89,-20.83,"Pearl violet")
    ,(4012,46.33,7.27,-11.94,"Pearl blackberry")
    ,(5000,38.3,1.9,-19.45,"Violet blue")
    ,(5001,35.43,-7.52,-16.65,"Green blue")
    ,(5002,33.11,8.43,-35.4,"Ultramarine blue")
    ,(5003,30.53,-0.37,-16.68,"Sapphire blue")
    ,(5004,26.56,-0.19,-4.07,"Black blue")
    ,(5005,38.35,-5.03,-32.56,"Signal blue")
    ,(5007,46.37,-6.24,-21.71,"Brilliant blue")
    ,(5008,32,-2.09,-6.07,"Grey blue")
    ,(5009,41.22,-9.56,-18.34,"Azure blue")
    ,(5010,36.57,-5.81,-28.94,"Gentian blue")
    ,(5011,28.21,-1.11,-8.72,"Steel blue")
    ,(5012,55.62,-13.84,-30.72,"Light blue")
    ,(5013,29.81,1.67,-17.2,"Cobalt blue")
    ,(5014,53.79,-2.64,-15.59,"Pigeon blue")
    ,(5015,51.13,-12.69,-34.21,"Sky blue")
    ,(5017,40.4,-10.67,-32,"Traffic blue")
    ,(5018,55.13,-27.27,-8.47,"Turquoise blue")
    ,(5019,41.18,-9.97,-25.87,"Capri blue")
    ,(5020,32.3,-13.01,-9.39,"Ocean blue")
    ,(5021,47.15,-29.26,-9.32,"Water blue")
    ,(5022,29.61,7.97,-21.5,"Night blue")
    ,(5023,47.64,-2.96,-21.18,"Distant blue")
    ,(5024,60.5,-9.53,-17.38,"Pastel blue")
    ,(5025,35.93,-11.81,-16.28,"Pearl Gentian blue")
    ,(5026,16,7.84,-29.1,"Pearl night blue")
    ,(6000,48.7,-20.58,4.64,"Patina green")
    ,(6001,43.86,-23.57,18.31,"Emerald green")
    ,(6002,39.87,-19.39,16.95,"Leaf green")
    ,(6003,39.25,-4.36,10.17,"Olive green")
    ,(6004,33.4,-13.17,-3.07,"Blue green")
    ,(6005,32.26,-13.69,2.85,"Moss green")
    ,(6006,33.04,-1.11,4.17,"Grey olive")
    ,(6007,30.42,-3.85,4.77,"Bottle green")
    ,(6008,29.82,-0.67,4.34,"Brown green")
    ,(6009,29.81,-5.74,3.12,"Fir green")
    ,(6010,46.05,-20.46,22.24,"Grass green")
    ,(6011,53.24,-11.61,14.48,"Reseda green")
    ,(6012,31.94,-4.36,-0.46,"Black green")
    ,(6013,52.3,-2.08,14.26,"Reed green")
    ,(6014,33.84,0.46,6.15,"Yellow olive")
    ,(6015,31.93,-1.44,2.99,"Black olive")
    ,(6016,42.92,-32.22,6.72,"Turquoise green")
    ,(6017,52.33,-23.24,26.15,"May green")
    ,(6018,59.83,-32.96,37.72,"Yellow green")
    ,(6019,81.42,-12.57,13.5,"Pastel green")
    ,(6020,34.77,-5.82,6.23,"Chrome green")
    ,(6021,63.69,-11.28,14.13,"Pale green")
    ,(6022,30.43,0.54,5.62,"Brown olive")
    ,(6024,51.81,-38.02,15.5,"Traffic green")
    ,(6025,47.45,-13.45,21.37,"Fern green")
    ,(6026,39.25,-29.43,0.67,"Opal green")
    ,(6027,72.8,-19.82,-3.62,"Light green")
    ,(6028,38.15,-12.86,3.82,"Pine green")
    ,(6029,44.18,-39.06,15.73,"Mint green")
    ,(6032,50.67,-33.25,14.76,"Signal green")
    ,(6033,54.93,-20.4,-2.06,"Mint turquoise")
    ,(6034,69.16,-15.95,-5.1,"Pastel turquoise")
    ,(6035,29.14,-29.19,16.35,"Pearl green")
    ,(6036,33.97,-29.04,0.68,"Pearl opal green")
    ,(6037,53.49,-46.77,34.32,"Pure green")
    ,(6038,63.64,-80.23,54,"Luminous green")
    ,(7000,58.32,-3.14,-4.71,"Squirrel grey")
    ,(7001,63.81,-2.22,-4.05,"Silver grey")
    ,(7002,54.51,-0.09,10.69,"Olive grey")
    ,(7003,52.32,-1.18,6.92,"Moss grey")
    ,(7004,65.77,0.2,-0.81,"Signal grey")
    ,(7005,50,-1.55,0.82,"Mouse grey")
    ,(7006,48.53,2.15,7.57,"Beige grey")
    ,(7008,45.91,3.34,17.92,"Khaki grey")
    ,(7009,43.19,-2.43,3.87,"Green grey")
    ,(7010,42.69,-2.09,2.04,"Tarpaulin grey")
    ,(7011,41.52,-1.68,-2.72,"Iron grey")
    ,(7012,44.34,-1.77,-1.71,"Basalt grey")
    ,(7013,39.21,0.59,6.33,"Brown-grey")
    ,(7015,40.5,-0.25,-3.4,"Slate grey")
    ,(7016,33.84,-1.33,-2.83,"Anthracite grey")
    ,(7021,30.65,-0.43,-1.22,"Black grey")
    ,(7022,37.75,-0.07,2.23,"Umbra grey")
    ,(7023,55.6,-1.45,4.52,"Concrete grey")
    ,(7024,36.97,-0.13,-3.32,"Graphite grey")
    ,(7026,34.71,-3.02,-2.48,"Granite grey")
    ,(7030,61.31,-0.26,4.53,"Stone grey")
    ,(7031,47.83,-2.96,-4.01,"Blue grey")
    ,(7032,73.39,-0.93,8.09,"Pebble grey")
    ,(7033,56.78,-3.36,6.32,"Cement grey")
    ,(7034,59.68,-0.1,12.74,"Yellow grey")
    ,(7035,81.29,-1.24,0.79,"Light grey")
    ,(7036,63.49,1.27,0.78,"Platinum grey")
    ,(7037,55.3,-0.46,0.22,"Dusty grey")
    ,(7038,72.97,-1.5,2.97,"Agate grey")
    ,(7039,47.86,0.17,4,"Quartz grey")
    ,(7040,66.63,-1.17,-2.82,"Window grey")
    ,(7042,62.58,-1.51,-0.21,"Traffic grey A")
    ,(7043,40.23,-1.28,0,"Traffic grey B")
    ,(7044,74.66,-0.04,5.08,"Silk grey")
    ,(7045,62.71,-1.24,-2.14,"Telegrey 1")
    ,(7046,57.75,-1.6,-3,"Telegrey 2")
    ,(7047,81.43,0.01,0.1,"Telegrey 4")
    ,(7048,54.55,-0.45,7.59,"Pearl mouse grey")
    --,(8000,,,,"Green brown")
    ,(8001,50.62,17.02,31.31,"Ochre brown")
    ,(8002,41.88,14.45,13.31,"Signal brown")
    ,(8003,42.56,15.59,21.67,"Clay brown")
    ,(8004,43.78,22.83,20.22,"Copper brown")
    ,(8007,38.99,12.62,17.08,"Fawn brown")
    ,(8008,41.1,10.45,19.33,"Olive brown")
    ,(8011,33.98,10.04,10.97,"Nut brown")
    ,(8012,34.39,17.06,10.17,"Red brown")
    ,(8014,31.99,4.77,7.71,"Sepia brown")
    ,(8015,33.52,15.02,9.25,"Chestnut brown")
    ,(8016,31.19,9.63,7.56,"Mahogany brown")
    ,(8017,30.6,5.99,4.34,"Chocolate brown")
    ,(8019,31.46,2.12,1.1,"Grey brown")
    ,(8022,25.08,1.18,0.67,"Black brown")
    ,(8023,49.37,24.91,30.25,"Orange brown")
    ,(8024,42.93,11.88,15.9,"Beige brown")
    ,(8025,44,7.95,11.73,"Pale brown")
    ,(8028,34.19,5.72,8.58,"Terra brown")
    ,(8029,35.06,25.58,27.32,"Pearl copper")
    ,(9001,90.4,0.66,6.64,"Cream")
    ,(9002,86.05,-0.89,4.21,"Grey white")
    ,(9003,94.13,-0.55,0.81,"Signal white")
    ,(9004,28.66,0.24,-0.66,"Signal black")
    ,(9005,25.33,0.13,-0.16,"Jet black")
    ,(9006,67.77,-0.58,0.76,"White aluminium")
    ,(9007,59.39,0.01,2.34,"Grey aluminium")
    ,(9010,94.57,-0.47,4.14,"Pure white")
    ,(9011,26.54,-0.05,-1.13,"Graphite black")
    ,(9016,95.26,-0.76,2.11,"Traffic white")
    ,(9017,27.25,0.44,0.51,"Traffic black")
    ,(9018,82.71,-2.06,1.93,"Papyrus white")
    ,(9022,65.38,-0.43,0.34,"Pearl light grey")
    ,(9023,57.32,-0.31,-0.98,"Pearl dark grey")]

ral_colour_tbl :: [(Int, String, SRGB.Colour Double)]
ral_colour_tbl =
    let f (k,l,a,b,nm) = (k,nm,C.cieLAB I.d65 l a b)
    in map f ral_colour_data

-- > let Just (_,_,c) = ral_lookup_name "Sepia brown"
-- > SRGB.sRGB24show c == "#57483f"
ral_lookup_name :: String -> Maybe (Int, String, C.Colour Double)
ral_lookup_name nm = find (\(_,nm',_) -> nm == nm') ral_colour_tbl