% Picture-drawing commands

\iflatex

\pagestyle{empty}
\definecolor{gray}{gray}{.5}
\definecolor{lightblue}{rgb}{.6,.6,1}
\definecolor{brown}{rgb}{.75,.4,0}

\def\startPicture{%
  \vspace*{6.5in}%
  \xa\@tempdima\MaxD\dx\dy
  \dimen@6.5in \div\dimen@\@tempdima
  \global\unitlength\dimen@
  \@tempdima-0.5\dx \@tempdimb-0.5\dy 
  %
  \vskip-6.5in%
  \begin{picture}(\pointless\dx,\pointless\dy)%
      (\pointless\@tempdima,\pointless\@tempdimb)%
  %
  \color{green}\put(0,0){\circle*{10}}\color{black}%
  \put(\pointless\@tempdima,\pointless\@tempdimb)%
    {\line(0,1){\pointless\dy}}%
  \put(\pointless\@tempdima,\pointless\@tempdimb)%
    {\line(1,0){\pointless\dx}}%
  \@tempdima-\@tempdima\@tempdimb-\@tempdimb
  \put(\pointless\@tempdima,\pointless\@tempdimb)%
    {\line(0,-1){\pointless\dy}}%
  \put(\pointless\@tempdima,\pointless\@tempdimb)%
    {\line(-1,0){\pointless\dx}}%
  \begingroup % draw the ones we already know...
    \def\\##1{\drawCircle##1{gray}}\the\boulders
    \def\\##1{\drawCircle##1{brown}}\the\craters
  \endgroup
}

\showboxbreadth=100\showboxdepth=7
\def\endPicture{%
  \end{picture}\filbreak
}

\def\circ@xyrc#1#2#3#4{%
  % #1 is x, #2 is y, #3 is r, #4 is color
  \begingroup \dimen@#3 \multiply\dimen@\tw@
    \put(0,0){}%
    \color{#4}%
    \put(\pointless#1,\pointless#2){\circle*{\pointless\dimen@}}%
  \endgroup
}

\def\circ@xyr#1#2#3{%
  % #1 is x, #2 is y, #3 is r
  \begingroup \dimen@#3 \multiply\dimen@\tw@
    \put(0,0){}%
    \put(\pointless#1,\pointless#2)%
        {\circle*{\pointless\dimen@}}%
  \endgroup
}

\def\drawtelemetry#1{%
  \begingroup
    \put(0,0){}%
    \edef\temp@{\noexpand\color{#1}\noexpand
      \put(\pointless\vx,\pointless\vy)%
      {\noexpand\circle*{1}}}%
    \debug1{telem: \meaning\temp@}
    \temp@
    %\put(\pointless\vx,\pointless\vy){\circle*{1}}%
  \endgroup
}
\def\drawmartian#1#2{%
  \begingroup
    \put(0,0){}%
    \def\temp@{\color{red}\put(#1,#2){\circle*{.8}}}%
    \debug1{mart: \meaning\temp@}
    \temp@
  \endgroup
}

\def\circ@XYDc#1#2#3#4{%
  % #1 is x, #2 is y, #3 is r, #4 is color
  \begingroup
  \put(0,0){}%
    \color{#4}\put(#1,#2){\circle*{#3}}%
  \endgroup
}

\def\drawCircle(#1,#2,#3)#4{%
  % Weird syntax: #1 and #2 are already pointless, #3 isn't
  \begingroup
  \put(0,0){}%
  \dimen@#3\relax\advance\dimen@-\roverrad
  \multiply\dimen@\tw@ % diameter...
    \color{#4}\put(#1,#2)%
      {\circle*{\pointless\dimen@}}%
  \endgroup
}

\else

% Blank definitions!
\def\startPicture{%
}

\def\endPicture{%
}

\def\circ@xyrc#1#2#3#4{%
}

\def\circ@xyr#1#2#3{%
}

\def\drawtelemetry#1{%
}

\def\drawmartian#1#2{%
}

\def\circ@XYDc#1#2#3#4{%
}

\def\drawCircle(#1,#2,#3)#4{%
}

\fi