R/wash.showall.R

In phalen: Phalen Algorithms and Functions

wash.showall <-
function() {
  wash.base = list(
    grd1 = c('#50B946','#55BA48','#5ABC4B','#60BE4E','#65C051','#6AC254','#70C457','#75C559','#7AC75C','#80C95F','#85CB62','#8ACD65','#90CF68','#95D06A','#9AD26D','#A0D470','#A5D673','#AAD876','#B0DA79','#B5DB7B','#BADD7E','#C0DF81','#C5E184','#CAE387','#D0E58A','#D5E68C','#DAE88F','#E0EA92','#E5EC95','#EAEE98','#F0F09B','#F0EA97','#EFE492','#EEDE8E','#EED889','#EDD185','#ECCB80','#EBC57C','#EBBF77','#EAB872','#E9B26E','#E8AC69','#E8A665','#E79F60','#E6995C','#E59357','#E58D52','#E4874E','#E38049','#E37A45','#E27440','#E16E3C','#E06737','#E06132','#DF5B2E','#DE5529','#DD4E25','#DD4820','#DC421C','#DB3C17','#DA3512')
    ,grd2 = c('#7ACA74','#7DCB75','#81CC76','#85CD77','#89CF79','#8DD07A','#91D17B','#95D27D','#99D47E','#9DD57F','#A1D681','#A5D782','#A9D983','#ADDA84','#B1DB86','#B5DD87','#B8DE88','#BCDF8A','#C0E08B','#C4E28C','#C8E38E','#CCE48F','#D0E590','#D4E791','#D8E893','#DCE994','#E0EA95','#E4EC97','#E8ED98','#ECEE99','#F0F09B','#F0EC99','#F0E896','#F0E393','#F0DF91','#F0DA8E','#F0D68C','#F0D189','#F0CD86','#F0C883','#F0C481','#F0BF7E','#F0BB7C','#F0B679','#F0B176','#F0AD73','#F0A971','#F0A46E','#F09F6B','#F09B69','#F09766','#F09263','#F08D61','#F0895E','#F0845B','#F08059','#F07B56','#F07753','#F07251','#F06E4E','#F0694B')
    ,blu1 = c('#DBF1FB','#D9F1FB','#D7F0FB','#D4EFFB','#D2EEFA','#D0EDFA','#CDECFA','#CBEBFA','#C9EBF9','#C6EAF9','#C4E9F9','#C1E8F9','#BFE7F8','#BDE6F8','#BAE5F8','#B8E4F7','#B6E4F7','#B3E3F7','#B1E2F7','#AFE1F6','#ACE0F6','#AADFF6','#A7DEF6','#A5DEF5','#A3DDF5','#A0DCF5','#9EDBF5','#9CDAF4','#99D9F4','#97D8F4','#94D7F3','#90D5F2','#8CD4F1','#88D1F0','#84D0EF','#80CDEE','#7CCCED','#78C9EC','#73C8EB','#6FC5EA','#6BC4E9','#67C1E8','#63C0E7','#5FBDE6','#5BBBE5','#56B9E3','#52B8E2','#4EB5E1','#4AB3E0','#46B1DF','#42B0DE','#3EADDD','#3AABDC','#35A9DB','#31A7DA','#2DA5D9','#29A3D8','#25A2D7','#219FD6','#1D9DD5','#189BD3')
    ,blu2 = c('#C1EEFF','#BEEDFF','#BAECFF','#B6EBFF','#B2EAFF','#AEE9FF','#AAE8FF','#A6E7FF','#A2E6FF','#9EE5FF','#9AE3FF','#96E2FF','#92E1FF','#8EE0FF','#8ADFFF','#86DEFF','#82DDFF','#7EDCFF','#7ADBFF','#76DAFF','#72D8FF','#6ED7FF','#6AD6FF','#66D5FF','#62D4FF','#5ED3FF','#5AD2FF','#56D1FF','#52D0FF','#4ECFFF','#4ACDFF','#48CAFC','#46C7F9','#43C4F6','#41C1F2','#3EBEEF','#3CBBEC','#39B8E9','#37B5E5','#34B2E2','#32AFDF','#2FACDC','#2DA9D8','#2AA6D5','#28A3D2','#25A0CE','#239DCB','#219AC8','#1E97C5','#1C94C1','#1991BE','#178EBB','#148BB8','#1288B4','#0F85B1','#0D82AE','#0A7FAB','#087CA7','#0579A4','#0376A1','#00729D')
    ,grn1 = c('#E2F1D8','#E1F1D6','#DFF0D3','#DDEFD1','#DBEECE','#D9EDCB','#D7ECC9','#D5EBC6','#D3EAC4','#D1E9C1','#CFE8BE','#CDE7BC','#CBE6B9','#C9E5B7','#C7E4B4','#C5E3B1','#C4E3AF','#C2E2AC','#C0E1AA','#BEE0A7','#BCDFA4','#BADEA2','#B8DD9F','#B6DC9D','#B4DB9A','#B2DA97','#B0D995','#AED892','#ACD790','#AAD68D','#A8D58A','#A7D488','#A5D386','#A3D283','#A1D181','#9FD07E','#9DCF7C','#9BCE79','#99CD77','#97CC75','#95CB72','#93C970','#91C86D','#8FC76B','#8DC668','#8BC566','#8AC464','#88C361','#86C25F','#84C15C','#82C05A','#80BE57','#7EBD55','#7CBC53','#7ABB50','#78BA4E','#76B94B','#74B849','#72B746','#70B644','#6EB441')
    ,grn2 = c('#DCF1DA','#DAF1D8','#D8F0D6','#D5EFD3','#D3EED1','#D1EDCE','#CEECCC','#CCEBC9','#CAEAC7','#C7E9C5','#C5E8C2','#C3E7C0','#C0E6BD','#BEE5BB','#BCE4B8','#B9E3B6','#B7E3B4','#B5E2B1','#B2E1AF','#B0E0AC','#AEDFAA','#ABDEA7','#A9DDA5','#A7DCA3','#A4DBA0','#A2DA9E','#A0D99B','#9DD899','#9BD796','#99D694','#96D591','#94D58F','#92D48D','#8FD38A','#8DD288','#8BD185','#89D083','#86CF80','#84CE7E','#81CD7B','#7FCC79','#7DCB76','#7BCA74','#78C971','#76C86E','#73C76C','#71C76A','#6FC667','#6CC564','#6AC462','#68C360','#65C25D','#63C15A','#61C058','#5EBF55','#5CBE53','#5ABD50','#58BC4E','#55BB4B','#53BA49','#50B946')
    ,ylw = c('#FAFADE','#FAFADC','#FAFADA','#F9F9D8','#F9F9D6','#F9F9D3','#F8F8D1','#F8F8CF','#F8F8CD','#F7F7CA','#F7F7C8','#F7F7C6','#F6F6C4','#F6F6C1','#F6F6BF','#F5F5BD','#F5F5BB','#F5F5B9','#F4F4B6','#F4F4B4','#F4F4B2','#F3F3B0','#F3F3AD','#F3F3AB','#F2F2A9','#F2F2A7','#F2F2A4','#F1F1A2','#F1F1A0','#F1F19E','#F0F09B','#F0F099','#F0F097','#EFEF95','#EFEF93','#EFEF91','#EFEF8F','#EEEE8C','#EEEE8A','#EDED88','#EDED86','#EDED84','#EDED82','#ECEC7F','#ECEC7D','#EBEB7B','#EBEB79','#EBEB77','#EAEA74','#EAEA72','#EAEA70','#E9E96E','#E9E96C','#E9E96A','#E8E867','#E8E865','#E8E863','#E7E761','#E7E75F','#E7E75D','#E6E65A')
    ,org = c('#FFF5B9','#FFF5B8','#FFF5B6','#FFF4B4','#FFF4B2','#FFF4B0','#FFF3AE','#FFF3AD','#FFF3AB','#FFF2A9','#FFF2A7','#FFF2A5','#FFF1A3','#FFF1A2','#FFF1A0','#FFF09E','#FFF09C','#FFF09A','#FFEF98','#FFEF97','#FFEF95','#FFEE93','#FFEE91','#FFEE8F','#FFED8D','#FFED8C','#FFED8A','#FFEC88','#FFEC86','#FFEC84','#FFEB82','#FFE87F','#FFE57C','#FEE278','#FEDF75','#FEDC72','#FED96F','#FDD56B','#FDD268','#FCCF64','#FCCC61','#FCC95E','#FCC65B','#FBC257','#FBBF54','#FABC50','#FAB94D','#FAB64A','#F9B246','#F9AF43','#F9AC40','#F8A93C','#F8A639','#F8A336','#F79F32','#F79C2F','#F7992C','#F69629','#F69325','#F69022','#F58C1E')
    ,red1 = c('#FFEB82','#FFE87F','#FFE57C','#FEE278','#FEDF75','#FEDC72','#FDD86E','#FDD56B','#FDD268','#FCCF64','#FCCC61','#FCC95E','#FBC55A','#FBC257','#FBBF54','#FABC50','#FAB94D','#FAB64A','#F9B246','#F9AF43','#F9AC40','#F8A93C','#F8A639','#F8A336','#F79F32','#F79C2F','#F7992C','#F69628','#F69325','#F69022','#F58C1E','#F58A1E','#F4871E','#F3841D','#F2811D','#F17E1C','#F07B1C','#EF781C','#EE751B','#ED721B','#ED701B','#EC6D1A','#EB6A1A','#EA6719','#E96419','#E86118','#E75E18','#E65B18','#E55817','#E45517','#E45317','#E35016','#E24D16','#E14A15','#E04715','#DF4414','#DE4114','#DD3E14','#DC3B13','#DB3813','#DA3512')
    ,red2 = c('#FCE0DA','#FCDED8','#FCDCD6','#FCDAD3','#FCD8D1','#FBD6CE','#FBD4CC','#FBD2CA','#FBD0C7','#FACEC5','#FACCC2','#FACAC0','#FAC8BE','#F9C6BB','#F9C4B9','#F9C2B6','#F9C0B4','#F9BEB2','#F8BCAF','#F8BAAD','#F8B8AA','#F8B6A8','#F7B4A6','#F7B2A3','#F7B0A1','#F7AE9E','#F6AC9C','#F6AA9A','#F6A897','#F6A695','#F5A392','#F5A08E','#F49C8A','#F39886','#F29581','#F1917D','#F08E79','#EF8A75','#EE8670','#ED826C','#ED7F68','#EC7B64','#EB785F','#EA745B','#E97057','#E86C52','#E7694E','#E6654A','#E56146','#E45E41','#E45A3D','#E35639','#E25335','#E14F30','#E04B2C','#DF4828','#DE4424','#DD411F','#DC3D1B','#DB3917','#DA3512')
    ,prp1 = c('#F3EDF5','#F2EBF4','#F1E9F3','#EFE7F2','#EEE5F1','#ECE2F0','#EBE0EE','#E9DEED','#E8DCEC','#E7D9EB','#E5D7EA','#E4D5E9','#E2D3E7','#E1D0E6','#DFCEE5','#DECCE4','#DDCAE3','#DBC8E2','#DAC5E0','#D8C3DF','#D7C1DE','#D5BFDD','#D4BCDC','#D3BADB','#D1B8D9','#D0B6D8','#CEB3D7','#CDB1D6','#CBAFD5','#CAADD4','#C8AAD2','#C7A8D1','#C6A6D0','#C4A4CF','#C3A2CE','#C2A0CD','#C19ECC','#BF9CCB','#BE9ACA','#BC98C9','#BB96C8','#BA93C6','#B991C5','#B78FC4','#B68DC3','#B48BC2','#B389C1','#B287C0','#B085BF','#AF83BE','#AE81BD','#AC7EBB','#AB7CBA','#AA7AB9','#A878B8','#A776B7','#A674B6','#A472B5','#A370B4','#A26EB3','#A06BB1')
    ,prp2 = c('#DCD6E4','#DBD5E3','#D9D3E2','#D7D1E1','#D6CFDF','#D4CDDE','#D2CBDD','#D1C9DC','#CFC7DA','#CDC5D9','#CCC3D8','#CAC1D7','#C8BFD5','#C7BDD4','#C5BBD3','#C3B9D1','#C2B7D0','#C0B5CF','#BEB3CE','#BDB1CC','#BBAFCB','#B9ADCA','#B8ABC9','#B6A9C7','#B4A7C6','#B3A5C5','#B1A3C4','#AFA1C2','#AE9FC1','#AC9DC0','#AA9BBE','#A99ABD','#A798BC','#A696BB','#A494BA','#A393B9','#A191B8','#A08FB6','#9E8DB5','#9D8CB4','#9B8AB3','#9A88B2','#9886B1','#9785AF','#9583AE','#9381AD','#927FAC','#907DAB','#8F7CA9','#8D7AA8','#8C78A7','#8A76A6','#8975A5','#8773A4','#8671A2','#846FA1','#836EA0','#816C9F','#806A9E','#7E689D','#7C669B')
    ,cyn = c('#E7EFF1','#E6EEF1','#E4EDF0','#E2ECEF','#E1EBEE','#DFEAED','#DDE9EC','#DCE8EB','#DAE7EA','#D8E6E9','#D7E5E8','#D5E4E7','#D3E3E6','#D2E2E5','#D0E1E4','#CEDFE3','#CDDEE3','#CBDDE2','#C9DCE1','#C8DBE0','#C6DADF','#C4D9DE','#C3D8DD','#C1D7DC','#BFD6DB','#BED5DA','#BCD4D9','#BAD3D8','#B9D2D7','#B7D1D6','#B5CFD5','#B2CDD3','#AFCBD2','#ACC9CF','#A9C7CE','#A6C4CB','#A3C2CA','#A0C0C7','#9CBEC6','#99BCC3','#96BAC2','#93B7BF','#90B5BE','#8DB3BB','#8AB1B9','#86AEB7','#83ACB6','#80AAB3','#7DA8B1','#7AA6AF','#77A4AE','#74A1AB','#719FA9','#6D9DA7','#6A9BA5','#6798A3','#6496A1','#6194A0','#5E929D','#5B909B','#578D99')
    ,grb = c('#E2EBF3','#E1EAF3','#DFE9F2','#DDE7F1','#DBE6F1','#D9E4F0','#D7E3EF','#D5E2EE','#D3E0EE','#D1DFED','#CFDDEC','#CEDCEB','#CCDBEB','#CAD9EA','#C8D8E9','#C6D6E8','#C4D5E8','#C2D4E7','#C0D2E6','#BED1E6','#BCCFE5','#BBCEE4','#B9CDE3','#B7CBE3','#B5CAE2','#B3C8E1','#B1C7E0','#AFC6E0','#ADC4DF','#ABC3DE','#A9C1DD','#A6BFDC','#A3BCDA','#9FBAD8','#9CB7D6','#98B4D4','#95B2D3','#92AFD1','#8EADCF','#8BAACD','#88A8CC','#84A5CA','#81A2C8','#7DA0C6','#7A9DC4','#769AC2','#7398C1','#7095BF','#6C93BD','#6990BB','#668EBA','#628BB8','#5F88B6','#5B86B4','#5883B2','#5480B0','#517EAF','#4E7BAD','#4A79AB','#4776A9','#4373A7')
    ,gry = c('#F2F2F2','#F0F1F1','#EEEFEF','#ECEDED','#EAEBEB','#E8E9E9','#E6E7E7','#E4E5E5','#E2E3E4','#E0E1E2','#DEDFE0','#DCDDDE','#DADBDC','#D8D9DA','#D6D7D8','#D4D5D6','#D2D3D5','#D0D1D3','#CECFD1','#CCCDCF','#CACBCD','#C8C9CB','#C6C7C9','#C4C5C8','#C2C3C6','#C0C1C4','#BEBFC2','#BCBDC0','#BABBBE','#B8B9BC','#B6B7BA','#B3B4B7','#B0B1B4','#ACADB0','#A9AAAD','#A5A6A9','#A2A3A6','#9E9FA2','#9B9C9F','#97989B','#949598','#909194','#8D8E91','#898A8D','#86878A','#828386','#7F8083','#7C7D80','#78797C','#757679','#717275','#6E6F72','#6A6B6E','#67686B','#636467','#606164','#5C5D60','#595A5D','#555659','#525356','#4E4F52')
  )
  
  plot(1:15, rep((16 - 1),15), col = wash(names(wash.base)[1],15), pch = 15,
       cex = 3, ylim = c(1,15), axes = FALSE, ylab = "", xlab = "wash colors")
  
  for (i in 2:15) {
    points(1:15,rep(16-i,15),col = wash(names(wash.base)[i],15),pch = 15,cex = 3)
  }
  axis(side = 2,at = 15:1,labels = names(wash.base),col.lab = wash('gry',0.5),cex=0.5,par(las = 1),tick = FALSE,col.axis = wash('gry',0.9))
}