diff --git a/gpu-vulkan.cabal b/gpu-vulkan.cabal
--- a/gpu-vulkan.cabal
+++ b/gpu-vulkan.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           gpu-vulkan
-version:        0.1.0.160
+version:        0.1.0.161
 synopsis:       Vulkan library
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan#readme>
 category:       GPU
diff --git a/src/Gpu/Vulkan.hs b/src/Gpu/Vulkan.hs
--- a/src/Gpu/Vulkan.hs
+++ b/src/Gpu/Vulkan.hs
@@ -54,6 +54,8 @@
 
 	-- *** ClearColorValue
 
+	ClearColorValueToCore,
+
 	-- *** ClearDepthStencilValue
 
 	ClearDepthStencilValue, pattern ClearDepthStencilValue,
diff --git a/src/Gpu/Vulkan/Cmd.hs b/src/Gpu/Vulkan/Cmd.hs
--- a/src/Gpu/Vulkan/Cmd.hs
+++ b/src/Gpu/Vulkan/Cmd.hs
@@ -41,6 +41,10 @@
 
 copyBuffer, copyBufferToImage, copyImageToBuffer, blitImage,
 
+-- * CLEAR COLOR IMAGE
+
+clearColorImage,
+
 -- * MEMORY DEPENDENCY
 
 pipelineBarrier, pipelineBarrier2,
@@ -97,6 +101,7 @@
 import qualified Gpu.Vulkan.Subpass.Enum as Subpass
 import qualified Gpu.Vulkan.Cmd.Middle as M
 
+import qualified Gpu.Vulkan.Middle as M
 import qualified Gpu.Vulkan.Memory as Memory
 
 import Data.IORef -- for debug
@@ -351,3 +356,9 @@
 	QueryPool.Q sq QueryPool.Timestamp -> Query.Q -> IO ()
 writeTimestamp (CommandBuffer.T.C cb) sflgs (QueryPool.Q qp) i =
 	M.writeTimestamp cb sflgs qp i
+
+clearColorImage :: M.ClearColorValueToCore cct =>
+	CommandBuffer.C sc -> Image.Binded sm si nm fmt -> Image.Layout ->
+	ClearValue ('ClearTypeColor cct) -> [Image.SubresourceRange] -> IO ()
+clearColorImage (CommandBuffer.T.C cb) (Image.Binded img) lyt cv srrs =
+	M.clearColorImage cb img lyt cv srrs
diff --git a/src/Gpu/Vulkan/Internal.hs b/src/Gpu/Vulkan/Internal.hs
--- a/src/Gpu/Vulkan/Internal.hs
+++ b/src/Gpu/Vulkan/Internal.hs
@@ -54,6 +54,8 @@
 
 	-- *** ClearColorValue
 
+	M.ClearColorValueToCore,
+
 	-- *** ClearDepthStencilValue
 
 	M.ClearDepthStencilValue, pattern M.ClearDepthStencilValue,