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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
\section{\Index{Transformations} to a point}
Given is an initial point $A(x,y,z)$. Now we make some
rotations around the axes $Ox$, $Oy$ and $Oz$ with the appropriate angles (in degrees):
\verb+[RotX=valueX,RotY=valueY,RotZ=valueZ]+, in this order,
then translate it with the vector $(v_x,v_y,v_z)$. The problem is to get back
the coordinates of the image (final point) $A'(x',y',z')$.
The code
\texttt{\textbackslash psTransformPoint[RotX=valueX,RotY=valueY,
RotZ=valueZ](x y z)(vx,vy,vz)\{A'\}}\\
now allows us to save the node $A'$, the coordinates of the transformed point.
In the following example, $A(2,2,2)$ is one of the vertices of the initial
cube, where the centre is placed at the origin.
\begin{verbatim}
\psSolid[object=cube,a=4,action=draw*,linecolor=red]%
\end{verbatim}
Some transformations are applied to the cube:
\begin{verbatim}
\psSolid[object=cube,a=4,action=draw*,RotX=-30,RotY=60,RotZ=-60](7.5,11.25,10)%
\end{verbatim}
To obtain the image of $A$, we use the following command:
\begin{verbatim}
\psTransformPoint[RotX=-30,RotY=60,RotZ=-60](2 2 2)(7.5,11.25,10){A'}
\end{verbatim}
This allows us, for example, to name these points and then draw the vector $\overrightarrow{AA'}$.
\begin{center}
\begin{pspicture}(-2,-4)(6,6)
\psframe(-3,-4)(9,6)
\psset{viewpoint=50 20 30 rtp2xyz,Decran=50,unit=0.5}
\psSolid[object=cube,a=4,action=draw*,linecolor=red]%
\psPoint(2,2,2){A}\psdot(A)
\psSolid[object=cube,a=4,action=draw*,RotX=-30,RotY=60,RotZ=-60](7.5,11.25,10)%
\psTransformPoint[RotX=-30,RotY=60,RotZ=-60](2 2 2)(7.5,11.25,10){A'}
\psdot(A')\psline[linecolor=blue,arrowsize=0.3]{{o-v}}(A)(A')
\uput[u](A'){$A'$}\uput[u](A){$A$}
\psset{solidmemory,action=none}
\psSolid[object=cube,a=4,name=A1,](0,0,0)
\psSolid[object=plan,definition=solidface,args=A1 0,name=P0]
\psSolid[object=plan,definition=solidface,args=A1 1,name=P1]
\psSolid[object=plan,definition=solidface,args=A1 4,name=P4]
\psset{fontsize=100}
\psProjection[object=texte,linecolor=red,text=A,plan=P0]
\psProjection[object=texte,linecolor=red,text=B,plan=P1]
\psProjection[object=texte,linecolor=red,text=E,plan=P4]
\psSolid[object=cube,a=4,RotX=-30,RotY=60,RotZ=-60,name=A2,](7.5,11.25,10)
\psSolid[object=plan,definition=solidface,args=A2 0,name=P'0]
\psSolid[object=plan,definition=solidface,args=A2 1,name=P'1]
\psSolid[object=plan,definition=solidface,args=A2 2,name=P'2]
\psProjection[object=texte,text=A,plan=P'0]
\psProjection[object=texte,text=B,plan=P'1]
\psProjection[object=texte,text=C,plan=P'2]
\axesIIID(2,2,2)(10,10,8)
\end{pspicture}
\end{center}
\endinput
|
