diff --git a/gpu-vulkan-core.cabal b/gpu-vulkan-core.cabal
--- a/gpu-vulkan-core.cabal
+++ b/gpu-vulkan-core.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           gpu-vulkan-core
-version:        0.1.0.17
+version:        0.1.0.18
 synopsis:       Thin wrapper for Vulkan API
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-core#readme>
 category:       GPU
diff --git a/src/Gpu/Vulkan/Cmd/Core.hsc b/src/Gpu/Vulkan/Cmd/Core.hsc
--- a/src/Gpu/Vulkan/Cmd/Core.hsc
+++ b/src/Gpu/Vulkan/Cmd/Core.hsc
@@ -20,14 +20,17 @@
 
 	copyBuffer, copyBufferToImage, copyImageToBuffer, blitImage,
 
+	-- * CLEAR COLOR IMAGE
+
+	clearColorImage,
+
 	-- * PIPELINE BARRIER
 
 	pipelineBarrier, pipelineBarrier2,
 
 	-- * QUERY
 
-	beginQuery, endQuery, resetQueryPool,
-	writeTimestamp,
+	beginQuery, endQuery, resetQueryPool, writeTimestamp,
 
 	) where
 
@@ -130,3 +133,8 @@
 
 foreign import ccall "vkCmdPipelineBarrier2" pipelineBarrier2 ::
 	CommandBuffer.C -> Ptr DependencyInfo -> IO ()
+
+foreign import ccall "vkCmdClearColorImage" clearColorImage ::
+	CommandBuffer.C -> Image.I -> #{type VkImageLayout} ->
+	Ptr ClearColorValue -> #{type uint32_t} -> Ptr Image.SubresourceRange ->
+	IO ()