agraph
graphsize=2.0;
xscl=1;
xyzAchsen( 5, 4, 5.5, 3.5);
strokewidth=2;
p = [3, -2, 3]; dot( d3(p), "", "P", "leftabove" );
q = [2, -1, 1.5];
//q = [2, 2, -1];
weg( p, "orange");
weg( q, "violet",0.05);
stroke="yellow";
gerade( d3(p), d3(q) );
stroke="black";
pfeil([0,0], d3(p));
stroke="red";
pfeil(d3(p), d3(q));
stroke="blue";
moveM([3,-1.5]);
endagraph