\input fig4tex.tex % 1. Definition of characteristic points \figinit{cm} \figpt 0:(0,0) % Initial origin \def\SQEL{1.5} % Square edge length % Vertices of the initial square \figpt 1:(1,1) \figpttraC 2:=1/\SQEL,0/\figpttraC 3:=2/0,\SQEL/\figpttraC 4:=3/-\SQEL,0/ \def\dist{7}\def\TV{50} % Translation distance and name of the vector % % For each case, the initial figure is translated. Then the transformation % is applied. % 1st transformation \figvectC \TV(\dist,0)\figptstra 10=0,1,2,3,4/1,\TV/ \figptsmap 11=11,12,13,14/11/1.5,0; 0,1/ % Check point 11 is invariant ! \figptbary 15:[1,11;4,2]\figptbary 16:[1,11;2,4] % Arrow end points % 2nd transformation \figvectC \TV(0,\dist)\figptstra 20=0,1,2,3,4/1,\TV/ \figptsmap 21=21,22,23,24/21/1,0; 0,1.5/ \figptbary 25:[1,21;4,2]\figptbary 26:[1,21;2,4] % 3rd transformation \figvectC \TV(\dist,\dist)\figptstra 30=0,1,2,3,4/1,\TV/ \figptsmap 31=31,32,33,34/31/1,0.5; 0,1/ \figptbary 35:[1,31;4,2]\figptbary 36:[1,31;2,4] % % 2. Creation of the graphical file \figdrawbegin{} \figset arrowhead(length=0.2) \figdrawaxes 0(1)\figdrawaxes 10(1)\figdrawaxes 20(1)\figdrawaxes 30(1) \figset(width=1) \figdrawline[1,2,3,4,1]\figdrawline[11,12,13,14,11] \figdrawline[21,22,23,24,21]\figdrawline[31,32,33,34,31] \figset(width=1.5)\figset arrowhead(fill=yes,length=0.4) \figdrawarrow[15,16]\figdrawarrow[25,26]\figdrawarrow[35,36] \figdrawend % % 3. Writing text on the figure \figvisu{\figBoxA}{}{ % Name of each transformation \figwriteln 15,16:\bf F$_{\hbox{$\bf\scriptstyle 1$}}$(0.2) \figwriteln 25,26:\bf F$_{\hbox{$\bf\scriptstyle 2$}}$(0.2) \figwriteln 35,36:\bf F$_{\hbox{$\bf\scriptstyle 3$}}$(0.2) % Mark each invariant point \figset write(mark=$\figBullet$)\figwritesw 1,11,21,31:$I$(0.1) } \centerline{\box\figBoxA} \bye