anchor.diff:      Dest.ClipRect := CurrentClip; //Vector4D_Create(0, 0, 9999, 9999);
     End;
     ReleaseObject(OutIt);
  -
  -End;
  -
  -Procedure TERRASprite.Render(View:TERRAViewport; Const Stage:RendererStage);
  -Var
  -  Graphics:GraphicsManager;
  -  TargetShader:ShaderInterface;
  -Begin
  -  If (Self.Geometry.Indices.Count <= 0) Or (Self.Texture = Nil) Then
  -    Exit;
   
     Graphics := Engine.Graphics;
     //glEnable(GL_DEPTH_TEST); {FIXME}
  
positive.code:       Procedure Scale(Const X, Y:Single); Overload;
        Procedure Scale(Const Value:Single); Overload;
  
        Procedure Update(View:TERRAViewport); Override;
  
        Property Geometry:TERRAGeometry Read _Geometry;
  
        Property Texture:TERRATexture Read _Texture Write SetTexture;
  
negative.code:     Geometry.Indices.SetIndex(IndexOffset + I, Other.Geometry.Indices.GetIndex(I) + BaseID);
  End;
  
  Procedure TERRASprite.Render(View:TERRAViewport; Const Stage:RendererStage);
  Var
    Graphics:GraphicsManager;
    TargetShader:ShaderInterface;
    CurrentClip:Vector4D;
  
    OutIt:VertexIterator;
    Dest:SpriteVertex;
  Begin
    If (Self.Geometry.Indices.Count <= 0) Or (Self.Texture = Nil) Then
      Exit;
  
    If (Self.ClipRect.Style = clipNothing) Then
      CurrentClip := Vector4D_Create(0, 0, 9999, 9999)
  