Axes perso
Author: Daniel Mentrard

O = (0, -1)
list1 = Sequence(Segment[(k, y(O) - AxisStepY[] / 10.0), (k, y(O) + AxisStepY[] / 10.0)], k, AxisStepX[] * ceil(x(Corner[1.0]) / AxisStepX[]), AxisStepX[] * floor(x(Corner[3.0]) / AxisStepX[]), AxisStepX[])
list2 = Sequence(Segment[(x(O) - AxisStepX[] / 10.0, k), (x(O) + AxisStepX[] / 10.0, k)], k, AxisStepY[] * ceil(y(Corner[1.0]) / AxisStepY[]), AxisStepY[] * floor(y(Corner[3.0]) / AxisStepY[]), AxisStepY[])
a: y = y(O)
b: x = x(O)
text1: "" + (x(O))
text2: "" + (x(O) + AxisStepX[])
text3: "" + (y(O))
text4: "" + (y(O) + AxisStepY[])
texte1: "" + (x(O) + 2.0 * AxisStepX[])
texte2: "" + (y(O) + 2.0 * AxisStepY[])
A = (2, 2)
c = 0.17 (slider from 0.01 to 1, step 0.01)
d = 0.11 (slider from 0.01 to 1, step 0.01)
liste2 = Sequence(Text[k * AxisStepY[], (x(O) - AxisStepX[] / 1.6, y(O) - d + k * AxisStepY[])], k, ceil(y(Corner[1.0]) / AxisStepY[]), floor(y(Corner[3.0]) / AxisStepY[]))
liste3 = Sequence(Text[k * AxisStepY[], (x(O) - AxisStepX[] / 1.6, y(O) - d + k * AxisStepY[])], k, x(O), floor(y(Corner[3.0]) / AxisStepY[]))
liste4 = Sequence(Text[k * AxisStepY[], (x(O) - AxisStepX[] / 1.3, y(O) - d + k * AxisStepY[])], k, ceil(y(Corner[1.0]) / AxisStepY[]), -1.0)
liste5 = Sequence(Text[k * AxisStepX[], (x(O) - c + k * AxisStepX[], y(O) - AxisStepY[] / 2.0)], k, 0.0, floor(x(Corner[3.0]) / AxisStepX[]))
liste6 = Sequence(Text[k * AxisStepX[], (x(O) - (c + 0.12) + k * AxisStepX[], y(O) - AxisStepY[] / 2.0)], k, ceil(x(Corner[1.0]) / AxisStepX[]), -1.0)