\documentclass[margin=2pt]{standalone}
\usepackage{pgfmath}
\def\sine{%
  \pgfmathsin\x
  \dimen0  \pgfmathresult pt
  \multiply\dimen0 by 100 % \dimen0=100\dimen0
  \dimen2 -\dimen0
  \advance \dimen0 by 1pt
  \vrule width 1pt height\dimen0 depth\dimen2
}
\newcount\x \x=0
\begin{document}
\loop
  \sine
  \ifnum\x<360 \advance\x by 1
\repeat
\end{document}