// e^(i t) のグラフを前から見た所。
//「右手系」を「左手系」に直すため、x座標と y座標とを入れ換えてある。
//そのためすこし見にくい。

kaiten:=4*PI:
theta0:=float(3*PI/4):
P_list:=[point(float(cos(theta0)),float(sin(theta0)))]:

plot2d(
PlotDevice=["ring.gif",Gif],
Labeling=FALSE
,Axes=Origin
,AxesOrigin=[0,0]
,[Mode=Curve,[cos(t),sin(t)],t=[-float(kaiten),float(kaiten)]
   ,Smoothness=[5]
   ,LineWidth=20
 ]
,[Mode=Curve
      ,[    (t-theta0)*(-sin(theta0))+cos(theta0) 
           ,(t-theta0)*  cos(theta0) +sin(theta0)
       ]
       ,t=[theta0-1,theta0+2]
 ]
,[Mode=List, P_list
   ,LineWidth=50
 ]
);