\documentclass[a4paper,11pt]{article}
\usepackage{graphicx}
\usepackage{alltt}
\usepackage[latin1]{inputenc}
\usepackage{gclc}

\begin{document}

\begin{alltt}
A = ponto(1,0)
B = ponto(6,0)
C = ponto(3,3)
Bl = pontomédio(A.C)
Al = pontomédio(B.C)
lAB = recta(A.B)

desenhar
 A ; B ; C
 (A.B.C) 
 Bl ; Al 
 recta(Al.Bl) vermelho,tracejado
 recta(A.B) vermelho,tracejado
fim

etiqueta 
 A -90° ; B -45° ; C 90°
 Bl 135° ; Al 45°
 A.Bl simples
 Bl.C simples
 B.Al duplo
 Al.C duplo 
fim
\end{alltt}

\begin{center}
  \includegraphics{midpoint.eps}
\end{center}

\vfill
\pagebreak

Midpoint GCLC

\begin{center}
  \input{midpoint.pic}
\end{center}


\end{document}

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: 
