diff --git a/R/convertFromFlowCore.R b/R/convertFromFlowCore.R
index 6785678..fb0738c 100644
--- a/R/convertFromFlowCore.R
+++ b/R/convertFromFlowCore.R
@@ -25,9 +25,6 @@ fromFlowCore <- function(flowObject, experimentId, name = NULL, ...) {
   }
 
   switch(class(flowObject)[1],
-    "CellPopulation" = {
-      convertFlowDensity(flowObject, experimentId, name, ...)
-    },
     "ellipsoidGate" = {
       convertEllipsoidGate(flowObject, experimentId, name, ...)
     },
@@ -40,19 +37,6 @@ fromFlowCore <- function(flowObject, experimentId, name = NULL, ...) {
   )
 }
 
-convertFlowDensity <- function(flowDensity, experimentId, name = NULL, ...) {
-  # flowDensity@filter is always a convex polygon
-  flowGate <- flowDensity@filter
-  createPolygonGate(
-    experimentId,
-    colnames(flowGate)[1],
-    colnames(flowGate)[2],
-    name,
-    vertices = list(flowGate),
-    ...
-  )
-}
-
 convertPolygonGate <- function(flowGate, experimentId, name = NULL, ...) {
   boundaries <- flowGate@boundaries
   createPolygonGate(