\input fig4tex.tex % % 1. Definition of characteristic points \figinit{cm,rea} % Radius of the basis and height of the cylinder \def\R{2} \def\H{3.1416} \def\LAx{4}% Length of axes (> max(\R,\H)) \figpt 0:(0,0)% Origin \figptsaxes 1 : 0(\LAx)% End points of the axes \figptcirc 11 :: 0,1,3;\R (0) \figptcirc 12 :: 0,1,3;\R (90) \figptstraC 20 = 0,11,12 /0,\H,0/ % % 2. Creation of the graphical file \figset projection (longitude=25, latitude=20) \figdrawbegin{} \figdrawaxes 0(\LAx) % Define apparent contours of the domain (later used twice) \def\drawDom{ \figdrawline[12,22,20,21,11] \figdrawarccirc 0,1,3;\R (0,90) } % 1. Draw the domain \figset (color=0 0 1, fillmode=yes, alpha=0.3) \drawDom % "Upper" face of the quarter of the cylinder \figdrawarccirc 20,21,22;\R (0,90)\figdrawline[22,20,21] % 2. Draw the domain outline \figset (width=1, fillmode=no, alpha=default) \drawDom % Add "upper" circular edge \figdrawarccirc 20,21,22;\R (0,90) \figdrawend % % 3. Writing text on the figure \figvisu{\figBoxA}{}{ \def\dist{2pt}% \figwritew 1:(\dist)\figwritee 2:(\dist)\figwriten 3:(\dist) \figwritenw 11,12:$2$(\dist) \figwritene 20:$\pi$(\dist) } \centerline{\box\figBoxA} \bye