$pixelsPerCell:8 #The block size should match this

1000 0 do
	if (RandFloat 0.5 <)
		<-redBlock ->block
	else
		<-yellowBlock ->block
	endif
	SetThemeOverlayPixels(0 RandInt(0 <-textureWidth <-pixelsPerCell -) RandInt(0 <-textureHeight <-pixelsPerCell -) <-pixelsPerCell <-pixelsPerCell <-block)
loop
:once
	GetMapSize ->mapSizeZ ->mapSizeX	

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

	V4(0 0 0 2) ->T
	V4(1 0 0 1) ->R
	V4(1 1 0 1) ->Y

	<-T <-T <-R <-R <-R <-R <-T <-T
	<-T <-R <-R <-R <-R <-R <-R <-T
	<-R <-R <-R <-R <-R <-R <-R <-R
	<-R <-R <-R <-R <-R <-R <-R <-R
	<-R <-R <-R <-R <-R <-R <-R <-R
	<-R <-R <-R <-R <-R <-R <-R <-R
	<-T <-R <-R <-R <-R <-R <-R <-T
	<-T <-T <-R <-R <-R <-R <-T <-T List ->redBlock

	<-T <-T <-Y <-Y <-Y <-Y <-T <-T
	<-T <-Y <-Y <-Y <-Y <-Y <-Y <-T
	<-Y <-Y <-Y <-Y <-Y <-Y <-Y <-Y
	<-Y <-Y <-Y <-Y <-Y <-Y <-Y <-Y
	<-Y <-Y <-Y <-Y <-Y <-Y <-Y <-Y
	<-Y <-Y <-Y <-Y <-Y <-Y <-Y <-Y
	<-T <-Y <-Y <-Y <-Y <-Y <-Y <-T
	<-T <-T <-Y <-Y <-Y <-Y <-T <-T List ->yellowBlock