
%%%			ESFERAOS.TEX

\documentclass[12pt]{article}
\usepackage{epsf}
\usepackage[dvipdfm,
           pdfpagemode       = None,%     % Marcadores/vi�etas cerradas al abrir
           pdfstartview      = FitH,%     % La page prend toute la largeur
           pdfpagelayout     = SinglePage,% Vue par page
	              ]{hyperref}

 \hyperbaseurl{http://www.gt.matfun.ull.es/angel/}

\textwidth=12.4cm     
\textheight=23cm     
\hoffset=0in
\voffset=-1in

\pagestyle{empty}
\begin{document}

\ \par \vspace{2cm}

\begin{center}
{\large \href{../apuntes/gth#h-esfera-osculatriz}{Esfera osculatriz} }
\end{center}
\vspace{1cm}

\hspace{.5cm}\epsfbox{esfera.eps} 

\vspace{1cm}

Este gr\'afico est\'a hecho en lenguaje PostScript (cuyo contenido
aparece en la p\'agina siguiente), a\~nadi\'endole al principio
del fichero las l\'{\i}neas siguientes,
\href{http://www.geocities.com/SiliconValley/5682/ps2eps.html}{para encapsular}: 

\begin{verbatim}
                 %!PS-Adobe-3.0 EPSF-3.0
                 %%BoundingBox: 141 181 449 477
\end{verbatim}			

\newpage

\ \par \vspace{2cm}

{\tiny
\baselineskip= 5pt
\begin{verbatim}

         -400 -600 translate
         2.3 2.3 scale

         gsave
           306 396 translate
           .5 setgray
           0 0 50 0 360 arc 
           gsave
             fill
           grestore  
           clip
           15 -20 translate
           50 -.5 2.5 { /r exch def
                       1 r .005 mul sub setgray
                       0 0 r 0 360 arc fill
                      } for
         grestore

         gsave  % ecuador
           306 396 translate
           .1 setlinewidth
           1 .4 scale
           0 0 50 -180  0 arc stroke
           0 0 50 -200 30 arc
           gsave
             [2] 0 setdash
             stroke
           grestore  
         grestore  

         gsave  % meridiano
           306 396 translate
           .1 setlinewidth
           .4 1 scale
           0 0 50 -90  90 arc stroke
           0 0 50 -138 125 arc
           gsave
             [2] 0 setdash
             stroke
           grestore  
         grestore  

         gsave  % circ. osculatriz
           306 424 translate
           .1 setlinewidth
           1 .3 scale
           0 0 40 -184  4 arc stroke
           0 0 40 5 175 arc 
           gsave 
             [2] 0 setdash
             stroke
           grestore 
         grestore  

         gsave
           270 419 translate
           .4 setlinewidth
           0 0 moveto  22 -12 rlineto stroke % tangente
           0 0 moveto  20   4 rlineto stroke % normal
           0 0 moveto   0  20 rlineto stroke % binormal

           19 -12 moveto 24 -11 lineto 26 -14 lineto fill % Punta tang
           21   3 moveto 23   5 lineto 16 4.5 lineto fill % Punta normal
           -2  20 moveto  0  25 lineto  2  20 lineto fill % Punta binormal
  
           0 0 moveto  12 -8 75 -2 70 60 curveto stroke % la curva
  
           gsave
             .1 setlinewidth
             70 45 moveto 70 12 1.19 mul sub 45 25 1.19 mul sub lineto stroke %  QS (pendiente (-12,-25)
             70 12 1.35 mul sub 45 25 1.35 mul sub 70 12 1.46 mul sub 45 25 1.46 mul sub  moveto lineto stroke %  QS
             52 7.5 1  0 360 arc fill % Pto. S
             gsave
               [2] 0 setdash % di�metro SS'
               52 7.5 moveto -36.7 -76.5 rlineto stroke
             grestore
             21 -57 1  0 360 arc fill % Pto. S'
             15.3 -69 moveto -4.8 -10 rlineto stroke % S' hacia afuera
           grestore
           [1] 0 setdash 
           0 0 moveto 36 7 lineto stroke   % radio circ osculatriz
           0 0 moveto 36 -25 lineto stroke % radio esfera osculatriz
           36 27 moveto 0 -100 rlineto stroke  % eje

           /Times-Italic findfont 5 scalefont setfont
           -3  -6 moveto (P) show  
           73  42 moveto (Q) show  
           55   6 moveto (S) show  
           14 -59 moveto (S') show  
           37   8 moveto (K) show  
           38 -29 moveto (C) show  
           17 -18 moveto (R) show  

           27 -13 moveto (t) show  
           20   8 moveto (n) show  
           -2  26 moveto (b) show  

           /Times-Italic findfont 3 scalefont setfont
	              -1  -7 moveto (0) show
		      
		      
           /Symbol findfont 3 scalefont setfont
           26  -9 moveto (\256) show  
           20  11 moveto (\256) show  
           -2  30 moveto (\256) show  
         grestore

\end{verbatim}}


\special{!userdict begin 
         /bop-hook{   % /eop-hook  Despu�s de la primera p�g. f�sica y en todas
                      % /bop-hook  Desde de la primera p�g. f�sica y en todas
                      % /start-hook S�lo en la primera p�g. f�sica 
                      % /end-hook   Despu�s de terminar
gsave
  100 100 translate
 -20 -30 moveto 420 0 rlineto 0 600 rlineto -420 0 rlineto closepath stroke
 -18 -32 moveto 420 0 rlineto 0 600 rlineto 
 gsave 1.9 setlinewidth .8 setgray stroke grestore
 newpath
 235 -30 moveto 132 0 rlineto
gsave 6 setlinewidth 1 setgray stroke grestore
/Times-Roman findfont 8 scalefont setfont
237 -31 moveto (Angel Montesdeoca. Noviembre 2004) show
                  grestore} def
		   end} 

\end{document}



