diff --git a/scripts-available/CDB_Albers.sql b/scripts-available/CDB_Albers.sql
new file mode 100644
index 00000000..498af076
--- /dev/null
+++ b/scripts-available/CDB_Albers.sql
@@ -0,0 +1,87 @@
+
+--  Convert your states (or other geometries id'd by state) to 
+--    display as with Alaska, Hawaii, and Puerto Rico transcaled
+--
+--  @param g: input geometry
+--  @param state: column identifying the state (name, postal abbreviation, state FP)
+--  
+--  output: geometries of states in albers projections of the states
+-- 
+-- Projections:
+--		- Lower 48 states: http://epsg.io/42303
+-- 		- Alaska: http://spatialreference.org/ref/epsg/3338/
+--		- Puerto Rico: http://www.spatialreference.org/ref/epsg/nad83-puerto-rico-virgin-is/
+--		- Hawaii: http://epsg.io/102007
+
+
+CREATE OR REPLACE FUNCTION CDB_AlbersUSA (g geometry, state text) RETURNS geometry as $$
+DECLARE
+	reply geometry;
+	srid INT;
+	alaska text[] = '{"Alaska","AK","02"}'::text[];
+	hawaii text[] = '{"Hawaii","HI","15"}'::text[];
+	puertorico text[] = '{"Puerto Rico","PR","72"}'::text[];
+BEGIN
+	
+	-- convert to wgs84
+	IF ST_SRID(g) != 4326 THEN g = ST_Transform(g,4326); END IF;
+
+	EXECUTE 'SELECT
+	    ST_SetSRID(
+	    	CASE 
+  				WHEN $2 = any($3)
+  					THEN
+					ST_Scale(
+						ST_Translate(
+							ST_Transform(
+								$1
+								, 3338
+							)
+							, -3800000
+							, -900000
+						)
+						, 0.7
+						, 0.7
+					)
+				WHEN $2 = any($4)
+					THEN 
+  					ST_Scale(
+  						ST_Transform(
+  							ST_Translate(
+  								$1
+			                    , -8
+			                    , -5
+			                )
+			                , 102007
+			            )
+			            , 1.2
+			            , 1.2
+			        )
+				WHEN $2 = any($5)
+					THEN 
+  					ST_Scale(
+  						ST_Transform(
+  							ST_Translate(
+  								$1
+			                    , 10
+			                    , -1.5
+			                )
+			                , 32161
+						)
+						, 1.5
+						, 1.5
+					)
+				ELSE
+					ST_Transform($1,42303)
+  				END
+  				, 3857
+  			)'
+	INTO reply
+	USING g, state, alaska, hawaii, puertorico;
+
+	reply = ST_Transform(reply,4326);
+
+	RETURN reply;
+
+END; 
+$$ language plpgsql IMMUTABLE;