/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
|