$pixelsPerCell:1

#Clear
SetThemeOverlayRectPixels(0 0 0 <-textureWidth <-textureHeight Vector0)
10 0 do
	if (RandFloat 0.5 <)
		<-R ->color
	else
		<-Y ->color
	endif
	SetThemeOverlayRectPixels(0 RandInt(0 <-textureWidth) RandInt(0 <-textureHeight) RandInt(1 100) RandInt(1 100) <-color)
loop

:once
	GetMapSize ->mapSizeZ ->mapSizeX	

	<-mapSizeX <-pixelsPerCell * ->textureWidth
	<-mapSizeZ <-pixelsPerCell * ->textureHeight
	
	CreateThemeOverlay(0 <-textureWidth <-textureHeight Vector0)
	SetThemeOverlayEnabled(0 true)
	SetThemeOverlayPointFilter(0 true)
	
	V4(1 0 0 1) ->R
	V4(1 1 0 1) ->Y