1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
verbatimtex
\documentclass{article}
\begin{document}
%input featpost3Dplus2D;
etex
beginfig(1);
cartaxes(1,1,1);
endfig;
f := (5,3.5,1);
beginfig(2);
cartaxes(1,1,1);
color va, vb, vc, vd;
va = (0.29,0.7,1.0);
vb = (X(va),Y(va),0);
vc = N((-Y(va),X(va),0));
vd = (0,Y(vc),0);
drawarrow rp(black)--rp(va);
draw rp(black)--rp(vb)--rp(va) dashed evenly;
draw rp(vc)--rp(vd) dashed evenly;
drawarrow rp(black)--rp(vc);
squareangline( va, vc, black, 0.15 );
angline( va, red, black, 0.75, decimal getangle( va, red ), lft );
endfig;
verbatimtex
\end{document}
etex
end;
|
