~~NOTOC~~
<=[[4rpl:start| Index]] \\
<-[[4rpl:start#raster| Raster]]

====== RasterColor ======
RasterColor(<-color)

===== Description =====
Sets the default color for SetRasterC. This setting is associated with the raster itself.

===== Examples =====
<code 4rpl>
once
   V4(1 0 0 1) ->red
	  V4(0 0 0 1) ->black
	  V4(1 1 1 1) ->white
	  V4(0 1 0 1) ->green

	  CreateList ->square
	  do(25 0)
		  <-black ->square[I]
	  loop

	  ShowRaster(true)
endonce

ClearRaster(V4(RandFloat RandFloat RandFloat 1))

do(5000 0)
	  SetRaster(GetRandMapCell <-green)
loop

RasterColor(<-red)
do(5000 0)
	  SetRasterC(GetRandMapCell)
loop

do(100 0)
	  @Blit
loop

:Blit
	  BlitRaster(GetRandMapCell <-square 5)
</code>
<=[[4rpl:start| Index]]