/axeR { % x_min x_max lu  (étendue du pointille, longueur du vecteur)
3 dict  begin
        /lu exch def
        /x1 exch def
        /x0 exch def
gsave
        continu
        rouge
        [0 0 0 lu 0 0] (->) ligne3d
        currentlinewidth 0.5 mul setlinewidth
        pointilles
        [x0 0 0 x1 0 0] (-) ligne3d
grestore
end } def

/axeV { % y_min y_max lu   (étendue du pointille, longueur du vecteur)
3 dict  begin
        /lu exch def
        /y1 exch def
        /y0 exch def
gsave
        continu
        vert
        [0 0 0 0 lu 0] (->) ligne3d
        currentlinewidth 0.5 mul setlinewidth
        pointilles
        [0 y0 0 0 y1 0] (-) ligne3d
grestore
end } def

/axeB { % z_min z_max lu  (étendue du pointille, longueur du vecteur)
3 dict  begin
        /lu exch def
        /z1 exch def
        /z0 exch def
gsave
        continu
        bleu
        [0 0 0 0 0 lu] (->) ligne3d
        currentlinewidth 0.5 mul setlinewidth
        pointilles
        [0 0 z0 0 0 z1] (-) ligne3d
grestore
end } def

/axesRVB { % xyz_min xyz_max lu  (étendue du pointille, longueur des vecteurs)
3 dict  begin
        /lu exch def
        /w1 exch def
        /w0 exch def
        w0 w1 lu axeR
        w0 w1 lu axeV
        w0 w1 lu axeB
end
} def