diff --git a/gpu-vulkan-middle.cabal b/gpu-vulkan-middle.cabal
--- a/gpu-vulkan-middle.cabal
+++ b/gpu-vulkan-middle.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           gpu-vulkan-middle
-version:        0.1.0.65
+version:        0.1.0.66
 synopsis:       Medium wrapper for Vulkan API
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-middle#readme>
 category:       GPU
diff --git a/src/Gpu/Vulkan/Cmd/Middle.hs b/src/Gpu/Vulkan/Cmd/Middle.hs
--- a/src/Gpu/Vulkan/Cmd/Middle.hs
+++ b/src/Gpu/Vulkan/Cmd/Middle.hs
@@ -32,6 +32,10 @@
 
 	copyBuffer, copyBufferToImage, copyImageToBuffer, blitImage,
 
+	-- * CLEAR COLOR IMAGE
+
+	clearColorImage,
+
 	-- * MEMORY DEPENDENCY
 
 	pipelineBarrier, pipelineBarrier2,
@@ -53,6 +57,7 @@
 import Control.Monad.Cont
 import Data.TypeLevel.Maybe qualified as TMaybe
 import Data.TypeLevel.List qualified as TList
+import Data.List qualified as L
 import Data.HeteroParList qualified as HPList
 import Data.HeteroParList qualified as HeteroParList
 import Data.Word
@@ -264,3 +269,14 @@
 writeTimestamp
 	(CommandBuffer.M.C _ c) (Pipeline.StageFlagBits fls) (QueryPool.Q q) i =
 	C.writeTimestamp c fls q i
+
+clearColorImage :: ClearColorValueToCore cct =>
+	CommandBuffer.M.C -> Image.I -> Image.Layout ->
+	ClearValue ('ClearTypeColor cct) -> [Image.SubresourceRange] -> IO ()
+clearColorImage
+	(CommandBuffer.M.C _ cb) (Image.I rimg) (Image.Layout lyt) cv srrs =
+	readIORef rimg >>= \(_, img) ->
+	clearColorValueToCore cv \ccv ->
+	allocaArray (length srrs) \psrrs ->
+	pokeArray psrrs (Image.subresourceRangeToCore <$> srrs) >>
+	C.clearColorImage cb img lyt ccv (L.genericLength srrs) psrrs
diff --git a/src/Gpu/Vulkan/Middle/Internal.hsc b/src/Gpu/Vulkan/Middle/Internal.hsc
--- a/src/Gpu/Vulkan/Middle/Internal.hsc
+++ b/src/Gpu/Vulkan/Middle/Internal.hsc
@@ -18,7 +18,7 @@
 	ExtensionProperties(..), extensionPropertiesFromCore,
 	StencilOpState(..), stencilOpStateToCore,
 	ClearValue(..), ClearValueListToCore(..),
-	ClearValueToCore, ClearColorValueToCore,
+	ClearValueToCore, ClearColorValueToCore(..),
 	clearValueListToArray,
 	ClearType(..), ClearColorType(..),