'LOGIT TRANSFORMATION OF THE ACTIVE GRID THEME

TheView=Av.GetActiveDoc
TheTheme=TheView.GetActiveThemes.Get(0)

TheGrid=TheTheme.GetGrid

LtransGrid=(1.AsGrid/(1.AsGrid+((-1.AsGrid)*TheGrid).Exp))

LtTheme=GTheme.Make(LtransGrid)

TheView.AddTheme(LtTheme)