; Requires Extended language mode. The decal texture is generated in memory.
Graphics3D 960,600,0,2
camera=CreateCamera():PositionEntity camera,0,2,-8:PointEntity camera,CreatePivot()
light=CreateLight():RotateEntity light,35,-30,0
mark=CreateTexture(64,64,3):SetBuffer TextureBuffer(mark):ClsColor 0,0,0:Cls
Color 255,70,20:Oval 5,5,54,54,True:SetBuffer BackBuffer()
For x=-2 To 2
    cube=CreateCube():PositionEntity cube,x*1.7,0,2:EntityColor cube,95,105,120
    decal=CreateDecal(mark):DecalSize decal,1.25,1.25,.5
    AlignDecal decal,x*1.7,0,1,0,0,-1,x*12
    If x=2 Then EntityReceivesDecals cube,False
Next
While Not KeyHit(1)
    DebugGrid 18,1
    RenderWorld
    DrawRenderStats 10,10,2
    Color 255,255,255:Text 10,560,"The right cube opts out with EntityReceivesDecals. ESC exits."
    Flip
Wend
End