\input fig4tex.tex % % 1. Definition of characteristic points \figinit{cm} \figpt 1:(0,1)\figpt 2:(1,1) \figpt 3:(1,-0.5)\figpt 4:(2,-0.5)\figpt 5:(2,1) \figvectP 50[1,5]\figvectC 51(0,-2) % % 2. Creation of the postscript file \figdrawbegin{} % Dessin du haut % 1er motif \figdrawBezier 2 [1,1,2,2,3,4,5] % 2e et 3e motifs \figptstra 6=1,2,3,4,5/1,50/\figdrawBezier 2 [6,6,7,7,8,9,10] \figptstra 6=1,2,3,4,5/2,50/\figdrawBezier 2 [6,6,7,7,8,9,10] % % Dessin du bas % On decale vers le bas les points 1 a 5 originaux \figptstra 1=1,2,3,4,5/1,51/ % Definition de la transvection \def\InvPt{1} \def\Auu{1}\def\Aud{0}\def\Adu{-0.3}\def\Add{1} % Application : \figptmap 6:=1/\InvPt/\Auu,\Aud; \Adu,\Add/ \figptmap 7:=2/\InvPt/\Auu,\Aud; \Adu,\Add/ \figptmap 8:=3/\InvPt/\Auu,\Aud; \Adu,\Add/ \figptmap 9:=4/\InvPt/\Auu,\Aud; \Adu,\Add/ \figptmap 10:=5/\InvPt/\Auu,\Aud; \Adu,\Add/ % equivalent a \figptsmap 6=1,2,3,4,5/\InvPt/\Auu,\Aud; \Adu,\Add/ % 1er motif \figdrawBezier 2 [6,6,7,7,8,9,10] % 2e et 3e motifs \figptstra 6=1,2,3,4,5/1,50/ \figptsmap 6=6,7,8,9,10/\InvPt/\Auu,\Aud; \Adu,\Add/ \figdrawBezier 2 [6,6,7,7,8,9,10] % \figptstra 6=1,2,3,4,5/2,50/ \figptsmap 6=6,7,8,9,10/\InvPt/\Auu,\Aud; \Adu,\Add/ \figdrawBezier 2 [6,6,7,7,8,9,10] \figdrawend % % 3. Writing text on the figure \figvisu{\figBoxA}{}{% } \centerline{\box\figBoxA} \bye % Remarque : on pourrait aussi construire le dessin du haut d'un seul bloc % en gardant tous les points, puis translater vers le bas et appliquer % la transvection.