logXbase = 10 (slider from 2 to 10, step 1)
logXmin = -10
logXmax = 20
logX = Sequence(Sequence[Line[(t + log(s) / log(logXbase), 0.0), (t + log(s) / log(logXbase), 1.0)], s, 1.0, logXbase - 1.0], t, logXmin, logXmax)
logYmin = -10
logYmax = 20
logYbase = 10 (slider from 2 to 10, step 1)
logY = Sequence(Sequence[Line[(0.0, t + log(s) / log(logYbase)), (1.0, t + log(s) / log(logYbase))], s, 1.0, logYbase - 1.0], t, logYmin, logYmax)